附加用户名和日期以在VBA中另存为

Question

如何使用VBA代码保存Excel文件，以便在宏中附加用户名和日期？

这是我尝试使其工作的代码：

ActiveWorkbook.SaveAs FileName:=(Environ$("Username")) & "_" & Date & "_BKMtracker.xlsx", FileFormat:=xlOpenXMLWorkbook

Answer 1

尝试这个：-

ActiveWorkbook.SaveAs文件名：=（Environ $（“用户名”））＆“ _”＆日期＆“ _BKMtracker.xlsx”，文件格式：= xlOpenXMLWorkbook

归功于@MatthewD

Answer 2

Sub SaveDocument()
    Dim username As String
    Dim nowFormated As String
    Dim path As String
    Dim filename As String
    Dim extention As String

    username = Environ("Username") & "_" 'gets the username
    nowFormated = CStr(Format(now, "yymmdd"))  'or every format you like
    path = "D:\" 'Wherever you want to save the file
    filename = "_BKMtracker" 'or what you want
    extention = ".xlsm" 'for example (with macros, else you have to change the FileFormat too)

    ActiveWorkbook.SaveAs filename:=path & username & nowFormated & filname & extention, _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub