话不多说,上代码
1、无条件输出文件夹下的文件
Sub readFile()
Dim fo As Object
Dim file As Variant
Set fo = CreateObject("Scripting.FileSystemObject")
'ThisWorkbook.Path : 目标文件夹。也可直接写文件夹地址
For Each file In fo.getfolder(ThisWorkbook.Path).Files
Debug.Print file.Name
continue:
Next file
End Sub
结果如下图
2、输出含有【sheet】名字的文件名称
Sub readFile()
Dim fo As Object
Dim file As Variant
Set fo = CreateObject("Scripting.FileSystemObject")
For Each file In fo.getfolder(ThisWorkbook.Path).Files
If Not (InStr(file.Name, "sheet") > 0) Then
GoTo continue
End If
Debug.Print file.Name
continue:
Next file
End Sub
结果如下图