Save excel file to pdf

[Khalid_exel]

I use this code:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Left(ActiveWorkbook.FullName, InStrRev(ActiveWorkbook.FullName, ".")) & "pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=True, OpenAfterPublish:=False

to save file to pdf in the same folder
my question
I want to save the PDF file with a name similar to a cell in the sheet
can any one help me to do that ?
thanks

 

[6StringJazzer]

What do you mean "similar to"--not exactly? Which cell, which sheet?

Can you give an example of what is in the cell, and what you want the file name to be?

Something like this:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Worksheets("Sample").Range("A1") & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=True, OpenAfterPublish:=False

 

[Khalid_exel]

What do you mean "similar to"--not exactly? Which cell, which sheet?

Can you give an example of what is in the cell, and what you want the file name to be?

Something like this:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Worksheets("Sample").Range("A1") & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=True, OpenAfterPublish:=False

The code I attached saves the excel file with the same name but in the pdf format

I need to save the file with a name matches text in a cell
Example:
The text in cell A3 "eric"
The file is saved as: eric.PDF
sorry for my language

 

[Kerryx]

Could you just add to the saved filename?

& Format(Now(), " DD.MM.YY hh.mm.ss"

 

[Khalid_exel]

Could you just add to the saved filename?

& Format(Now(), " DD.MM.YY hh.mm.ss"

No
because
The cell contains the student's name
I want to save file in the name of each student

 

[6StringJazzer]

I need to save the file with a name matches text in a cell

See solution in post #2 for this.