Question

我一直在撞墙，试图找出动态文件名问题。

我正在尝试从包含时间数据的单元格（J2）中提取6位数日期，并使用它来保存我的文件名。单元格格式为“常规”。

我可以使用的唯一公式是使用未占用单元格（W2）的手动公式，然后删除（丑陋，我知道）：

Range("W2").Formula = "=DateValue(J2)"
RefDate = Format(Range("W2"), "m-d-yy")
NameofFile = "On Time Departure " & RefDate
Range("W2").Delete

单元格数据是

2015年1月8日2：00：00.000000 AM

我已尝试在Format函数中嵌套DateValue函数，但无法使其工作。

有什么想法吗？

Answer 1

试试这个：

Dim RefDate As Date
RefDate = Range("J2").Value
NameofFile = "On Time Departure " & Format(RefDate, "m-d-yy")

修改

如果J2包含字符串而不是日期，例如Christmas007，请尝试：

Dim curDate As String Dim RefDate As Date curDate = Range("J2").Value RefDate = DateValue(Left(curDate, InStr(curDate, " "))) NameofFile = "On Time Departure " & Format(RefDate, "m-d-yy")

单个公式中的DateValue和Format

1 个答案: