将单元格 G18 中的日期保存到文件名中

Question

Sub SaveWithWEDate()
    
    Dim fileName As String
    Dim WEdate As String
    WEdate = G18
    
    fileName = "WE " & WEdate & " WEEKLY SUMMARY"
    
    ThisWorkbook.SaveAs fileName:=fileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
    
End Sub

我无法将单元格 G18 中的文本放入我的文件名中。保存为“WE每周总结”

我还尝试在文本字符串中使用手机号码。

我正在使用它来将模板保存到启用宏的 Excel 工作簿中。
我之前已将其与实际日期一起使用，但我的工作表将周结束日期计算为星期日。
我将星期日日期复制到辅助单元格 G18 中，单元格格式为 YYYYMMDD。

Answer 1

辅助列的基本值仍然是格式化为显示“YYYYMMDD”的数字日期。读取单元格的

TEXT

值可能会返回

######

。

将该值作为日期读入您的过程，并在代码中对其进行格式化，以便可以在文件名中使用。

Sub SaveWithWEDate()

Dim fileName As String
Dim WEdate As Date
WEdate = ThisWorkbook.Worksheets("Sheet1").Range("G18").Value2

fileName = "WE " & Format(WEdate, "YYYYMMDD") & " WEEKLY SUMMARY"

ThisWorkbook.SaveAs fileName:=fileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled

End Sub