如何使用vba将工作表保存在具有特定名称的特定文件夹中？

Question

有人可以帮我改变以下代码，以便用户引导他将用户名和当前日期保存在特定文件夹中

按下命令按钮2时，应在以下路径中打开“另存为”框：“C / test /”，工作表的建议名称应采用“用户名ddmmyy”格式。

我知道我应该在代码中的某处使用'application.username'，但不确定完整代码的外观。

到目前为止我可以准备的内容如下（如果这是不正确的道歉）：

Private Sub CommandButton2_Click()
Dim IntialName As String
Dim sFileSaveName As Variant
IntialName = "Sample Output"
sFileSaveName = Application.GetSaveAsFilename(InitialFileName:=InitialName, fileFilter:="Excel Files (*.xlsm), *.xlsm")
If sFileSaveName <> False Then
ActiveWorkbook.SaveAs sFileSaveName
End If
End Sub

Answer 1

1. 用户名：Environ（“UserName”）

2. 日期：格式（日期，“ddmmyy”）

   Dim InitialName As String
   Dim sFileSaveName As Variant
   
   InitialName = "C:\temp\" & Environ("UserName") & Space(1) & Format(Date, "ddmmyy")
   
   sFileSaveName = Application.GetSaveAsFilename(InitialFileName:=InitialName, fileFilter:="Excel Files (*.xlsm), *.xlsm")
   If sFileSaveName <> False Then
       ActiveWorkbook.SaveAs sFileSaveName
   End If