Excel 中的“ActiveX 組件無法創建對象”錯誤

Question

當我運行下面的代碼時，我在標題中指示的行中收到錯誤。 我環顧了 StackOverflow 和其他地方，找不到任何有效的幫助。 任何指針？

兩天前，此代碼在 Windows 10 和 Mac OSX 中運行良好，然后我遇到了另一個（非 VBA）問題，Microsoft 技術支持代表重新安裝了 Office 365 以嘗試修復它。 現在，每當我嘗試在 Windows 10 和 Mac OSX 上運行這個簡單的子程序時，我都會得到同樣的 Excel 對話框：“ActiveX 組件無法創建對象”。

Sub changeSheetsZoomLevel()
Dim n As Integer, sh As Worksheet
n = 0
For Each sh In ThisWorkbook.Worksheets ' **<-- error occurs here**
    With sh
        .Activate
        ActiveWindow.Zoom = 90
        .Columns("A:A").ColumnWidth = 100
        .Columns("B:B").ColumnWidth = 70
        .Cells.EntireRow.AutoFit
        n = n + 1
    End With
Next sh
MsgBox n & " sheets reformatted"
End Sub

我只展示了這一個子程序，但還有很多其他子程序，包括一些操作 Word 文檔的子程序。

當我在這些對話框中單擊“幫助”按鈕時，出現的下一個對話框在 2 個操作系統上是不同的，如下所示。

我什至再次嘗試了 Microsoft 支持，他們讓我將 64 位 Office 安裝到 Windows 而不是 32 位版本。 但這沒有幫助。

Answer 1

盡管我查看了@MBB70 評論中建議的解決方案，但我發現這不是問題所在。 相反，這是對我有用的解決方案：

1) Make a new Excel workbook and
2) Transfer all vba code into it from my original workbook
3) Transfer all sheets into it from my original workbook
4) Add the needed reference in the VBA Editor using Tools-->References... as shown below:

新工作簿現在可以在 Mac OSX 和 Windows 10 中正常工作。