返回列表 上一主題 發帖

[發問] excel若想超連結資料夾,可以嗎?

[發問] excel若想超連結資料夾,可以嗎?

想請教各位高手大大們
若是在excel中,想超連結整個資料夾檔案的話,可以嗎?

=HYPERLINK("文件夾地址","顯示的名稱")

TOP

1.自動列出資料夾中所有檔案於存儲存格中+自動建立超連結如下
1.1 "C:\AAA\" 自行變更為需求資料夾address

Sub yy()
Dim s$, mpath$, mypath$, myname$, i%
s = "*.xls"
mpath = "C:\AAA\"
mypath = mpath & s
myname = Dir(mypath, vbNormal)
i = 1
Do While myname <> ""
Cells(i, 1) = myname
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:= _
mpath & myname, TextToDisplay:=Cells(i, 1).Text
  i = i + 1
myname = Dir
Loop
End Sub

TOP

        靜思自在 : 太陽光大、父母恩大、君子量大,小人氣大。
返回列表 上一主題