將excel另存爲pdf，文件名稱作爲變量值

Question

我試圖將選擇保存爲pdf，除了我不能保存文件和特定名稱，我不能保存文件名和特定名稱，日期和時間......它工作正常，除了當我試圖把今天的日期和時間...... 這是我的代碼

Sub guardar_pdf() 
' 
' Macro7 Macro 
' 

' 
    Range("A1:Q4").Select 


    With ActiveSheet.PageSetup 

     .Orientation = xlLandscape 
     .Zoom = 60 
     .PrintGridlines = True 
    End With 

    Dim fe As String 
    fe = now 

    With Selection 

    .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
      "C:\Users\Diego\Dropbox\informes\informe"&fe, Quality:=xlQualityStandard, _ 
      IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True 
End With 



End Sub 

Answer 1

有你能解決這個幾種方法。

fe = Format(Now, "yyyymmdd_hhmmss") 

或忽略這一點，只是這樣做

"C:\Users\Diego\Dropbox\informes\informe" & Format(Now, "yyyymmdd_hhmmss")