VBA Excel – 另存为.xlsm，然后保存为.pdf位置问题

我有一个模板工作表，我用它来创build每日报告。 我试图创build一个使用保存的macros来保存和重命名模板，然后将新创build的xlsm导出为pdf。 这两个文件需要保存在相同的位置。 我可以让每个单独工作，但是当我尝试将两个组合成一个macros时，我遇到了一个运行时错误。

这工作，但将PDF保存到桌面

Sub SaveRoutine() ActiveWorkbook.SaveAs Filename:="U:\Time Study\Timelines\" & Format(Date, "mm.dd.yy") & "- Shift 2" & ".xlsm", FileFormat:=52 Worksheets("overview").Select ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:="", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True End Sub 

这会在保存为xlms之后返回运行时错误。

  Sub SaveRoutine() ActiveWorkbook.SaveAs Filename:="U:\Time Study\Timelines\" & Format(Date, "mm.dd.yy") & "- Shift 2" & ".xlsm", FileFormat:=52 Worksheets("overview").Select ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:="U:\Time Study\Timelines\", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True End Sub 

我相信它的简单，我已经尝试在Filename：=variables的变体，但无法弄清楚。 任何帮助，将不胜感激。

谢谢