次のコードでは、「ドキュメントが保存されていません」というエラーが発生します。
sFileName = "C:\test.pdf"
Application.DisplayAlerts = False
wkbPDF.Worksheets.Select
ActiveSheet.ExportAsFixedFormat Type := xlTypePDF, Filename := gsPDF_DIR & sFileName, _
Quality:=xlQualityStandard, IncludeDocProperties := True, _
IgnorePrintAreas := False, OpenAfterPublish := False
Application.DisplayAlerts = True
ただし、VBA の外で行うと成功します (ただし、ワークブックに 100 枚以上のシートが含まれているため、数分かかります)。