Excel VBA：合并两个宏实现从外部工作簿复制指定单元格数据

嘿，我来帮你把需求整合到一个宏里，实现一键从外部工作簿拉取数据到当前表的B7:AD7行。下面是完整的可运行代码，我会给你讲清楚每个部分的作用：

Sub ImportDataFromExternalSource()
    Dim HistoryTool As Workbook
    Dim CWB As Workbook
    Dim TargetRange As Range
    Dim SourceRange As Range
    Dim ExternalFilePath As String
    
    ' 先锁定当前要填充数据的工作簿
    Set CWB = ThisWorkbook
    ' 明确目标区域：当前活动表的B7到AD7
    Set TargetRange = CWB.ActiveSheet.Range("B7:AD7")
    
    ' --- 两种指定外部文件的方式，选一种就行 ---
    ' 方式1：硬编码文件路径（适合固定位置的文件）
    ExternalFilePath = "C:\你的文件路径\外部工作簿.xlsx" ' 替换成你的实际路径
    On Error Resume Next
    Set HistoryTool = Workbooks.Open(ExternalFilePath)
    On Error GoTo 0
    
    ' 方式2：让用户手动选择文件（更灵活，推荐！）
    ' ExternalFilePath = Application.GetOpenFilename("Excel文件 (*.xlsx;*.xls), *.xlsx;*.xls")
    ' If ExternalFilePath = "False" Then Exit Sub ' 用户取消选择就直接退出
    ' Set HistoryTool = Workbooks.Open(ExternalFilePath)
    
    ' 检查外部工作簿是否成功打开
    If HistoryTool Is Nothing Then
        MsgBox "打不开外部工作簿哦！检查下路径对不对，或者文件是不是被占用了～", vbExclamation
        Exit Sub
    End If
    
    ' 定位外部工作簿里的目标数据区域
    ' 这里要改成你实际的工作表名称和数据范围！比如外部表的Sheet2的A1:AC1
    On Error Resume Next
    Set SourceRange = HistoryTool.Sheets("你的目标工作表名").Range("B7:AD7")
    On Error GoTo 0
    
    If SourceRange Is Nothing Then
        MsgBox "外部工作簿里找不到指定的工作表或数据区域呀！", vbExclamation
        HistoryTool.Close SaveChanges:=False ' 打开了就关掉，别留着
        Exit Sub
    End If
    
    ' 把数据复制过去
    SourceRange.Copy Destination:=TargetRange
    
    ' 关闭外部工作簿，注意不要保存，避免误改原文件
    HistoryTool.Close SaveChanges:=False
    
    MsgBox "数据导入搞定啦！", vbInformation
End Sub

重点注意事项： #

• 文件路径/选择方式：如果你的外部文件位置固定，用方式1；如果经常变动，用方式2，让用户自己选文件更靠谱。
• 来源区域要改对：一定要把HistoryTool.Sheets("你的目标工作表名").Range("B7:AD7")里的工作表名称和数据范围换成你实际的来源位置，不然会找不到数据。
• 错误提示：加了简单的错误处理，出问题会弹窗告诉你哪里错了，不会让宏突然卡死。
• 保护原文件：关闭外部工作簿时用SaveChanges:=False，确保你只是读取数据，不会不小心修改原文件的内容。

操作步骤： #

1. 打开你的Excel文件，按Alt + F11打开VBA编辑器。
2. 找到你原来放宏的模块，把上面的代码粘贴进去。
3. 修改代码里的路径、工作表名、数据范围为你的实际信息。
4. 回到Excel，给按钮指定这个宏，点击按钮就能自动完成导入啦！

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