錯誤429將單元複製到新工作表時，「Activex組件無法創建對象」Colum

Question

這適用於另一個文件，但不適用於當前非常大的Excel文件。它從每個工作表中複製所有列P & Q，並將它們發佈到合併的新工作表中。它也刪除所有空白單元格。我得到一個運行時錯誤429「Activex組件不能創建對象」可以有人幫助嗎？該代碼在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

此錯誤是不是由您發佈的代碼引起的，請看到這一點： You receive run-time error 429 when you automate Office applications

也是這個問題已經在這裏討論：

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

檢查工具〜>參考文獻缺失部件