Excel 粘贴为链接错误

我编写了一段代码，其中包含一个循环，该循环复制源工作簿中的一个特殊单元格，然后打开另一个工作簿，并将复制的数字粘贴到一个特殊单元格，七次之后，我出现以下错误：

这是我的代码：

ActiveSheet.Paste Link:=True

我不明白为什么会这样

Sub Shadow()
    ActiveSheet.Range("$A$1:$I$9627").AutoFilter Field:=4, Criteria1:="basic"
    
    ' Copy filtered worksheet
    Number = Application.WorksheetFunction.Subtotal(3, Range("A1:A500000"))
    
    ActiveSheet.Range("$A$1:$I$9627").SpecialCells(xlCellTypeVisible).Copy
    
    ' Addition of new sheet
    Sheets.Add
    ActiveSheet.Paste
    
    ' Calculating number of rows
    finalrow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' A loop for copying row by row number and date then opening shadowgraph for pasting copied data
    Dim i1 As Integer
    
    For i1 = 2 To finalrow
        ActiveSheet.Cells(i1, 1).Copy
        
        Workbooks.Open Filename:="E:\Attachment\PCI\Clutch disc\FLEXIBALE (RO)\Shadowgraph.xlsm"
        Windows("Shadowgraph.xlsm").Activate
        Range("AW5").Select
        
        ActiveSheet.Paste Link:=True
        
        With Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        Windows("ball99.xlsm").Activate
        
        ' Representing relative name for saving documents
        Dim Name1 As String
        Name1 = ActiveSheet.Cells(i1, 2) & "Shadowgraph"
        ActiveSheet.Cells(i1, 2).Copy
        Windows("Shadowgraph.xlsm").Activate
        Range("E32").Select
        
        ActiveSheet.Paste Link:=True
        
        With Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        
        ' Set work directory
        ChDir "E:\Attachment\PCI\Clutch disc\FLEXIBALE (RO)"
        
        ' Set saving address
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "E:\Attachment\PCI\Clutch disc\FLEXIBALE (RO)\" & _
            Name1, Quality:= _
            xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
            
        Windows("Shadowgraph.xlsm").Activate
        
        ' Closing opened datasheets
        Windows("Shadowgraph.xlsm").Close (False)
    Next i1
    
    Windows("ball99.xlsm").Activate
    
    ' Closing every sheets except main workbook 01
    Dim ws1 As Worksheet
    For Each ws1 In ActiveWorkbook.Worksheets
        If ws1.Name <> "01" Then ws1.Visible = xlSheetHidden
    Next ws1
    
    ' Clearing all fiters
    ActiveSheet.ShowAllData
End Sub

子阴影（）
ActiveSheet.Range（“$A$1:$I$9627”）。自动筛选字段：=4，标准1:=“基本”
'复制筛选的工作表
编号=应用程序.工作表功能.小计（3，范围（“A1:A500000”））
ActiveSheet.Range（“$A$1:$I$9627”）。特殊单元格（xlCellTypeVisible）。复制
“添加新表
表。添加
活动表。粘贴
'计算行数
finalrow=单元格（Rows.Count，1）.End（xlUp）.Row
'一个循环，用于按行号和日期复制行，然后打开阴影图粘贴复制的数据
作为整数的Dim i1
对于i1=2到最终路径
ActiveSheet.Cells（i1，1）.复制
工作簿。打开的文件名：=“E:\Attachment\PCI\Clutch disc\FLEXIBALE（RO）\Shadowgraph.xlsm”
Windows（“Shadowgraph.xlsm”）。激活
范围（“AW5”）。选择
ActiveSheet.Paste链接：=True
有选择
.HorizontalAlignment=xlCenter
.垂直对齐=xlCenter
.WrapText=False
.方向=0
.AddIndent=False
.1级别=0
.ShrinkToFit=False
.ReadingOrder=xlContext
.MergeCells=False
以
Windows（“ball99.xlsm”）。激活
'表示保存文档的相对名称
Dim Name1作为字符串
Name1=ActiveSheet.Cells（i1，2）和“阴影图”
ActiveSheet.Cells（i1，2）.复制
Windows（“Shadowgraph.xlsm”）。激活
范围（“E32”）。选择
ActiveSheet.Paste链接：=True
有选择
.HorizontalAlignment=xlCenter
.垂直对齐=xlCenter
.WrapText=False
.方向=0
.AddIndent=False
.1级别=0
.ShrinkToFit=False
.ReadingOrder=xlContext
.MergeCells=False
以
'设置工作目录
ChDir“E:\Attachment\PCI\离合器片\FLEXIBALE（RO）”
'设置保存地址
ActiveSheet.ExportAsFixedFormat类型：=xlTypePDF，文件名：=_
“E:\Attachment\PCI\离合器片\FLEXIBALE（RO）\”和_
名称1，质量：=_
xlQualityStandard，IncludeDocProperties:=真，IgnorePrintAreas:=假_
OpenAfterPublish:=False
Windows（“Shadowgraph.xlsm”）。激活
'关闭打开的数据表
窗口（“Shadowgraph.xlsm”）。关闭（False）
下一个i1
Windows（“ball99.xlsm”）。激活
'关闭除主工作簿01之外的所有工作表
将ws1设置为工作表
对于ActiveWorkbook.工作表中的每个ws1
如果ws1.Name“01”，则ws1.Visible=xlSheetHidden
下一个ws1
“清理所有的家具
ActiveSheet.ShowAllData
端接头

七次之后，我收到了这个错误：

什么错误？还记得在Excel中复制和粘贴时（ActiveSheet.Paste Link:=True），这一行将突出显示并运行missedSee我的第一条评论