如何使用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