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

是因为在VBA中，默认情况下，VBA只能访问当前工作簿所在的文件夹中的其他工作簿。如果要访问同一文件夹中的其他工作簿，可以使用完整的文件路径来引用这些工作簿。

在VBA中，可以使用FileSystemObject对象来处理文件和文件夹。以下是一个示例代码，演示如何使用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

在上述示例代码中，首先获取当前工作簿所在的文件夹路径，然后使用FileSystemObject对象遍历文件夹中的所有文件。通过判断文件的扩展名是否为".xls"或".xlsx"来确定是否为Excel文件。然后使用Workbooks.Open方法打开工作簿，可以在打开的工作簿中编写读取数据的代码。最后关闭工作簿。

这是一个简单的示例，你可以根据实际需求进行修改和扩展。如果需要更多关于VBA的帮助，可以参考腾讯云的Excel VBA开发文档：Excel VBA开发。

请注意，以上答案仅供参考，具体的解决方案可能因实际情况而异。