VBA Excel遍历同一目录中的所有.xslm文件

Dim folderPath As String
folderPath = ThisWorkbook.Path

Dim folderPath As String
folderPath = ThisWorkbook.Path

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

Dim folder As Object
Set folder = fso.GetFolder(folderPath)

Dim file As Object
For Each file In folder.Files
    ' 处理每个文件的逻辑
Next file

Dim folderPath As String
folderPath = ThisWorkbook.Path

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

Dim folder As Object
Set folder = fso.GetFolder(folderPath)

Dim file As Object
For Each file In folder.Files
    If Right(file.Name, 5) = ".xlsm" Then
        ' 处理.xlsm文件的逻辑
    End If
Next file

Dim folderPath As String
folderPath = ThisWorkbook.Path

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

Dim folder As Object
Set folder = fso.GetFolder(folderPath)

Dim file As Object
For Each file In folder.Files
    If Right(file.Name, 5) = ".xlsm" Then
        Dim wb As Workbook
        Set wb = Workbooks.Open(file.Path)
        
        ' 对文件进行操作
        
        wb.Close SaveChanges:=True
    End If
Next file