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

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

我也尝试过仅使用文本字符串中的单元格编号，但它不起作用。 我使用它来将模板保存到启用宏的 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