[算表] 把工作表有連結的都取出來vba

[ptguitar (佩蒂吉他)]

軟體: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
→ soyoso: 可取消do...loop迴圈，將i=i+1置於sheets("test").range(
→ soyoso: "a" & i)...的上方
→ ptguitar: 感謝S大!!