返回列表 上一主題 發帖

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

馨。

帖子
53 
主題
24 
精華
0 
積分
87 
點名
0  
作業系統
windows10 
軟體版本
office2016 
閱讀權限
20 
性別
女 
註冊時間
2016-2-13 
最後登錄
2018-11-3 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-3-27 23:13 | 只看該作者

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

想請教各位高手大大們
若是在excel中，想超連結整個資料夾檔案的話，可以嗎？
收藏 分享

fengetianxia

帖子
93 
主題
3 
精華
0 
積分
134 
點名
0  
作業系統
WINDOWS7 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2016-3-21 
最後登錄
2020-11-30 
2#
發表於 2017-3-28 12:11 | 只看該作者
=HYPERLINK("文件夾地址","顯示的名稱")

TOP

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
3#
發表於 2017-4-7 16:33 | 只看該作者
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

        靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。
返回列表 上一主題