軟體: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

可取消do...loop迴圈，將i=i+1置於sheets("test").range("a" & i)...的上方

感謝S大!!