"Run-time error '1004'. Document not saved." when exporting to PDF with VBA

[sj_robertson]

I have a macro that runs from a key combo to save the active worksheet to PDF.

It seems that this macro runs correctly and performs the requested operation (export to PDF), however, it throws up a run-time error, which prevents the macro from completing.

Sub ...
...
...
..
With ActiveSheet
.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        FileName:="C:\...correct path triple-checked!...\" & Cells(11, 10).Value & "_" & Cells(15, 8).Value & ".pdf", _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        OpenAfterPublish:=False
'
End With
'
Sheets("Sheet1").Delete
'
End Sub

VBA repeatedly tells me (highlights during Debug) the offending code starts at .ExportAsFixedFormat and ends after OpenAfterPublish:=False, yet I cannot find anything wrong with the coding, despite having corrected the coding and reverted to my original format numerous times. The only thing I can assume is that the underscore in the filename is causing the issue, yet all resources I have checked specify that underscore is a valid character...

What is even more confusing is that the macro does produce my final PDF (with the file name in the format CellRef_CellRef); it just fails to delete sheet 1 after doing so... If I then, after deleting Sheet1 manually, run the macro again, the macro seems to then run perfectly (overwriting the previously exported file) without throwing up any errors whatsoever.

Any help would be greatly appreciated, as I'm certain I've grown a few more grey hairs since this morning!

 

[mancitystu]

I have a similar problem with the Run Time Error 1004 -

SharePointPath = "C:\Temp\RBB Test\"

Path = SharePointPath

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Path & PDFFileName, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False

 

[BiocideJ]

Have you confirmed that the folder RBB Test exists within the Temp folder and that you can manually create a file/folder inside of it?