Excel exporting PDF with two periods in file name, i.e. ''xyz..pdf"

**LXN** · 07-29-2013, 10:50 AM

I am using the following code:


Option Explicit

Sub Export_STR_PDF()

Sheets("Shore Tank Report").Select

Dim name

name = Cells(1, 1)

With ActiveSheet.PageSetup
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
    .CenterHorizontally = True
End With

Range("B1:O111").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Application.GetSaveAsFilename("C:\users\alrh\desktop\" & name), Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

End Sub

to successfully export a sheet to PDF. However, it apperas to be adding one period to save as ''all files'' and then another to save as a pdf. I know this is a small issue, but it's irritating and I have programs that rely on uniform filenames to run.

Any help is appreciated. Thanks!

**blue.chio** · 07-29-2013, 05:33 PM

perhaps something like this

'
'
Filename:=Application.GetSaveAsFilename("C:\users\alrh\desktop\" & name & ".pdf"), Quality:=xlQualityStandard, _
'
'

**LXN** · 07-30-2013, 09:46 AM

I tried that, and unfortunately that makes it not show a default save name at all. I think the problem then is the redundancy of


Type:=xlTypePDF

and


& ".pdf"

Is there any way to use what you wrote, but get rid of the "Type:=" etc?

**blue.chio** · 07-30-2013, 10:11 AM

this is what I use and it works fain...

Sub Button2_Click()
Dim strPDF_File_Name As String
FileName1 = InputBox("Please input filename", "Filename")
'Sheets(Array("Sheet1", "Sheet2")).Select
 Range("B1:d5").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & FileName1 & ".pdf", Quality _
 :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
 OpenAfterPublish:=True
End Sub

and see here an example
http://msdn.microsoft.com/en-us/libr...ffice.14).aspx