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

Question

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

• 继续强制另存为xlsm
• 文件名等于名为“REPORT”的工作表中单元格 C1 的值 + 文本“BSC” + 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 单步执行代码时，您可以看到值发生了变化。