【求助】如何利用VBA取得EXCEL中超連結的資料

Timothy

請問要如何利用VBA取得EXCEL中超連結的資料, 原來的連結資料
是使用本機路徑來連結, 結果透過網芳之後, 全部都連不到了, 所以
想要利用VBA設計一個程序, 來做搜尋替換的作業, 在此請大家幫
幫小弟, 謝謝!

leonchou

試試

語法:

For Each link In ActiveSheet.Hyperlinks
   link.Address = Replace(link.Address, "要找的", "取代為")
Next

以上的程式會把目前工作表中所有超連結位址指定的字串取代為特定字串.

Timothy

首先感謝您的回答, 我試了一下, 出現了 "無效的外部程序"
, 我查了一下 ActiveSheet 這個關鍵字, 在輔助說明中找不
到!

PS: 使用版本為 MS Office 2000

leonchou

我的也是 2000 版, 測試沒問題.
ActiveSheet 意思是作用中的工作表, 是Excel VBA常用的物件.
可把你的程式貼上來看看?

Timothy 會員	【求助】如何利用VBA取得EXCEL中超連結的資料請問要如何利用VBA取得EXCEL中超連結的資料, 原來的連結資料是使用本機路徑來連結, 結果透過網芳之後, 全部都連不到了, 所以想要利用VBA設計一個程序, 來做搜尋替換的作業, 在此請大家幫幫小弟, 謝謝!
	回覆

leonchou Take it easy~	試試語法: For Each link In ActiveSheet.Hyperlinks link.Address = Replace(link.Address, "要找的", "取代為") Next 以上的程式會把目前工作表中所有超連結位址指定的字串取代為特定字串.
	回覆