Excel宏VBA-如何使用基于日期和单元格值的文件名保存为xlsm

Question

我真的很喜欢提供VBA强制保存为xlsm文件的解决方案here。请记住，我对VBA几乎一无所知，如何修改此代码以执行以下操作：

• 继续强制另存为xlsm
• 文件名等于名为＆＃34; REPORT＆＃34;的工作表中单元格C1的值。 +文本＆＃34; BSC＆＃34; + YYYY.MM.DD格式的日期

非常感谢任何帮助。

Answer 1

如果你选择它所说的行：

ThisWorkbook.SaveAs Filename:=FileNameVal & ".xlsm", FileFormat:=ThisWorkbook.FileFormat 
        Application.EnableEvents = True 

您将文件保存为FileNameVal

下保存的任何值

使用一些基本变量，您可以设置字符串并替换FileNameVal

的值

Dim newFileName As String, nameDate As String, sheet As String, tempVal As String

    sheet = "REPORT"
    tempVal = Sheets(sheet).Range("C1").Text
    nameDate = Format(Date, "yyyy.mm.dd")
    newFileName = tempVal & "BSC" & nameDate

查看Locals窗口，您可以看到在使用F8单步执行代码时值会发生变化。