另存为 – “单元格的文件名和date”,格式为20160127

所以我一直在寻找这里和谷歌search了很多,我可以find一些好的技巧,如何编码,但没有关于如何保持date格式。

我想保存一个在例程中打开的文件,但是以这种格式的date,20160127(因为它在源单元格中)添加到文件名中。

现在,Fname中的值被存储为01/27/2016,而不是当前的格式。

Fname = [cellwithdate]

Daily.SaveAs(“D:\ Docs \ vba \ Daily Summary_US_”&Fname&“.xlsx”)

当前文件名是“Daily Summary_US_.xlsx”。 我可以像这样添加Fname吗? 我如何保持它的正确格式?

干杯。

或者你可以使用:

Fname = [cellwithdate].Text 

保持单元格的原始格式(就像源单元格一样)。

您可以使用格式来实现您的目标:

 Dim Fname As String Fname = Format([cellwithdate], "yyyyMMdd") Daily.SaveAs ("D:\Docs\vba\Daily Summary_US_ " & Fname & ".xlsx") 

用格式获取当前date和时间:

 Format(Now, "yyyyMMdd_hhmmss") 

MSDN的详细说明https://msdn.microsoft.com/en-us/library/office/gg251755.aspx

要将文件另存为SaveAs ,最好将文件格式设置为:

 Daily.SaveAs "D:\Docs\vba\Daily Summary_US_ " & Fname & ".xlsx", xlOpenXMLWorkbook 

https://msdn.microsoft.com/en-us/library/office/ff198017.aspx