Run-time error '2147024773 (8007007b) Document not saved

anshulgupta28 · May 3rd 2020

Hello Experts,

There is an Run-time error '2147024773 (8007007b) Document not saved while trying to export excel as PDF. Please help me resolve this problem. Attaching code below.

Code

Sub SaveasPDF()
Dim filepath As Variant, str As String
'Assigning name of the file in the format "customer"
str = Form_New_Invoice1.TxtB_BillToName
'assigning path
filepath = "E:\MS Excel\Invoices\" & str & ".pdf"
Sheet2.ExportAsFixedFormat Type:=xlTypePDF, fileName:=filepath, Quality:=xlQualityStandard, includedocproperties:=True, _
OpenAfterPublish:=True
End Sub

Display More

Logit · May 3rd 2020

Code

Option Explicit
Sub SaveasPDF()
Dim filepath As Variant, str As String
'Assigning name of the file in the format "customer"
str = "Form_New_Invoice1.TxtB_BillToName"
'assigning path
filepath = "C:\Users\gagli\Desktop\" & str & ".pdf"
Sheet1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=filepath, Quality:=xlQualityStandard, includedocproperties:=True, _
OpenAfterPublish:=True
End Sub

Display More

Note the quotation marks around the str name.

To test your macro I changed a few things but ... just put the quotation marks where indicated.

royUK · May 3rd 2020

Form_New_Invoice1.TxtB_BillToName

Is this referring to a String or the name of a TextBox on a UserForm named Form_New_Invoice1?

anshulgupta28 · May 3rd 2020

Hello Roy, 'str' is assigned to the value in textbox named 'TxtB_BillToName' in userform 'Form_new_invoice1'

royUK · May 3rd 2020

Then it should work. What error are you getting?

Run-time error '2147024773 (8007007b) Document not saved

Share

Tags