返回列表 上一主題 發帖

[發問] 超連結修改問題

[發問] 超連結修改問題

請問一下各位前輩:
我有一份EXCEL檔案A裡面SHEET1的A1,A2,A3...分別超連結到另一個excel檔案B的SHEET1,SHEET2,SHEET3,........,可是最近我將檔案B改成巨集的EXCEL檔結果附檔名從.xlsx變成.xlsm,超連結就失效了,請問有沒有辦法可以一次將所有的超連結更改過來嗎?我有試過用取代的功能~可是好像沒辦法尋找到超連結裡面的文字..
請問各位EXCEL的高手們是不是有比較好的方法,謝謝...
JIMMY

For i = 1 To 3
    Windows("新增 Microsoft Excel 工作表.xlsm").Activate
    Cells(i, 1).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "新增 Microsoft Excel 工作表 (2).xlsx", SubAddress:=Worksheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name
Next i

  多做多想多學習,少看少錯少迷途

  多做=多多練習,多多編寫。
  多想=想想為什麼人家程式要那樣寫,如果換成自己,又會怎寫。
  多學習=學習人家的發問並解答,學習人家的寫法

  少看=只看不做也枉然

TOP

回復 1# jimmy510
  1. Sub ex()
  2. Dim Hy As Hyperlink
  3. For Each Hy In Sheet1.Hyperlinks  '所有超連結循環
  4.   Hy.SubAddress = Replace(Hy.SubAddress, ".xlsx", "xlsm")  '更改超連結位址
  5. Next
  6. End Sub
複製代碼
學海無涯_不恥下問

TOP

回復 3# Hsieh


    版大~又要麻煩你了~我有附加上檔案~試過你的巨集,可是還是沒辦法更改超連結,請幫我抓看看哪邊出了問題,謝謝... 更改超連結.rar (11.76 KB)
JIMMY

TOP

回復 4# jimmy510

文件地址是Address
  1. Sub ex()
  2. Dim Hy As Hyperlink
  3. For Each Hy In ActiveSheet.Hyperlinks  '所有超連結循環
  4.   Hy.Address = Replace(Hy.Address, ".xlsx", "xlsm") '更改超連結位址
  5. Next
  6. End Sub
複製代碼
學海無涯_不恥下問

TOP

感謝版大~~可以了~~~謝謝你的幫忙^^
JIMMY

TOP

        靜思自在 : 能付出愛心就是福,能消除煩惱就是慧。
返回列表 上一主題