excel - VB 保存到当前路径和文件名，并将当前日期添加到文件名

Question

我对 VB 非常非常陌生，很高兴找到这个网站!

我搜索并查看了每个自动建议的类似问答链接来查找我的问题，但没有找到我正在寻找的内容(也许是因为我不明白我在看什么......;-)。

我使用了另一个用户的 question 中的这个 Excel 宏。 ，回答者 Siddharth Rout:

Macro with Save Current Date

Sub Save()
    Dim FilePath As String
    Dim NewName As String

    FilePath = "X:\": NewName = FilePath & "file" & Format(Date, "MM-DD-YYYY") & ".xlsm"

    ActiveWorkbook.SaveAs Filename:=NewName, FileFormat _
    :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

如果我希望将文件命名为“file”(或我在引号中插入的任何内容)，这将非常有效。

但是，我如何编辑这个宏，以便它可以在任何打开的文件上工作，以便将当前日期添加到文件的现有路径和文件名中？

预先感谢您的帮助!

安迪

Answer 1

dim last_dot as long
last_dot = InStrRev(ActiveWorkbook.FullName, ".")

dim NewName as string
NewName = Left$(ActiveWorkbook.FullName, last_dot - 1) & Format$(Date, "MM-DD-YYYY") & Mid$(ActiveWorkbook.FullName, last_dot)