在VBA中保存Excel工作表时如何制作唯一的文件名

Question

我有一个电子表格，这是每个人都可以访问的模板。我希望他们点击的第一个按钮是我的宏“另存为”按钮，该按钮保存在SharePoint的正确位置。

这很好！但是...它会在没有警告的情况下覆盖。

我想1-确保它永远不会覆盖-我希望它在不保存任何内容的情况下取消该过程。

[其次，我希望将其保存为“ [预定名称] _copy01”，其中01可以转到99，以防在原始人完成工作表后其他人再次按下该按钮（从而破坏了该第一人的天）。

这是我当前的代码-如何至少弹出一个覆盖文件，甚至更好的是，为副本重命名（我假设这是某种“ if”或“ if / else”语句）） >

Sub Save_Workook_NewName()

Dim tillDay As Date

If Time < 11 / 24 Then

        tillDay = Date - 1 + 11 / 24

    Else

        tillDay = Now

    End If

Application.AlertBeforeOverwriting = True

Dim path As String
path = "https://ourcorporatesite.sharepoint.com/sites/tills/Shared%20Documents/Nightly%20Tills/"
ThisWorkbook.SaveAs FileName:=path & Format(Now(), "yy-mm-dd") & "_Tills.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, ReadOnlyRecommended:=False

End Sub

我有一个电子表格，这是每个人都可以访问的模板。我希望他们点击的第一个按钮是我的宏“另存为”按钮，该按钮保存在SharePoint的正确位置。这很棒！ ...

Answer 1

为了创建唯一的文件名，我使用的是Excel用户的用户名和当前时间戳。因此，可以确保每个用户始终生成不同的文件名。只需确保代码运行超过1秒即可（或在名称生成器中添加1秒等待时间）：