VBA从其他工作簿选择列时出现Run time 1004错误如何解决

Runtime 1004: Select method of worksheet class failed报错的根本原因是VBA不支持直接选中未处于激活状态的工作簿内的工作表或单元格，绝大多数同类报错都是因为代码中滥用Select、Activate方法导致的，你可以直接用对象绑定的方式规避这个问题，不需要调用选中类方法。

可用参考代码 #

Sub 跨工作簿复制列()
    ' 声明对象变量
    Dim 源工作簿 As Workbook
    Dim 目标工作簿 As Workbook
    Dim 源工作表 As Worksheet
    Dim 目标工作表 As Worksheet
    
    ' 绑定当前运行代码的工作簿为目标工作簿
    Set 目标工作簿 = ThisWorkbook
    ' 可替换为指定工作表，例：Set 目标工作表 = 目标工作簿.Sheets("结果表")
    Set 目标工作表 = 目标工作簿.ActiveSheet
    
    ' 替换为你自己的源文件实际路径，只读打开避免文件占用冲突
    Set 源工作簿 = Workbooks.Open("C:\Users\XXX\Desktop\你的源文件.xlsx", ReadOnly:=True)
    ' 替换为源文件中你要取数的工作表名称
    Set 源工作表 = 源工作簿.Sheets("数据源")
    
    ' 示例为复制源表B列到目标表A列，可自行修改列号
    源工作表.Columns("B").Copy Destination:=目标工作表.Columns("A")
    ' 若只需复制数值不需要格式，可替换为以下代码，运行效率更高
    ' 目标工作表.Columns("A").Value = 源工作表.Columns("B").Value
    
    ' 关闭源工作簿不保存
    源工作簿.Close SaveChanges:=False
    
    ' 释放对象内存
    Set 源工作表 = Nothing
    Set 源工作簿 = Nothing
    Set 目标工作表 = Nothing
    Set 目标工作簿 = Nothing
End Sub

关键注意事项 #

• 所有操作直接绑定对应工作簿、工作表对象，不需要调用Select、Activate方法，既可以避免1004报错，运行效率也远高于选中后操作的写法
• 代码中的文件路径、工作表名称、复制的列号都要和你实际的使用场景完全匹配，注意名称的空格、大小写差异
• 如果一定要保留Select写法（非常不推荐），必须先激活对应工作簿和工作表再执行选中操作，示例：源工作簿.Activate: 源工作表.Activate: 源工作表.Columns("B").Select，该写法极易因手动切换窗口、后续操作变更活动对象再次触发报错

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