Active workbook file name in PDF - Macro

[PuruBhati]

Hello - I am trying to save multiple tabs in to a PDF from excel and below is the macro I am using. Macro works fine but would like to add active workbook file name so I don't have to retype the name.

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= Application.GetSaveAsFilename, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas :=True, OpenAfterPublish:=True

 

[Sequoyah]

Hy PuruBhati,
try this code:

Sub test()

    Dim MyFile As String
    Dim fso As Object
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    MyFile = ThisWorkbook.Path & "\" & fso.GetBaseName(ActiveWorkbook.Name) & ".pdf"
      
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyFile, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=True, OpenAfterPublish:=True

End Sub

 

[PuruBhati]

Hy PuruBhati,
try this code:

Sub test()

    Dim MyFile As String
    Dim fso As Object
   
    Set fso = CreateObject("Scripting.FileSystemObject")
   
    MyFile = ThisWorkbook.Path & "\" & fso.GetBaseName(ActiveWorkbook.Name) & ".pdf"
     
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyFile, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=True, OpenAfterPublish:=True

End Sub

Hey Sequoyah - Thank you for the code but it did not work. this is part of a larger macro and all I want is when the last piece of code runs when it is saving the file in to the PDF format, I want the workbook name appear as default rather than me typing.

Let me know this makes sense.

 

[Sequoyah]

Hi PuruBhati,
here's the correct version

Sub test2()
    
    Dim MyFile As Variant
    Dim fso As Object
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    MyFile = Application.GetSaveAsFilename(InitialFileName:=fso.GetBaseName(ActiveWorkbook.Name), _
             FileFilter:="PDF Files (*.pdf), *.pdf", _
             Title:="Select Path And Filename")
    
    If MyFile <> False Then
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyFile, _
                                        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=True, OpenAfterPublish:=True
    End If
    
End Sub

 

[PuruBhati]

Hi PuruBhati,
here's the correct version

Sub test2()
   
    Dim MyFile As Variant
    Dim fso As Object
   
    Set fso = CreateObject("Scripting.FileSystemObject")
   
    MyFile = Application.GetSaveAsFilename(InitialFileName:=fso.GetBaseName(ActiveWorkbook.Name), _
             FileFilter:="PDF Files (*.pdf), *.pdf", _
             Title:="Select Path And Filename")
   
    If MyFile <> False Then
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyFile, _
                                        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=True, OpenAfterPublish:=True
    End If
   
End Sub

Thank you. It worked.