首页 > Excel专区 > Excel函数 >

Vba实现同一文件夹下的批量文件生成excel表格超级链接

Excel函数 2022-02-08 21:40:58

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表里今天就为大家介绍到这里。有疑问可以留言板或此处留言交流。


标签: 代码批量编程表里excel函数

office教程网 Copyright © 2016-2020 https://www.office9.cn. Some Rights Reserved.