多区域与多工作表复制问题：Union方法调用失败求助

嘿，我来帮你搞定这个Method 'Union' of object_'Global' failed的报错！咱们一步步拆解问题，再给你可行的解决方案：

核心错误原因 #

你遇到的报错本质是Union方法的硬限制：它只能合并同一个工作表内的单元格区域，而你现在试图把Sheet1和Sheet2的两个区域合并，跨工作表的操作直接违反了这个规则，所以必然触发报错。

解决方案 #

方案1：分别复制每个区域到目标位置 #

既然不能跨表Union，那咱们就逐个处理每个区域，复制到Sheet5的对应位置（提前规划好粘贴起点，避免内容重叠）：

Function WorkbookName() As String
    WorkbookName = ThisWorkbook.Name
End Function

Sub dataimport()
    Dim Datapath As String, Data As String
    Dim sourceWB As Workbook
    Dim targetWS As Worksheet
    
    ' 提前引用目标工作表，避免频繁切换激活
    Set targetWS = ThisWorkbook.Sheets("Sheet5")
    
    ' 获取路径和工作簿名称
    With ThisWorkbook.Sheets("Input")
        Datapath = .Cells(15, 4).Value
        Data = .Cells(15, 3).Value
    End With
    
    ' 打开源工作簿并引用
    Set sourceWB = Application.Workbooks.Open(Datapath)
    
    ' 复制Sheet1的区域到Sheet5的A1起始位置
    sourceWB.Sheets("Sheet1").Range("A1:AK518").Copy
    targetWS.Range("A1").PasteSpecial Paste:=xlPasteValues
    
    ' 复制Sheet2的区域到Sheet5的A519起始位置（避开上一个区域）
    sourceWB.Sheets("Sheet2").Range("B2:J10").Copy
    targetWS.Range("A519").PasteSpecial Paste:=xlPasteValues
    
    ' 清理剪贴板，关闭源工作簿
    Application.CutCopyMode = False
    sourceWB.Close savechanges:=False
End Sub

方案2：用临时工作表中转（模拟Union合并效果） #

如果你非要把两个区域合并成一个整体复制，可以先在源工作簿里新建临时工作表，把两个区域复制过去，再统一复制到目标Sheet5：

Function WorkbookName() As String
    WorkbookName = ThisWorkbook.Name
End Function

Sub dataimportWithTempSheet()
    Dim Datapath As String, Data As String
    Dim sourceWB As Workbook
    Dim targetWS As Worksheet, tempWS As Worksheet
    Dim r1 As Range, r2 As Range
    
    Set targetWS = ThisWorkbook.Sheets("Sheet5")
    
    With ThisWorkbook.Sheets("Input")
        Datapath = .Cells(15, 4).Value
        Data = .Cells(15, 3).Value
    End With
    
    Set sourceWB = Application.Workbooks.Open(Datapath)
    
    ' 创建临时工作表
    Set tempWS = sourceWB.Sheets.Add(After:=sourceWB.Sheets(sourceWB.Sheets.Count))
    
    ' 复制两个区域到临时表
    Set r1 = sourceWB.Sheets("Sheet1").Range("A1:AK518")
    r1.Copy tempWS.Range("A1")
    
    Set r2 = sourceWB.Sheets("Sheet2").Range("B2:J10")
    r2.Copy tempWS.Range("A" & r1.Rows.Count + 1)
    
    ' 复制临时表的所有内容到目标Sheet5
    tempWS.UsedRange.Copy
    targetWS.Range("A1").PasteSpecial Paste:=xlPasteValues
    
    ' 删除临时表，清理并关闭
    Application.DisplayAlerts = False
    tempWS.Delete
    Application.DisplayAlerts = True
    Application.CutCopyMode = False
    sourceWB.Close savechanges:=False
End Sub

额外代码优化提示 #

• 变量声明要明确：原来的Dim r1, r2, myMultipleRange As Range只有myMultipleRange是Range类型，r1和r2默认是Variant，应该写成Dim r1 As Range, r2 As Range, myMultipleRange As Range
• 尽量避免Activate和Select：这些操作不仅运行慢，还容易因为工作表切换出错，直接用变量引用工作表/工作簿更可靠
• 打开工作簿时用变量引用：Set sourceWB = Application.Workbooks.Open(Datapath)比直接用名称调用更稳定

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