命令按钮 - 单击并保存在用户的桌面上（有很多用户）

Question

我设置了以下宏，使文档自动保存在我的桌面上，名称在单元格 D1 中。但是，它没有保存在我的桌面上，而是自动保存在 library/documents 下。它适用于多个用户，因此单击按钮时应将其保存在桌面上。我故意做了一个评论“\desktop”，否则它只是添加到名称中。如果您能与我分享最后一段宏，那就太好了。非常感谢您的帮助和建议。

Private Sub CommandButton21_Click()
  Set objWS = CreateObject("WScript.Shell")
  strDesktopPath = objWS.SpecialFolders("\Desktop")
  Dim FileName1 As String
  FileName1 = Range("D1")
  ThisWorkbook.SaveAs strDesktopPath & FileName1 & ".xlsm",
  FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub

Answer 1

从 strDesktopPath = objWS.SpecialFolders("\Desktop")

中删除“\”

在...strDesktopPath和& FileName1 & ".xlsm",之间添加“\”

在“,”

之后添加连续字符序列“_”

喜欢如下：

    Private Sub CommandButton21_Click()
      Set objWS = CreateObject("WScript.Shell")
      strDesktopPath = objWS.SpecialFolders("Desktop")
      Dim FileName1 As String
      FileName1 = Range("D1")
      ThisWorkbook.SaveAs strDesktopPath & "\" & FileName1 & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled
    End Sub

命令按钮 - 单击并保存在用户的桌面上（有很多用户）

Command Button - click and save on desktop of the user (there are many users)

desktop

vba

save