VBA代码执行PasteSpecial Link=True时报错1004求助

我帮你排查下这个1004错误的根源，主要有两个核心问题：错误的PasteSpecial语法和过度依赖Select/Activate操作，咱们一步步修正：

问题1：PasteSpecial的语法错误 #

你写的ActiveSheet.PasteSpecial (Link = True)是错误的写法，VBA里命名参数需要用:=而不是=，而且括号的使用也不符合规范。正确的链接粘贴写法应该是：

TargetRange.PasteSpecial Link:=True

问题2：Select/Activate导致的不稳定 #

VBA里频繁用Select和Activate很容易触发1004错误，因为这些操作依赖当前活动的窗口/工作表，稍有不慎就会因为对象引用混乱报错。咱们完全可以直接通过对象引用操作，不需要激活或选择任何对象。

修正后的完整代码 #

下面是调整后的代码，我移除了所有不必要的Select/Activate，修正了PasteSpecial的语法，同时保留你的业务逻辑：

Dim I As Long
Dim K As Long
Dim Plage() As String
Dim Dummy As String
Dim Adresses() As String
Dim ObjetCible As Workbook
Dim AdresseCible As String
Dim Fichiersource As Workbook
Dim ClasseurType As Workbook

' 获取表格范围和目标文件路径
Plage = Plagedetab("C:\Users\Oumayna EL JAHRANI\Desktop\Test\TABLEAUX_PILLIER_III_CONSO")
Adresses = Adressescibles("C:\Users\Oumayna EL JAHRANI\Desktop\Test\TABLEAUX_PILLIER_III_CONSO")

' 打开源文件和模板文件
Set Fichiersource = Workbooks.Open("C:\Users\Oumayna EL JAHRANI\Desktop\Test\TABLEAUX_PILLIER_III_CONSO")
Debug.Print Fichiersource.Name
Set ClasseurType = Workbooks.Open("C:\Users\Oumayna EL JAHRANI\Desktop\Test\Fichier Type.xlsx")

For I = 1 To Fichiersource.Sheets.Count
    AdresseCible = Adresses(I)
    Debug.Print AdresseCible
    Set ObjetCible = Workbooks.Open(AdresseCible)
    Dummy = Plage(I)
    Debug.Print Dummy
    
    ' 复制格式到前两个工作表
    For K = 1 To ClasseurType.Sheets.Count - 1
        If K = 1 Or K = 2 Then
            Debug.Print CStr(ClasseurType.Sheets.Count)
            ' 直接引用对象，无需Activate/Select
            Fichiersource.Worksheets(I).Range(Dummy).Copy
            ObjetCible.Worksheets(K).Range("C7").PasteSpecial Paste:=xlPasteFormats, _
                Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            Application.CutCopyMode = False
        ElseIf K = 3 Then
            ' 这里可以补充K=3时的逻辑
        End If
    Next K
    
    ' 从第4个工作表复制链接到前两个工作表
    ' 复制到第2个工作表
    ObjetCible.Worksheets(4).Range(Dummy).Copy
    ObjetCible.Worksheets(2).Range("C7").PasteSpecial Link:=True
    
    ' 复制到第1个工作表
    ObjetCible.Worksheets(4).Range(Dummy).Copy
    ObjetCible.Worksheets(1).Range("C7").PasteSpecial Link:=True
    
    Application.CutCopyMode = False
    ObjetCible.Close SaveChanges:=True
Next I

' 记得最后可以关闭打开的文件（如果需要）
' Fichiersource.Close SaveChanges:=False
' ClasseurType.Close SaveChanges:=False
End Sub

关键改进点说明 #

1. 直接对象引用：所有操作都通过Workbook.Worksheet.Range的方式直接定位，彻底摆脱对ActiveSheet、Selection的依赖，避免因焦点变化导致的错误。
2. 修正PasteSpecial语法：把错误的(Link = True)改成Link:=True，这是VBA命名参数的标准写法。
3. 清理CutCopyMode：每次复制后及时清除复制模式，减少内存占用和潜在的交互冲突。

这样调整后，你的链接粘贴逻辑应该就能正常执行，不会再弹出1004错误了。

内容的提问来源于stack exchange，提问作者Oumayma El Jahrani