软件: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大!!