跨工作簿复制单元格区域时出现Run-time error '13': Type mismatch错误

嘿，我之前也踩过这个坑！当你硬编码指定单元格区域做跨工作簿复制时，这个类型不匹配错误，跟那些常见的拼写类语法错误不一样，大概率是对象变量的声明或引用逻辑出了问题，咱们一步步拆解解决：

常见错误原因 #

• 变量类型声明错误：比如你把wb0声明成了字符串（String），或者根本没声明（默认变体类型），但却把它当成Workbook对象来调用方法；rng如果是字符串变量，直接放进Range()里也会出问题，因为Range需要的是Range对象或者合法的区域字符串常量。
• 引用语法冗余/错误：如果wb0已经是一个Workbook对象变量，你却多套了一层Workbooks(wb0)，这会让VBA把对象当成字符串去解析，直接触发类型不匹配。
• 忘记用Set关键字赋值对象：Workbook、Range都是对象类型，必须用Set来赋值，直接写wb0 = Workbooks("xxx.xlsx")会导致类型不兼容。

正确的代码示例 #

咱们用硬编码区域的场景来写一个标准的跨工作簿复制代码：

Sub CopyRangeBetweenWorkbooks()
    ' 声明对象类型变量，这是关键！
    Dim wbSource As Workbook
    Dim wbTarget As Workbook
    Dim rngToCopy As Range
    
    ' 引用已打开的源工作簿（如果未打开，用Workbooks.Open("文件路径")）
    Set wbSource = Workbooks("SourceWorkbook.xlsx")
    ' 引用目标工作簿
    Set wbTarget = Workbooks("TargetWorkbook.xlsx")
    ' 硬编码指定要复制的单元格区域（直接用字符串常量，或赋值给Range对象）
    Set rngToCopy = wbSource.Sheets("Sheet1").Range("A1:C10")
    
    ' 执行复制粘贴（直接指定目标区域，避免剪贴板依赖）
    rngToCopy.Copy Destination:=wbTarget.Sheets("Sheet2").Range("A1")
End Sub

针对你最后一行代码的修正建议 #

假设你的错误代码类似这样：

' 错误示例：变量类型不匹配
Dim wb0 As String
Dim rng As String
wb0 = "Source.xlsx"
rng = "A1:C10"
' 这里会报错，因为Range需要对象或合法常量，不是字符串变量的间接引用
Workbooks(wb0).Sheets("Sheet1").Range(rng).Copy Workbooks("Target.xlsx").Sheets("Sheet2").Range("A1")

可以改成两种方式：

1. 直接使用区域字符串常量，跳过变量：

Workbooks("Source.xlsx").Sheets("Sheet1").Range("A1:C10").Copy Workbooks("Target.xlsx").Sheets("Sheet2").Range("A1")

2. 正确声明并赋值对象变量：

Dim wb0 As Workbook
Set wb0 = Workbooks("Source.xlsx")
wb0.Sheets("Sheet1").Range("A1:C10").Copy Workbooks("Target.xlsx").Sheets("Sheet2").Range("A1")

核心总结 #

这个错误的本质是VBA无法识别你传递的变量/引用类型，只要确保：

• 所有工作簿、单元格区域的对象变量都用Set正确赋值
• 引用工作簿时，区分清楚是用名称字符串（Workbooks("文件名")）还是对象变量（直接用变量名）
• 硬编码区域时，使用带引号的合法字符串常量

就能解决这个类型不匹配的问题啦。

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