【发布时间】:2017-01-31 10:16:54
【问题描述】:
我有一个在我的 PC 上的 Excel 上运行的 excel 宏,但现在我试图让它在我的带有 Excel 2016 的新 Mac 上运行。 基本上,它根据工作簿中的字段和实际日期保存实际文件。 然后它将相同的文件保存为pdf。 当我执行脚本时,出现无法保存文件的运行时错误,请指向“SaveAs”...所在的行。 我认为这与文件名中的变量有关,因为固定的文件名正在工作......
Sub save_pdf()
Dim nr, jahr, jahreszahl, stdPfad, Dateiname
jahreszahl = Year(Now)
stdPfad = "Users/**myname**/Dropbox/Buchhaltung & Steuer/Customer/Zeiterfassung/" & jahreszahl & "/" & Format(Now, "mmmm") & "/"
Dateiname = stdPfad & "Zeiterfassung " & " " & Format(Now, "mmmm ") & [Projekt] & " " & Format(Now, "ddmmyyyy")
ActiveWorkbook.SaveAs Filename:=Dateiname
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dateiname _
& ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
有人能把我推向正确的方向吗?
【问题讨论】: