«Компонент ActiveX не может создать объект» Ошибка в Excel

Question

Когда я запускаю приведенный ниже код, я получаю сообщение об ошибке в заголовке в указанной строке. Я посмотрел вокруг StackOverflow и в других местах и ​​не могу найти помощь, которая работает. Любые указатели?

Этот код работал нормально 2 дня go как в Windows 10, так и в Ma c OSX, а затем у меня была другая (не VBA) проблема и представитель службы технической поддержки Microsoft переустановил Office 365, чтобы попытаться это исправить. Теперь я получаю тот же диалог Excel: «компонент ActiveX не может создать объект» всякий раз, когда я пытаюсь запустить эту простую подпрограмму, как на Windows 10, так и на Ma c OSX.

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

I Я показываю только одну подпрограмму, но есть много других, в том числе те, которые манипулируют документами Word.

Когда я нажимаю кнопку «Справка» в этих диалоговых окнах, следующее диалоговое окно, которое появляется по-другому при работе 2 системы, как показано ниже.

Я даже попробовал Microsoft Support снова, и вместо этого мне пришлось установить 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:

Новая рабочая книга теперь работает правильно как в Ma c OSX, так и Windows 10.