如何在VBA宏顶部定义变量并复用其值统一管理文件名

你的思路是对的，但尝试代码里存在几处语法错误，以下是修正后的完整代码：

Sub TR_new_weight()
    ' 定义文件名变量，修改这里即可改变保存的文件名
    Dim file_name As String
    file_name = "TR - weight sent to Jim"
    
    ' 定义保存路径，也可单独修改
    Dim save_path As String
    save_path = "D:\Dropbox\G_emiguy_052921\__Twix and Rolo\"
    
    Application.DisplayAlerts = False
        ChDir save_path
        ' 保存为xlsx格式
        ActiveWorkbook.SaveAs Filename:= _
            save_path & file_name & ".xlsx", _
            FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
        ' 导出为PDF
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            save_path & file_name & ".pdf", _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
            :=False, OpenAfterPublish:=False
        ' 保存为xlsm宏启用格式
        ActiveWorkbook.SaveAs Filename:= _
            save_path & file_name & ".xlsm", _
            FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
        Range("O5:P6").Select
    Application.DisplayAlerts = True
End Sub

关键修正点说明： #

• 引用变量时直接使用定义好的file_name，VBA中单引号是注释标记，不能用来包裹变量
• 字符串拼接时用&直接连接路径、变量和扩展名，去掉了多余的反斜杠
• 新增save_path变量，把重复的路径单独提取出来，后续修改路径只需改这一处，进一步提升灵活性

使用时只需修改file_name的赋值内容，比如改成"TR_new_file_name"，宏就会自动用新名称保存所有格式的文件。

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