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

如何使用vba代码保存excel文件，以便在macros中附加用户名和date？

这里是我努力使之工作的代码：

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

Answer 1

尝试这个：-

ActiveWorkbook.SaveAs FileName：=（Environ $（“Username”））＆“_”＆Date＆“_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