Excel VBA跨工作簿复制列报错及无打开工作簿实现方法咨询

一、现有代码的错误点 #

insertCols1的问题 #

• 参数未正确调用：代码中Windows("srcWb")是硬写的固定字符串，没有使用传入的参数，需改为Windows(srcWB)；同理Sheets("sht")要改成Sheets(sht)
• 冗余操作：没必要用Activate和Select，VBA无需激活工作表、选中区域就能直接操作对象，这类操作反而容易引发错误

insertCols2的问题 #

• 对象层级错误：Worksheets("WA_Ja22Mar22.xlsx")写法错误，必须先指定工作簿再定位工作表，正确格式是Workbooks("WA_Ja22Mar22.xlsx").Worksheets("AMG Q1 PCP")
• 方法名错误：Sheet需改为Worksheets或Sheets

二、工作簿已打开时的修正代码 #

去掉冗余的激活/选择操作，直接通过对象引用完成复制：

Sub insertCols1(srcWB As String, destWB As String, srcShtName As String, destShtName As String)
    ' 直接复制源工作表的G到AE列区域
    Workbooks(srcWB).Worksheets(srcShtName).Columns("G:AE").Copy
    ' 在目标工作表A列插入内容，将原有列向右移位
    Workbooks(destWB).Worksheets(destShtName).Columns("A:A").Insert Shift:=xlToRight
End Sub

Sub maincall()
    ' 参数顺序：源工作簿名、目标工作簿名、源工作表名、目标工作表名
    Call insertCols1("WA_Ja22Mar22.xlsx", "WA_Q1 Jan 22-Mar 22.xlsx", "AMG Q1 PCP", "AMX Q1 Done")
End Sub

⚠️ 注意：工作簿名（需带.xlsx后缀）和工作表名必须完全匹配，空格、特殊符号都不能出错

三、不打开工作簿实现复制 #

用GetObject可以后台加载源工作簿，不显示界面完成操作：

Sub CopyColsWithoutOpen()
    Dim srcWb As Object
    Dim destWb As Workbook
    Dim srcSht As Object
    Dim destSht As Worksheet
    
    ' 这里将当前运行代码的工作簿设为目标，也可指定其他已打开的工作簿
    Set destWb = ThisWorkbook
    Set destSht = destWb.Worksheets("AMX Q1 Done")
    
    ' 后台加载源工作簿，必须填写完整绝对路径
    Set srcWb = GetObject("C:\你的文件路径\WA_Ja22Mar22.xlsx")
    Set srcSht = srcWb.Worksheets("AMG Q1 PCP")
    
    ' 执行复制和插入操作
    srcSht.Columns("G:AE").Copy
    destSht.Columns("A:A").Insert Shift:=xlToRight
    
    ' 关闭源工作簿，不保存任何修改
    srcWb.Close SaveChanges:=False
    
    ' 释放对象，避免内存占用
    Set srcSht = Nothing
    Set srcWb = Nothing
    Set destSht = Nothing
    Set destWb = Nothing
End Sub

⚠️ 注意：源文件必须填写完整绝对路径，比如D:\报表文件夹\WA_Ja22Mar22.xlsx，不能只写文件名

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