VBA无法读取同一文件夹中的其他工作簿

Sub ReadOtherWorkbooks()
    Dim fso As Object
    Dim folderPath As String
    Dim fileName As String
    Dim wb As Workbook
    
    ' 设置文件夹路径
    folderPath = ThisWorkbook.Path
    
    ' 创建FileSystemObject对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 遍历文件夹中的所有文件
    For Each file In fso.GetFolder(folderPath).Files
        ' 检查文件类型是否为Excel文件
        If Right(file.Name, 4) = ".xls" Or Right(file.Name, 5) = ".xlsx" Then
            ' 打开工作簿
            Set wb = Workbooks.Open(file.Path)
            
            ' 在这里可以编写读取工作簿的代码
            
            ' 关闭工作簿
            wb.Close SaveChanges:=False
        End If
    Next file
    
    ' 释放对象
    Set fso = Nothing
End Sub