如何使用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（ 「用戶名」）

2. 日期：格式（Date，「日月年「）

   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