作者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/m.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