vba - 使用 Format(Now() 函数时 Excel 不导出工作表？

Question

由于某种原因，当我执行以下子例程时出现运行时错误“1004”:

Sub Export()
Dim wb As Workbook
Set wb = Workbooks.Add

MyFileName = "CSV_Export_" & Format(Now(), "yyyy-MM-dd hh:mm:ss")
ThisWorkbook.Sheets("Sheet1").Copy Before:=wb.Sheets(1)
wb.SaveAs "C:\Users\SuperUser\Desktop\" & MyFileName
Application.ActiveWorkbook.Close False

End Sub

但是当我将 MyfileName 行替换为:

MyFileName = "CSV_Export_" & Format(Date, "ddmmyyyy")

然后它可以正常工作并完美保存工作表。

有任何想法吗？

Answer 1

它不起作用，因为在 Now() 你有 : .
例如。 CSV_Export_2017-05-08 15:19:07和 :不允许作为符号。

这样的事情会让你周围:

?replace("CSV_Export_" & Format(Now(), "yyyy-MM-dd hh:mm:ss"),":","__")
CSV_Export_2017-05-08 15__22__54

甚至像这样:

?"CSV_Export_" & Format(Now(), "yyyy-MM-dd hh_mm_ss")
CSV_Export_2017-05-08 15_25_13