另存为 - ＆＃34;文件名＆amp;来自单元格的日期＆＃34;，20160127格式

Question

所以我一直在这里看谷歌搜索相当多，我可以找到一些关于如何编码的好建议，但没有关于如何保持dateformat的一些信息。

我想保存我在例程中打开的文件，但是使用此特定格式的日期，20160127（因为它在源单元格中）添加到文件名中。

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

Fname = [cellwithdate]

Daily.SaveAs（＆＃34; D：\ Docs \ vba \ Daily Summary_US_＆＃34;＆amp; Fname＆amp;＆＃34; .xlsx＆＃34;）

当前文件名为＆＃34;每日摘要_US_.xlsx＆＃34;。我可以像这样添加Fname吗？我如何保持其正确的格式？

欢呼声。

Answer 1

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

Dim Fname As String

Fname = Format([cellwithdate], "yyyyMMdd")

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

以格式获取当前日期和时间：

Format(Now, "yyyyMMdd_hhmmss")

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

要将文件保存在另存为中，最好将文件格式说明为：

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

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

Answer 2

或者您可以使用：

Fname = [cellwithdate].Text

保留单元格的原始格式（就像它在源单元格中一样）。