VBA creates PDF file with worksheet name

[asyamonique]

Good Day,
Is it possible to create that PDF file with related worksheet name only?
Many Thanks

Sub Button1_Click()
On Error Resume Next
   ChDir "\\172.16.23.181\xxxx\xxxxx"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "\\172.16.23.181\folder\xxxxx\xxxxx.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub

 

[Jimmypop]

Hi There

Maybe try...

Sub Button1_Click()
Dim wsA     As Worksheet
Dim strFile, myfile As String
On Error Resume Next
wsA.Activate
    strFile = "\\172.16.23.181\folder\xxxxx\xxxxx\" & wsA.Name & ".pdf"
    myfile = strFile
ActiveSheet.ExportAsFixedFormat _
                        Type:=xlTypePDF, _
                        Filename:=myfile, _
                        Quality:=xlQualityStandard, _
                        IncludeDocProperties:=True, _
                        IgnorePrintAreas:=False, _
                        OpenAfterPublish:=True
End Sub

 

[asyamonique]

Hi There

Maybe try...

Sub Button1_Click()
Dim wsA     As Worksheet
Dim strFile, myfile As String
On Error Resume Next
wsA.Activate
    strFile = "\\172.16.23.181\folder\xxxxx\xxxxx\" & wsA.Name & ".pdf"
    myfile = strFile
ActiveSheet.ExportAsFixedFormat _
                        Type:=xlTypePDF, _
                        Filename:=myfile, _
                        Quality:=xlQualityStandard, _
                        IncludeDocProperties:=True, _
                        IgnorePrintAreas:=False, _
                        OpenAfterPublish:=True
End Sub

Hello,
Thanks for the reply, that code creates PDF file as in worbook name not the related worksheet name.
Thanks

 

[Jimmypop]

Hello,
Thanks for the reply, that code creates PDF file as in worbook name not the related worksheet name.
Thanks

Try amended below:

Sub Button1_Click()
Dim wsA     As Worksheet
Dim strFile, myfile As String
On Error Resume Next
wsA.Activate
    strFile = "\\172.16.23.181\folder\xxxxx\xxxxx\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
strFile & "" & ActiveSheet.Name, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

 

[asyamonique]

Try amended below:

Sub Button1_Click()
Dim wsA     As Worksheet
Dim strFile, myfile As String
On Error Resume Next
wsA.Activate
    strFile = "\\172.16.23.181\folder\xxxxx\xxxxx\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
strFile & "" & ActiveSheet.Name, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

Many thanks, thats great.

 

[Jimmypop]

Pleasure to assist and thanks for the feedback