excel - 将单元格复制到新工作表列时出现错误 429 "Activex component can' t 创建对象

Question

此代码从每个工作表中复制 P 和 Q 列，并将它们发布到合并的新工作表中。它还会删除所有空白单元格。

该代码适用于非常小的文件，但在新工作簿上产生的结果不同。

从以前的“小工作簿”到新工作簿的所有列都是相同的。唯一改变的是工作表的数量，即 650。

我收到运行时错误 429“Activex 组件无法创建对象”。

Sub merge()

    Dim Sh As Worksheet, ShM As Worksheet, i&, z&
    Application.ScreenUpdating = 0
    Set Sh = Worksheets.Add(, Sheets(Sheets.Count))
    Sh.Name = "consolidated"
    For Each ShM In ThisWorkbook.Worksheets
        If ShM.Name <> Sh.Name Then
            i = ShM.Cells(Rows.Count, 17).End(xlUp).Row
            z = Sh.Cells(Rows.Count, 2).End(xlUp).Row + 1
            While (z > 1) And (Sh.Cells(z, 2).Value = "")
                z = z - 1
            Wend
            ShM.Activate: ShM.Range(Cells(1, 16), Cells(i, 17)).Copy
            Sh.Activate: Sh.Cells(z, 1).PasteSpecial xlPasteValues
        End If
    Next ShM
    Application.ScreenUpdating = 1
End Sub

Answer 1

此错误不是由您发布的代码引起的，请参阅: You receive run-time error 429 when you automate Office applications

这里也讨论了这个问题:

Run-time error '429': ActiveX component can't create object VBA

检查工具~>引用是否缺少组件