將單元格復制到新工作表列時出現錯誤429“Activex組件無法創建對象”

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

此錯誤不是由您發布的代碼引起的，請參閱： 您在自動化Office應用程序時收到運行時錯誤429

此問題也在這里討論過：

運行時錯誤'429'：ActiveX組件無法創建對象VBA

檢查工具〜>缺少組件的參考

Answer 2

4年后我遇到了同樣的問題，我的VBA代碼在前兩行完全失敗了：

Dim wb As Workbook
Set wb = ThisWorkbook

如果我使用相同的錯誤？立即窗口中的ThisWorkbook.name等。無論我做什么，我都不能在這個特定的.xlsm中使用“ThisWorkbook”對象

我創建了一個全新的工作簿，將其保存為.xslm並將整個模塊復制到新書bingo，完美運行。

我創建的新書與不起作用的舊書之間似乎沒有任何區別......

tools-> references是相同的，它們保存在同一台機器上，同一版本的excel等等。

這只是一個古怪的問題，我無法弄清楚在這個特定的工作簿中，“ThisWorkbook”功能被打破的原因。 從頭開始重新創建工作簿似乎可以解決它，但這是一個糟糕的解決方案。