1、右键工作表，点查看代码
2、插入模板，在模块中，复制以下代码，单击运行
亦或增加宏按钮
Sub 罗列所选择文件夹内的所有文件名()
Dim FileToOpen, YN As Variant
Dim 路径 As String, 文件对象 As String, 文件名称 As String, i As Long
Dim Choose_rng As Range
文件对象 = "所有文件 (*.*),*.*" '搜索所有文件
'单选文件夹内的任意文件，目的是获取路径，如果没有选择任何文件则退出
FileToOpen = Application.GetOpenFilename(FileFilter:=文件对象, Title:="请选择当前文件夹内的任意文件", MultiSelect:=False)
If VBA.TypeName(FileToOpen) = "Boolean" Then
MsgBox "没有选择文件": Exit Sub
End If
On Error Resume Next
A:
Err.Clear
Set Choose_rng = Application.InputBox(Prompt:="选择一个单元格", Type:=8)
If Err.Number > 0 Then YN = MsgBox("1:选择“是”重新选择单元格" & Chr(10) & "2:选择否退出程序", vbYesNo, "未选择保存文件名的起始单元格") Else GoTo B
If YN = vbYes Then GoTo A Else: Exit Sub
On Error GoTo 0
B:
路径 = StrReverse(Mid(StrReverse(FileToOpen), WorksheetFunction.Find("\", StrReverse(FileToOpen)), Len(FileToOpen)))
文件名称 = Dir(路径 & "*.*") '获取文件名
Do '
Choose_rng.Cells(1, 1).Offset(i + 1, 0) = 文件名称 '将找到的文件名写入选择的单元格
文件名称 = Dir '查找其他文件
i = i + 1
Loop Until 文件名称 = ""
MsgBox "写入文件名完成"
End Sub
3、选择获取文件名的文件夹中的任意一个文件
4、选择需要罗列文件名的起始位置（单元格）
5、文件名获取完成
