上文提到文件名的录入,那么,如果文件名是不规律的呢,找找老朋友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,运行该宏,搞定!
转载于:https://blog.51cto.com/dgcnn/791952