作者ptguitar (佩蒂吉他)
看板Office
标题[算表] 把工作表有连结的都取出来vba
时间Tue Jul 18 14:31:51 2017
软体: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://webptt.com/cn.aspx?n=bbs/Office/M.1500359513.A.146.html
※ 编辑: ptguitar (60.250.67.78), 07/18/2017 14:52:09
1F：→ soyoso: 可取消do...loop回圈，将i=i+1置於sheets("test").range( 07/18 16:14
2F：→ soyoso: "a" & i)...的上方 07/18 16:15
3F：→ ptguitar: 感谢S大!! 07/18 16:16