VBA 读取当前目录下的Excel

你可以使用以下代码来读取当前目录下的 Excel 文件：

Sub ReadExcelFiles()
    Dim myPath As String
    Dim myFile As String
    Dim wb As Workbook
    
    myPath = ThisWorkbook.Path '获取当前目录路径
    myFile = Dir(myPath & "\*.xlsx") '获取当前目录中的所有 .xlsx 文件
    
    Do While myFile <> ""
        Set wb = Workbooks.Open(myPath & "\" & myFile) '打开当前文件
        '在这里进行你的读取操作
        wb.Close SaveChanges:=False '关闭文件，不保存更改
        myFile = Dir '获取下一个文件
    Loop
End Sub

此代码将遍历当前目录下的所有 .xlsx 文件，并在其中打开每个文件以进行读取操作。你可以在 `Do While` 循环中添加你自己的代码来读取和处理文件中的数据。