VBA批量导入多个工xls作簿

VBA (Visual Basic for Applications) 是Excel内嵌的一种宏语言，可以用来自动化工作流程，包括批量导入多个Excel文件。要使用VBA批量导入多个Excel工作簿，你可以按照以下步骤操作：

1. 打开VBA编辑器: 首先，在Excel中按下 `Alt + F11` 进入VBA编辑器。

2. 创建一个新的模块: 点击“插入”->“模块”，创建一个新的VBA程序块。

3. 编写循环代码: 在新模块中，编写一个For Each循环结构，遍历指定目录下的所有Excel文件。例如，你可以使用 `Dir()` 函数列出目录下的所有文件，并使用 `FSO` 对象读取每个文件。

Sub ImportMultipleSheets()
    Dim wb As Workbook
    Dim dirPath As String
    Dim filePath As String
    Dim sheetName As String

    ' 设置文件夹路径
    dirPath = "C:\YourFolder\"

    ' 检查是否存在文件夹
    If Dir(dirPath, vbDirectory) = "" Then
        MsgBox "No files found in the specified directory."
        Exit Sub
    End If
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    ' 循环导入每个文件
    For Each filePath In FSO.GetFolder(dirPath).Files
        If Right(filePath.Name, 4) = ".xls" Or Right(filePath.Name, 4) = ".xlsx" Then
            Set wb = Workbooks.Open(filePath.Path)
            
            ' 可能需要更改这里的sheetName变量来选择特定的工作表
            sheetName = "Sheet1" ' 根据实际情况修改
            
            ' 如果需要，可以选择性地导入某个工作表并处理数据
            If wb.Worksheets(sheetName).Exists Then
                ' ... 这里添加数据处理代码
                wb.Worksheets(sheetName).Range("A1").Copy Destination:=ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)) ' 示例复制首行数据到新的工作表
            Else
                MsgBox "Sheet " & sheetName & " not found in " & filePath.Name
            End If
            
            wb.Close False ' 关闭打开的文件，False 参数保留改动
        End If
    Next filePath
End Sub