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

请有人帮我更改下面的代码，以便引导用户使用用户名和当前日期将其保存在特定文件夹中

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

我知道我应该在代码中的某个地方使用“application.username”，但不确定完整的代码是什么样子

到目前为止，我可以准备以下内容（如果这是错误的，我深表歉意）：

Private子命令按钮2\u单击（）
将初始名称设置为字符串
Dim sFileSaveName作为变量
initialname=“样本输出”
sFileSaveName=Application.GetSaveAsFilename（InitialFileName:=InitialName，fileFilter:=“Excel文件（*.xlsm），*.xlsm”）
如果sFileSaveName为False，则
ActiveWorkbook.SaveAs sFileSaveName
如果结束
端接头

用户名：Environ（“用户名”）

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

Dim InitialName作为字符串
Dim sFileSaveName作为变量
InitialName=“C:\temp\”&Environ（“用户名”）&Space（1）和Format（日期，“ddmmyy”）
sFileSaveName=Application.GetSaveAsFilename（InitialFileName:=InitialName，fileFilter:=“Excel文件（*.xlsm），*.xlsm”）
如果sFileSaveName为False，则
ActiveWorkbook.SaveAs sFileSaveName
如果结束

用户名：Environ（“用户名”）

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

Dim InitialName作为字符串
Dim sFileSaveName作为变量
InitialName=“C:\temp\”&Environ（“用户名”）&Space（1）和Format（日期，“ddmmyy”）
sFileSaveName=Application.GetSaveAsFilename（InitialFileName:=InitialName，fileFilter:=“Excel文件（*.xlsm），*.xlsm”）
如果sFileSaveName为False，则
ActiveWorkbook.SaveAs sFileSaveName
如果结束

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

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