将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")