第一章 入门篇
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这个参数是我们在程序里用到的变量名称,在下面的小程序里我们会看到它的来源。
小程序:
我们还是沿用上节课用到的例子,查询指定文件夹下的指定类型的文件,把文件列表写到表格里去,然后加上超链接。
序号 |
文件名称 |
文件类型 |
xls |
查询 |
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语句
我是云飞扬,职场财会人员,愿与大家分享表格制作和数据统计分析的技巧与方法,希望大家的工作更便捷,更轻松!
如若转载,请注明出处:https://www.1dat.com/13496.html