VBA宏开发求助：跨工作簿指定工作表数据导入问题

我来帮你搞定这个问题！你的现有代码用了wb.Sheets(1).Move方法，这是直接把整个工作表移动到当前工作簿，所以会生成新工作表。要改成复制数据到指定工作表，我们可以调整代码逻辑，直接复制源数据区域到目标工作表的指定位置，同时也给你推荐不用写宏的简单方法。

一、修改后的VBA宏代码 #

下面的代码会让你选择文件后，把源工作簿第一个工作表的已使用数据区域复制到当前工作簿的指定工作表（比如叫"汇总表"）的最后一行下方，不会创建新表：

Sub importDataToSpecifiedSheet()
    Dim targetWorkbook As Workbook
    Dim sourceWorkbook As Workbook
    Dim targetSheet As Worksheet
    Dim sourceSheet As Worksheet
    Dim sourceDataRange As Range
    Dim targetLastRow As Long
    Dim filter As String
    Dim captionText As String
    Dim selectedFile As Variant
    
    ' 设置当前工作簿为目标工作簿
    Set targetWorkbook = Application.ActiveWorkbook
    ' 指定要导入数据的目标工作表（改成你实际的工作表名称）
    Set targetSheet = targetWorkbook.Sheets("汇总表")
    
    ' 设置文件选择对话框的参数
    filter = "Excel文件 (*.xlsx),*.xlsx"
    captionText = "请选择要导入的Excel文件"
    selectedFile = Application.GetOpenFilename(filter, , captionText)
    
    ' 如果用户取消选择，退出宏
    If selectedFile = False Then Exit Sub
    
    ' 打开选中的源工作簿（设为不可见，提升体验）
    Application.ScreenUpdating = False
    Set sourceWorkbook = Workbooks.Open(selectedFile, ReadOnly:=True)
    Set sourceSheet = sourceWorkbook.Sheets(1) ' 取源工作簿的第一个工作表
    
    ' 获取源工作表的已使用数据区域（包含表头）
    Set sourceDataRange = sourceSheet.UsedRange
    
    ' 找到目标工作表的最后一行，确保数据追加在现有数据下方
    targetLastRow = targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row + 1
    
    ' 复制源数据到目标工作表的指定位置
    sourceDataRange.Copy Destination:=targetSheet.Cells(targetLastRow, 1)
    
    ' 关闭源工作簿，不保存任何修改
    sourceWorkbook.Close SaveChanges:=False
    Application.ScreenUpdating = True
    
    MsgBox "数据导入完成！", vbInformation
End Sub

代码关键说明： #

• 你需要把Set targetSheet = targetWorkbook.Sheets("汇总表")里的"汇总表"改成你实际要导入的工作表名称
• ReadOnly:=True打开源文件时设为只读，避免误改源文件
• UsedRange会自动获取源工作表里有数据的所有区域，不用手动指定范围
• targetLastRow会自动找到目标表的最后一行，新数据会追加在后面，不会覆盖原有内容

二、无需宏的实现方法：Power Query（推荐新手） #

如果你不想写VBA，Excel的Power Query工具可以轻松实现导入数据到指定工作表，步骤如下：

1. 打开你的汇总工作簿，切换到要导入数据的工作表
2. 点击顶部菜单栏的数据选项卡，选择获取数据 -> 从文件 -> 从工作簿
3. 在弹出的对话框中选择要导入的Excel文件，点击导入
4. 在Power Query编辑器中，确认要导入的工作表（默认是第一个），然后点击关闭并上载至
5. 在弹出的对话框中，选择现有工作表，然后指定要导入的起始单元格（比如$A$1或你想要的位置），点击确定

如果需要批量导入多个文件，还可以用Power Query的"从文件夹"功能，一次性导入所有符合条件的文件数据到汇总表，完全不用写代码！

内容的提问来源于stack exchange，提问作者horsebite