Excel VBA宏无法提取G18单元格内容生成文件名求助

问题根源 #

原代码中WEdate = G18是错误写法，VBA无法直接识别单独的单元格地址，必须明确指定工作表和Range对象来引用单元格，否则变量WEdate会被赋值为空字符串，导致文件名缺失日期部分。

修正后的代码（推荐指定工作表） #

指定具体工作表可以避免因活动工作表切换导致的错误，将代码中的Sheet1替换为你的实际工作表名称：

Sub SaveWithWEDate()
    Dim fileName As String
    Dim WEdate As String
    ' 引用指定工作表的G18单元格，获取显示的文本格式
    WEdate = Worksheets("Sheet1").Range("G18").Text
    
    fileName = "WE " & WEdate & " WEEKLY SUMMARY"
    
    ThisWorkbook.SaveAs fileName:=fileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub

备选方案（引用当前活动工作表） #

如果确定操作时目标工作表处于激活状态，也可以用以下代码：

Sub SaveWithWEDate()
    Dim fileName As String
    Dim WEdate As String
    ' 引用当前活动工作表的G18单元格
    WEdate = ActiveSheet.Range("G18").Text
    
    fileName = "WE " & WEdate & " WEEKLY SUMMARY"
    
    ThisWorkbook.SaveAs fileName:=fileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub

额外说明 #

如果G18单元格存储的是日期值（而非文本格式的YYYYMMDD），除了用Text属性直接获取显示文本，也可以用Format函数强制转换格式：

WEdate = Format(Worksheets("Sheet1").Range("G18").Value, "YYYYMMDD")

内容的提问来源于stack exchange，提问作者Christopher