Vba实现同一文件夹下的批量文件生成excel表格超级链接
时间:2023-06-16 16:24:16
Vba编程是个好东西,对于非编程出生的人员,学好编程很难,但是入门,我感觉还是比较容易的。我们能看懂vba编程并去整合修改代码,为我所用,我觉得是足够了。今天要介绍的代码,也不是我的。说实话,这段代码,对于非编程人员太难了,我只是整合了下为自己所用罢了。 该excel运行下的vba编程的效果就是把同一文件夹下的批量文件生成一个个能在excel工作表里生成超级链接。方便以后,不沿着路径去打开,也能实现对文件的调用等操作。 以下为完全代码,下面的源文件里也有。具体操作是启用宏,点快捷键alt+F11进入VBE编辑器,复制下段代码进去,点击运行。关于宏和编程的入门使用,请看这篇 尚西博客中的视频介绍 Vba代码如下:
Sub add_link()
On Error GoTo err_exit Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
Dim vritem As Variant With fd
If .Show = -1
Then i = 0
For Each vritem In .SelectedItems
i = i + 1 dname = vritem Next vritem
If i >= 2 Then MsgBox ("不能够选择多个文件夹,请重新选择")
Exit Sub
End If
End If
End With
Set fd = Nothing
dir_name = (dname & "\")
strfilename = Dir(dir_name)
J = 0 n = 2
Do While strfilename <> ""
Sheets(1).Cells(n, 1) = strfilename’sheets(1)代表结果反映在第一个表里,改成2就是第二个表了。下同 Sheets(1).Hyperlinks.Add Anchor:=Sheets(1).Cells(n, 1), Address:=dir_name & strfilename
n = n + 1 J = J + 1
strfilename = Dir
Loop err_exit:
Exit Sub
End Sub 为方便使用,使用控件生成按钮,具体界面类似如此。
附上效果
附上源文件批量把文件夹中的excel文件超级链接到excel表里今天就为大家介绍到这里。有疑问可以留言板或此处留言交流。
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
卓大师刷机专家怎么用?刷机专家卓大师电脑版怎么用教程
![](https://img.aspxhome.com/file/2023/30/a270425_0s.png)
Mac文本编辑器Ultraedit支持哪些语言?
![](https://img.aspxhome.com/file/2023/2/a212502_0s.jpeg)
联想拯救者r7000搜索不到wifi怎么解决?
![](https://img.aspxhome.com/file/2023/30/a265599_0s.png)
PPT插入艺术字基础教程
MacOS如何把照片传到iPad上?MacOS把照片共享到iPad的方法
![](https://img.aspxhome.com/file/2023/3/a215933_0s.png)
AMD Ryzen太猛!Intel七代CPU刚上市就全面降价
![](https://img.aspxhome.com/file/2023/2/a291395_0s.jpg)
Windows的IP设置在哪里查看?怎么查看?
![](https://img.aspxhome.com/file/2023/28/a244877_0s.jpg)
如何通过dism命令解压Win8/8.1下install.wim文件
![](https://img.aspxhome.com/file/2023/4/a305394_0s.jpg)
超桌面!NVIDIA正式发布GTX 1050/GTX 1050Ti显卡
![](https://img.aspxhome.com/file/2023/4/a307308_0s.jpg)
安装win7卡在启动界面不动了怎么办?
![](https://img.aspxhome.com/file/2023/4/a310387_0s.png)
Win7系统不小心禁用了所有用户账号怎么办
![](https://img.aspxhome.com/file/2023/4/a311584_0s.jpg)
word2010怎么设置分栏效果?
![](https://img.aspxhome.com/file/2023/0/25170_0s.png)
Win10电脑如何恢复注册表自动备份功能?
![](https://img.aspxhome.com/file/2023/4/a302947_0s.jpg)
MAC无线蓝牙键盘如何与其他电脑强制配对
![](https://img.aspxhome.com/file/2023/3/a216113_0s.jpg)
WPS怎么使用表格求和图文教程
Mac如何解压rar,zip等各种格式文件
![](https://img.aspxhome.com/file/2023/6/a210876_0s.jpeg)
wps插入正方形符号的图文教程详解
爱剪辑如何消除视频画面水印
![](https://img.aspxhome.com/file/2023/9/a341414_0s.png)
wps怎么制作一笺信纸
![](https://img.aspxhome.com/file/2023/3/a170973_0s.jpg)
比SUMIF好用10倍,它才是求和函数中的NO.1
![](https://img.aspxhome.com/file/2023/6/a157186_0s.png)