Button click macro question

[steve400243]

Hello, I am trying to get this code to Save to the following location - X:\SEA Shares\Surface Trans\QUOTES

Can someone help me with amending the code to save to correct location?

Sub Button1_Click()
'
' Button1_Click Macro
'


'
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Range("D5").Value _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

 

[gmhumphr]

You have one of two choices:

1. Change whatever value you have in cell D5 to include the path way (ex: instead of having D5 be "filename" you have it be "X:\SEA Shares\Surface Trans\QUOTES\filename")
2. In the filename section, change it to:

Filename:="X:\SEA Shares\Surface Trans\QUOTES" & Range("D5").value

Note - you might want to consider some error handling for people inputting junky file names into D5

 

[steve400243]

Thanks gmhumphr, Appreciate your help. D5 is a quote number that is generated by another code based on date and time. No user inputting. I want it to save as this number.

Private Sub Workbook_Open()
With Sheets("Sheet1").Range("D5")
    .Value = Format(Date + Time, "yyyymmddhhmm")
End With
End Sub

 

[steve400243]

Here is where I am at now, I cannot get it to work?

Sub Button1_Click()
'
' Button1_Click Macro
'


'
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=("X:\SEA Shares\Surface Trans\QUOTES") & Range("D5").Value _
     , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

 

[gmhumphr]

No need for parenthesis, and I neglected to include the final slash: Filename:="X:\SEA Shares\Surface Trans\QUOTES" & Range("D5").Value

 

[steve400243]

I'm sure its my limited knowledge of Macros, but i cannot get this to save as the value that is generated in D5. Here was another try -

Sub Button1_Click()
'
' Button1_Click Macro
'




'
ChDir "X:\SEA Shares\Surface Trans\QUOTES"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Range("D5").Value _
     , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

 

[steve400243]

Just got it, thanks gmhumphr. Appreciate your help!