如何在不重命名工作簿的前提下为文件名添加'Shopping List'文本

无需修改工作簿实际文件名，只需在提取原文件名后拼接「Shopping List」文本即可实现需求，修改后的VBA代码如下：

Sub Calcs()
    Dim filename As String ' 补全变量声明的Dim关键字，符合VBA规范
    
    ' 提取不带后缀的原文件名，拼接"Shopping List"文本
    filename = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") - 1) & " - Shopping List"
    ' 将拼接后的名称写入指定单元格
    Worksheets("4. Grocery Store").Range("$A$1").Value = filename

    ' 保留原有其他代码
End Sub

代码说明 #

• 补全Dim关键字声明变量，避免隐式变量引发的潜在问题
• 用&运算符拼接原日期文件名与「Shopping List」，添加短横线和空格是为了让名称格式更清晰（可根据需求调整分隔符）
• 执行后A1单元格会显示类似2024-05-20 - Shopping List的名称，完全保留原工作簿文件名的同时满足显示需求

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