VBA 将字符串与日期连接起来

Question

我正在尝试构建一个子来保存我的 excel 工作表，并带有保存时间的时间戳，我根本没有 VBA 经验，错误让我认为我应该将 Datetime.now 定义为变量，但即使这样也不起作用，如果我做对了。

Sub SaveToDir()
ActiveWorkbook.SaveAs ("T:\BRojas\test2" & Text(DateTime.Now()) & ".xlsx")

End Sub

我的错误说

Compile error: Sub or Function not defined

谢谢。

Answer 1

Text是一个 Excel 工作表函数。 VBA 中的等价物是 Format .

所以你想使用:

ActiveWorkbook.SaveAs "T:\AWilliams\test2" & Format(DateTime.Now(), "yyyymmdd-hhmmss") & ".xlsx"

使用您喜欢的任何日期/时间格式，而不是我上面使用的“yyyymmdd-hhmmss”。但不要包含斜杠( / )或冒号( : )，因为它们在文件名中无效。