在Excel中通过VBA批量导入表格数据，可以遵循以下步骤：
准备工作
打开Excel，按下`Alt + F11`键进入VBA编辑器。
确保在Excel中启用了“开发工具”选项卡。
编写VBA代码
可以通过以下几种方法选择数据源：
直接指定文件路径和文件名。
使用文件对话框选择多个文件。
将数据从数据源复制到目标工作表中。
```vba
Sub 批量导入数据（）
Dim 文件路径 As String
Dim 文件名 As String
Dim 工作簿 As Workbook
Dim 工作表 As Worksheet
Dim lastRow As Long
' 设置数据源文件路径
文件路径 = "C:\path\to\your\excel\files\"
' 在当前工作簿中创建新工作表
Set 工作表 = ThisWorkbook.Sheets.Add
工作表.Name = "批量导入数据"
' 遍历文件夹中的Excel文件
文件名 = Dir（文件路径 & "*.xlsx"）
Do While 文件名 <> ""
' 打开每个Excel文件并复制数据
Set 工作簿 = Workbooks.Open（文件路径 & 文件名）
工作簿.Sheets（1）.UsedRange.Copy
工作表.Cells（工作表.Rows.Count + 1, 1）.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
工作簿.Close SaveChanges:=False
文件名 = Dir（）
Loop
MsgBox "导入完成!"
End Sub
```
代码说明：
`文件路径`：指定包含Excel文件的文件夹路径。
`工作表`：在当前工作簿中创建一个新工作表，用于存放导入的数据。
`文件名`：遍历文件夹中的所有Excel文件名。
`工作簿`：打开每个Excel文件，并将其第一个工作表中的数据复制到当前工作簿的新工作表中。
`PasteSpecial`：使用`xlPasteAll`选项将所有数据粘贴到新工作表中，包括格式和公式。
注意事项：
确保目标工作表中没有现有数据，或者已经清除了现有数据。
如果需要导入的数据源是CSV文件或其他类型的文件，需要编写相应的VBA代码来读取这些文件。
代码中的文件路径应根据实际情况进行修改。
通过以上步骤和代码，你可以轻松实现Excel中表格数据的批量导入。