標題: [發問] 超連結修改問題 [打印本頁]

---

作者: jimmy510    時間: 2012-9-13 09:43     標題: 超連結修改問題

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

---

作者: mark15jill    時間: 2012-9-13 10:31

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

---

作者: Hsieh    時間: 2012-9-13 15:18

回復 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

複製代碼

---

作者: jimmy510    時間: 2012-9-14 09:24

回復 3# Hsieh


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

---

作者: Hsieh    時間: 2012-9-14 16:30

回復 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

複製代碼

---

作者: jimmy510    時間: 2012-9-17 11:25

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)