excel格式（date“yyyymmdd”）导致编译错误

不知道为什么我的“格式”没有给我一个date在我的文件名的末尾。 我有参考中检查“Visual Basic的应用程序”。

Dim dt As String dt = Format(Date, "yyyymmdd") MyFileName = Sheets("Order Summary (2)").Range("B2").Value & "_" & dt 

我每次都得到这个

Answer 1

作为@Sorceri评论，使用Now ：

 MyFileName = Sheets("Order Summary (2)").Range("B2") & VBA.Format(Now, "_yyyymmdd") 

或者如果任何失败的机会，也有Evaluate替代scheme：

 MyFileName = ['Order Summary (2)'!B2 & TEXT(NOW(), "_yyyymmdd")]