批量提取文件名 vba

上文提到文件名的录入,那么,若是文件名是不规律的呢,找找老朋友Excel,VBA能够作到。
在要提取文件名的文件夹中新建一个Excel文档,“工具”--“宏”--“Visual Basic编辑器”--“插入”--“模块”,粘贴如下内容:

Sub 提取同目录下文件名()
    Dim file As String
    Dim n As Integer
    n = 1
    file = Dir(ActiveWorkbook.Path & "\")
    Do Until Len(file) = 0
        Range("a" & n) = file
        ActiveSheet.Hyperlinks.Add anchor:=Range("a" & n), Address:=file
    n = n + 1
    file = Dir
    Loop
    MsgBox "报告长官,该文件夹共有文件" & n & "个,汇报完毕,请指示!"
End Sub


Then,运行该宏,搞定 编辑器

本站公众号
   欢迎关注本站公众号,获取更多信息