نرم افزار و نکات کاربردی

برای این تغییر کافیست مراحل زیر را مطابق فایل پیوست انجام دهید تا تمامی آدرس های موجود در فایل اکسل پیش روی شما به آدرس جدید مورد نظرتان تغییر یابد.

دریافت
حجم: 224 کیلوبایت

متن کد موجود در فایل :

Dim wks As Worksheet

    Dim hl As Hyperlink

    Dim sOld As String

    Dim sNew As String

    Set wks = ActiveSheet

    sNew = "S:\Network\"

    For Each hl In wks.Hyperlinks

        sOld = hl.Address

        hl.Address = Replace(hl.Address, sOld, sNew)

    Next hl