返回列表 上一主題 發帖

[發問] 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

        靜思自在 : 【時間無法遮擋】怕時間消逝,花了許多心血,想盡各式方法要遮擋時間,結果是:浪費了更多時間,且一無所成!
返回列表 上一主題