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表里今天就为大家介绍到这里。有疑问可以留言板或此处留言交流。
0
投稿猜你喜欢
word页眉横线怎么设置长短？页眉的横线设置好了之后都是默认的格式，部分同学觉得这个线很长想要短一些可以更方便，但是不知道怎么去设置，所以我- 随着电脑科技的进步，电脑系统也增加了越来越多的新功能，我们使用操作系统的时候也越来越觉得舒适，当我们觉得系统亮度太亮的时候，我们可以开始系统
- mac电脑如何切换双系统？很多mac电脑的用户都在苹果系统的基础上安装了windows系统，那么在使用过程中，要怎么进行双系统的切换呢？下面
- 最近有小伙伴反应自己的win10原版系统崩溃，无法开机进入安全模式系统内修复，这该怎么办？事实上，我们可以从新的系统下载，用U盘安装，今天小
- epic和steam有什么区别？epic和steam都是当下炽手可热的游戏平台，近期有不少小伙伴们都十分好奇这两款火热的游戏平台有什么区别，
- word文档使用涂鸦笔怎么使用？Word文档拥有强大丰富的个性化功能，比如支持用户使用涂鸦笔进行创作，那么在word中涂鸦笔具体要怎么使用呢
- SSSvr.exe is a process associated with the VAIO Media Music Server fro
- “嘿，Siri”是 iOS8 当中的一个新功能，通过语音即可唤醒 Siri。当你的手“很忙”的时候这是一个不错的功能，但要想使用这个语音功能
- 前几日微软才刚向用户正式推送了win10预览版10122，现在win10预览版10125又随之曝光了。下文小编就为大家奉上win10预览版1
- 有些小伙伴在使用win10系统的时候误操作把我的电脑图标删了，也有些小伙伴是新装了win10系统就没有我的电脑图标。这些情况该那么办呢？今天
- 一、lookup 是从一行中或一列中找数据vlookup 从连续的几个列构成的区域中找数据二、lookup 可以有两组数据，一个是查找用，一
- 当win10系统升级后，有小伙伴反应说自己的win10笔记本wlan打不开怎么办？打开疑难解答进行检测也无法修复。下面小编就教下大家怎么解决
- 在Windows 10系统中无法播放土豆视频，显示y2001错误代码提示，该怎么办呢？如果使用IE浏览器出现这样的情况，首先可以通过修复IE
- word文档怎么设置多页面显示？word文档有很多页面，想要让页面都显示出来看，该怎么办呢？下面我们就来看看word文档多页显示排版的教程，
- 在日常生活中我们经常会需要进行各种打印，比如打印一些花名册，打印一些讲话稿等等内容。在Excel办公中编辑数据之后如果有需要我们可以将其打印
- 如果谈起Excel里最先被大家所认识和熟悉的函数，大概也就是IF、SUM和VLOOKUP这三家伙了，其中IF函数作为条件判断函数，简单又实用
- 在Excel2010中，复制内容之后，在目标单元格上单击鼠标右键，在选择性粘贴右侧有个箭头，单击箭头会出现选择性粘贴的所有粘贴方式，而且按粘
- 我们在使用wps表格的时候，有时会发现数据显示不全，这时我们可以通过拉宽wps表格来解决，下面就让小编告诉大家将wps表格增加宽的使用技巧。
- 我们在平时使用电脑的时候，有些情况下可能会出现电脑开机的时候提示：报错lsass.exe应用程序正常初始化失败的情况。对于这种问题小编觉得可
- 主板驱动有必要更新升级吗？在正常的情况下，主板驱动是不需要更新升级的，因为带来的风险可能导致系统与硬件不兼容，一般来说没必要升级更新，如果是
