将excel另存为pdf，文件名称作为variables值

我试图将select保存到PDF，一切正常，除了我不能保存文件和特定的名称，我想要的名称是报告小组和date和时间…它工作正常，除非我试图把今天date和时间…这是我的代码

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