Save file as PDF in VBA (macro)?

[Jyggalag]

Hi all,

I currently have the following setup:

I have marked everything that I want to be exported into a PDF, which works when I manually save the file as a PDF.

However, I do also have a macro ("Save file to folder") as seen above, which saves the file (albeit as an Excel file) to my folder

My code for this macro (VBA) IS:

Sub SaveFileWithMicro()

Dim Path As String
Dim fn As String
Path = "\\COMPANY.MSSS.COMPANY.NET\userdata\t6853425\home\Documents\TEST tracking files\Track with macro\"
fn = Range("A35")
ActiveWorkbook.SaveAs Filename:=Path & fn & ".xls", FileFormat:=xlNormal

End Sub

If I want to edit this VBA so it saves my files as a PDF, does anybody know of a nice way in which this could be done?

Would truly appreciate some assistance here! Many thanks

Kind regards,
Jyggalag

 

[Joe4]

See here for code for saving your file as PDF:

How to save Excel as PDF with VBA (10 examples)

This post shows how to save Excel as PDF with a VBA macros. With 10 examples, you will learn how to automate your work and save time.

exceloffthegrid.com

 

[Jyggalag]

See here for code for saving your file as PDF:

How to save Excel as PDF with VBA (10 examples)

This post shows how to save Excel as PDF with a VBA macros. With 10 examples, you will learn how to automate your work and save time.

exceloffthegrid.com

Hi Joe,

Thank you so much!

I tried the formula (to implement it into mine), but I get this error?

Can you see what I am doing wrong?

 

[Jyggalag]

N

See here for code for saving your file as PDF:

How to save Excel as PDF with VBA (10 examples)

This post shows how to save Excel as PDF with a VBA macros. With 10 examples, you will learn how to automate your work and save time.

exceloffthegrid.com

Note: It says this when I try to run the macro:

 

[Joe4]

You just assigned the Path to the filename argument, but NEVER gave it a file name!

I think you want it to end:

Filename:=Path & fn & ".pdf"

 

[Jyggalag]

You just assigned the Path to the filename argument, but NEVER gave it a file name!

I think you want it to end:

Filename:=Path & fn & ".pdf"

It works!!

Thank you so much Joe!

Full code for anybody wondering:

Option Explicit

Sub SaveFileWithMacro()

Dim Path As String
Dim fn As String
Path = "\\COMPANY.NFDS.COMPANY.NET\userdata\t5435234\home\Documents\TEST tracking files\Track with macro\"
fn = Range("A35")
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=Path & fn & ".pdf"

End Sub

And apologies for the confusion I have quite a hard time wrapping my head around VBA. I understand most of everything above now however!

 

[Joe4]

You are welcome.
Glad I was able to help.