如何使用VBA將工作表保存到具有特定名稱的特定文件夾中？

Question

請有人幫助我更改以下代碼，以便指導用戶將其及其用戶名和當前日期保存在特定文件夾中

當按下命令button2時，“另存為”框應在以下路徑中打開：“ 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