EXCEL VBA自动读取文件夹中不同格式的文件名写入excel并加上超链接

最新推荐文章于 2024-06-15 14:36:27 发布

SsuperBao

最新推荐文章于 2024-06-15 14:36:27 发布

阅读量2.3k

点赞数 2

文章标签： vba excel

本文链接：https://blog.csdn.net/SsuperBao/article/details/106403563

版权

该博客介绍了如何使用VBA在Excel中自动读取指定文件夹内的不同格式文件名，并在选中单元格后方创建带有超链接的列表。VBA代码能处理各种格式的文件，方便用户快速访问文件。

摘要由CSDN通过智能技术生成

文件夹内形式

可以看到文件夹内文件的格式都不同。
文件夹内形式

VBA代码

Sub addHyper()
Set fso = CreateObject("Scripting.FileSystemObject")
folder_location = "E:\CPA会计-张敬富\讲义\"
Set Files = fso.GetFolder(folder_location).Files
i = 0
For Each file In Files
    i = i + 1
    fn = file.Name
    Selection.Offset(1, 0).Select
    Selection = Str(i) & ". " & fso.GetBaseName(fn)
    ActiveSheet.Hyperlinks.Add anchor:=Selection, Address:=folder_location & fn
Next
End Sub