错误429将单元格复制到新工作表Colum时，“Activex组件无法创build对象”

这适用于另一个文件，但不是我目前非常大的Excel文件。 它复制每个工作表中的所有P＆Q列，并将它们发布到合并的新工作表中。 它也删除所有的空白单元格。 我得到一个运行时错误429“Activex组件不能创build对象”可以有人帮助吗？ 该代码工作在Excel的另一个非常小的文件，但不会在新的工作簿上产生相同的结果。 从以前的“小型工作书”到新的工作簿的所有专栏都是一样的。 唯一改变的是工作表的数量。 这是650（不要判断）

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

此错误不是由您发布的代码引起的，请参阅以下内容： 自动运行Office应用程序时收到运行时错误429

这个问题也在这里讨论过了：

运行时错误“429”：ActiveX组件不能创build对象VBA

检查工具〜>引用缺less的组件