Excel VBA: сохранить активный рабочий лист как PDF

Question

Я использовал некоторый код для сохранения активного листа в PDF, используя текущую дату / время в качестве имени файла и сохраняя его в папке SharePoint.

Sub Save()

Dim strFilename     As String

strFilename = Format(Now(), "yyyy-mm-dd hhmm")

Sheets("Weather Warning Action Sheet").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "https://xxx.sharepoint.com/sites/xxx/xxx/Paperwork and Admin/WX Warnings/2020/" & strFilename & ".pdf" _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=False

End Sub

Этот код работает нормально какое-то время, но внезапно появляется сообщение об ошибке «Ошибка выполнения '1004': документ не сохранен».

Отладка показывает это как ошибку:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"https://xxx.sharepoint.com/sites/xxx/xxx/Paperwork and Admin/WX Warnings/2020/" & strFilename & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

Any помощь будет очень признательна.

Большое спасибо,

Джеймс