[算表] 把工作表有連結的都取出來vba
軟體:excel
版本:2007
我有一個excel檔案
裡面有幾十個工作表
都有連結到硬碟內很多檔案
我想看看大約連到什麼資料夾跟什麼檔案
寫了個vba
但是Loop那邊不知道怎麼擺
不知道怎麼改...
Sub readhyper()
Do While i <> ""
For j = 1 To Sheets.Count
Dim h As Hyperlink
Sheets(j).Select
For Each h In ActiveSheet.Hyperlinks
'MsgBox Sheets(j).Name & h.Address
Sheets("test").Range("A" & i) = Sheets(j).Name & "\" & h.Address
i = i + 1
Loop
Next
Next j
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 60.250.67.78
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1500359513.A.146.html
※ 編輯: ptguitar (60.250.67.78), 07/18/2017 14:52:09
→
07/18 16:14, , 1F
07/18 16:14, 1F
→
07/18 16:15, , 2F
07/18 16:15, 2F
→
07/18 16:16, , 3F
07/18 16:16, 3F
Office 近期熱門文章
PTT數位生活區 即時熱門文章
