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

【问题标题】：Command Button - click and save on desktop of the user (there are many users)命令按钮 - 单击并保存在用户的桌面上（有很多用户）
【发布时间】：2016-09-15 06:46:57
【问题描述】：

我已经设置了以下宏，以使文档自动保存在我的桌面上，名称在单元格 D1 中。但是，它不会保存在我的桌面上，而是自动保存在库/文档下。它适用于多个用户，因此单击按钮时应将其保存在他们的桌面上。我故意做了一条评论“\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

【问题讨论】：

标签： vba save desktop

【解决方案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

【讨论】：

@AlmarM，你通过了吗？
太好了，它与您的解决方案完美搭配。我刚检查过。非常感谢您的帮助:)