第一章 入門篇

1.26 超鍊接

在上一節中，我們用Dir語句把指定文件夾裡的指定類型的文件寫到表格裡了。如果在文件名稱上加上超鍊接，點擊超鍊接直接打開文件，會讓我們的日常辦公更加方便快捷。

先讓我們來看看超鍊接的語法：

expression.Add(Anchor,Address,SubAddress,ScreenTip,TextToDisplay)

大家看了這個是不是有點懵圈？這是啥呀這是？

讓我們換一種方式來表達超鍊接的語法：

ActiveSheet.Hyperlinks.Add 超鍊接放的位置（必選），超鍊接地址（必選），子地址（可選），鼠标放在超鍊接上顯示的提示（可選），超鍊接顯示字符（可選，默認顯示地址）

在活動工作表建立一個超鍊接，說清楚這個超鍊接放在哪個單元格，要鍊接哪個文件，一個超鍊接就完成了！

建議：超鍊接顯示字符這個參數最好設置為顯示文件名稱，要不然它會顯示完整的文件路徑，一大串字符串，讓人看得頭暈！

例句：

Sheet1.Hyperlinks.Add Cells(1, 1), "F:\VBA學習\VBA學習.xls", , , filename

在表1的“a1”單元格建立一個超鍊接，鍊接"F:\VBA學習\VBA學習.xls"這個文件，在“a1”單元格顯示"VBA學習.xls"。如果不在最後加上filename這個參數，那麼在“a1”單元格裡顯示的内容就是"F:\VBA學習\VBA學習.xls"。filename這個參數是我們在程序裡用到的變量名稱，在下面的小程序裡我們會看到它的來源。

小程序：

我們還是沿用上節課用到的例子，查詢指定文件夾下的指定類型的文件，把文件列表寫到表格裡去，然後加上超鍊接。

Sub dir獲取文件名()

Dim 地址$, filename$, n%, 類型$

地址 = "F:\VBA學習\"

類型 = [b10] '選取文件類型

filename = Dir(地址 & "*" & 類型)

Do

n = n 1

Cells(n 1 , 1) = n

Sheet1.Hyperlinks.Add Cells(n 1, 2), 地址 & filename, , , filename

'參數含義：放置單元格（1）、超鍊接地址（2）、顯示名稱（5）

filename = Dir

Loop Until filename = ""

End Sub

與上節課不同的是，上節課我們在B列單元格直接填入了循環到的文件名稱。這節課我們在該列單元格建立一個超鍊接，鍊接到循環到的文件，單元格裡顯示的内容是循環到的文件名稱。運行小程序，就會得到下面的效果：

通過選擇文件類型，查詢到指定文件目錄下的該類型的所有文件，列出清單，并且都加上了超鍊接，想打開哪個文件直接點擊就OK了。這個程序雖然短小，但對于管理自己的文件，豈不是非常方便？這個小程序裡的地址是寫死的，我們也可以這樣寫：

地址 = InputBox("請輸入文件地址：")

讓用戶在程序開始就輸入要查詢文件的地址，這樣這個小程序的用法就更加靈活了。

往期精彩回顧：

學習VBA，報表做到飛 第一章 入門篇 1.25 Dir語句

學習VBA，報表做到飛 第一章 入門篇 1.24 Do Loop語句

學習VBA，報表做到飛 第一章 入門篇 1.23 With語句

我是雲飛揚，職場财會人員，願與大家分享表格制作和數據統計分析的技巧與方法，希望大家的工作更便捷，更輕松！

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!