 1 Public Sub 批量提取文件名() 2 Dim mypath As String, n%, myfile As String '定义变量 3 mypath = 'C:\Users\think\Desktop\宝洁八大问' '文件/夹所在路径 4 n = 1 5 myfile = Dir(mypath & '\*.*') '提取文件路径中的所有文件，此时返回第一个文件的名字 6 Do While myfile <> '' '当文件名不为空时，循环提取文件名 7 Cells(n, 1) = myfile 8 n = n + 1 9 myfile = Dir10 Loop11 End Sub 笔记：Dir函数提取指定文件夹中的文件名称，“*.*”表示提取所有类型的文件；若只提取Excel文件，则写成“\.*xls”，其他文件类型一次类推 |
|
|
