VBA跨工作簿复制粘贴报错：如何修复‘对象不支持该属性或方法’问题

我帮你排查了代码里的几个关键问题，正是这些导致了你遇到的Object doesn't support this property or method错误，以及复制源不对的问题。下面是问题分析和修复后的代码：

问题根源拆解 #

• 未限定Range的父对象：你在With uploader块中写的Range("A1:J100").Copy没有加前缀.，这意味着这个Range并不会关联到uploader工作簿，而是默认使用当前活动的工作簿（也就是你的CurrentBook），这就是宏从错误来源复制的核心原因。
• 多余的语法错误：If uploadfile = "False" Then Exit Sub后面多了一个End If，这会触发编译错误。
• 依赖Active对象的风险：使用Activate、Select、Selection这类操作非常不稳定，一旦工作簿/工作表焦点变化，代码就会出错。
• 数据类型溢出风险：lastRow用Integer类型，当工作表行数超过32767时会直接溢出崩溃，应该改用Long类型。
• 未明确指定工作表：代码中没有指定具体操作的工作表，默认使用活动工作表，容易引发混淆。

修复后的完整代码 #

Sub CopyToTableEnd()
    Dim uploadfile As Variant
    Dim uploader As Workbook
    Dim CurrentBook As Workbook
    Dim lastRow As Long ' 改用Long避免行数溢出
    Dim sourceWS As Worksheet ' 明确源工作表
    Dim targetWS As Worksheet ' 明确目标工作表
    
    ' 绑定当前工作簿和目标工作表（这里假设是当前活动工作表，你可以改成Sheet1这类具体名称）
    Set CurrentBook = ThisWorkbook ' 用ThisWorkbook代替ActiveWorkbook，更可靠
    Set targetWS = CurrentBook.ActiveSheet ' 或者指定具体工作表，比如Set targetWS = CurrentBook.Sheets("目标表")
    
    ' 选择要上传的文件
    uploadfile = Application.GetOpenFilename()
    If uploadfile = False Then Exit Sub ' 这里不需要引号，因为GetOpenFilename返回的是布尔值False，不是字符串
    
    ' 打开文件并绑定源工作表
    Set uploader = Workbooks.Open(uploadfile)
    Set sourceWS = uploader.ActiveSheet ' 或者指定具体工作表，比如Set sourceWS = uploader.Sheets("数据源")
    
    ' 复制源区域到目标表末尾
    Application.CutCopyMode = False
    sourceWS.Range("A1:J100").Copy
    lastRow = targetWS.Cells(targetWS.Rows.Count, "A").End(xlUp).Row + 1
    targetWS.Range("A" & lastRow).PasteSpecial Paste:=xlPasteAll ' 直接粘贴到目标起始单元格，不需要选择整个区域
    
    ' 关闭源工作簿，不保存更改
    uploader.Close SaveChanges:=False
    Application.CutCopyMode = False ' 清除复制模式
End Sub

关键修改说明 #

1. 用ThisWorkbook代替ActiveWorkbook：ThisWorkbook指的是包含当前宏的工作簿，比ActiveWorkbook更可靠，不会因为焦点变化而改变。
2. 明确绑定工作表：新增sourceWS和targetWS变量，分别指定源工作簿和目标工作簿的具体工作表，彻底避免默认对象的混淆。
3. 修正Range的父对象：所有Range操作都加上工作表前缀（比如sourceWS.Range(...)），确保操作的是正确的工作表。
4. 移除多余的End If：修复语法错误。
5. 替换Select/Selection：直接定位目标单元格进行粘贴，避免依赖活动对象。
6. 改用Long类型存储行号：防止行数超过32767时的溢出错误。
7. 关闭工作簿时指定SaveChanges:=False：避免弹出保存提示，让宏自动执行。

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