追加用户名和日期以便另存为VBA

Question

如何使用vba代码保存excel文件，以便将用户名和日期附加到宏中？

这里是我的工作，试图使代码它的工作：

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

Answer 1

试试这个： -

ActiveWorkbook.SaveAs文件名：=（ENVIRON $（ “用户名”））& “_” &日期& “_BKMtracker.xlsx” 的FileFormat：= 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