Save copy as excel format as well

[josros60]

Hi,

how can I modify the code below to also save a copy as excel format as well beside the PDF and after saving it open the file.

Sub SaveActiveWorkbookAsPDF()
Dim saveLocation As String
'Call posttoregister
'Call create_and_email_4pdf
saveLocation = "C:\Users\jose.rossi\Desktop\Excel Files\Contras\West Telecom\" & Range("A125").Value & ".pdf"
'Save active workbook as PDF
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
    filename:=saveLocation

End Sub

Thank you,

 

[Michael M]

UNTESTED

Sub SaveActiveWorkbookAsPDF()
Dim saveLocation As String
'Call posttoregister
'Call create_and_email_4pdf
saveLocation = "C:\Users\jose.rossi\Desktop\Excel Files\Contras\West Telecom\" & Range("A125").Value
With ActiveWorkbook
   .ExportAsFixedFormat Type:=xlTypePDF, Filename:=saveLocation
   .SaveAs Filename:=saveLocation & ".xlsm", FileFormat:=52
End With
End Sub

 

[josros60]

Thank you, it worked.

just one question when saved it close the original is there a way to save the copies but keep the original open?

 

[Fluff]

Maybe

Sub SaveActiveWorkbookAsPDF()
Dim saveLocation As String
'Call posttoregister
'Call create_and_email_4pdf
saveLocation = "C:\Users\jose.rossi\Desktop\Excel Files\Contras\West Telecom\" & Range("A125").Value
With ActiveWorkbook
   .ExportAsFixedFormat Type:=xlTypePDF, FileName:=saveLocation
   .SaveCopyAs FileName:=saveLocation & ".xlsm"
End With
End Sub

 

[josros60]

Sorry forgot to ask once saved besides keeping open the original file, want also delete a sheet (tab) named Register in the saved one

 

[Fluff]

Did my suggestion work?

 

[josros60]

yes, it did the only thing need to change it xlsx format but when tried open the file said format no supported, can I also when save delete the sheet "Register".

thank you for all your help.

 

[Fluff]

Is the file an xlsx or xlsm ?

 

[josros60]

the original is xlsm but I want save copy as xlsx

 

[Fluff]

In that case you will need to use SaveAs. You cannot change the file type when using SaveCopyAs.