Я основной пользователь.Я обычно собираю свой VBA-код воедино из поисков Google и рекомендаций от stackoverflow.У меня была рабочая книга, используя "ExportAsFixedFormat Type:=xlTypePDF".У меня было 4 строки кода, которые сохраняли различные страницы листа в формате PDF на моем локальном жестком диске.С тех пор, как у меня появился новый компьютер (и, возможно, после обновления до Office 365), мой макрос возвращает эту ошибку:
Ошибка выполнения '-2147417848 (80010108)':
АвтоматизацияОшибка
Вызванный объект отключился от своих клиентов.
Вот код, который у меня есть сейчас ...
Sub Savepdf()
Worksheets("Weekly").ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\directoryhere\pc2018summer.pdf", Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=10
Worksheets("Weekly").ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\directoryhere\pc2018fall.pdf", Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=11, To:=25
Worksheets("Weekly").ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\directoryhere\pc2018winter.pdf", Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=28, To:=42
Worksheets("Weekly").ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\directoryhere\pc2018.pdf", Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False
End Sub