Question

我已设置以下宏以使文档自动保存在我的桌面上，并在单元格D1中显示名称。但是，它不是保存在我的桌面上，而是自动保存在库/文档下。它适用于多个用户，因此在单击按钮时应将其保存在桌面上。一个评论我故意做了“\桌面”，而不是它只是添加到名称中。如果你可以与我分享宏的最后一块，那将是很棒的。非常感谢您的帮助和建议。

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

删除＆＃34; \＆＃34;来自strDesktopPath = objWS.SpecialFolders("\Desktop")

添加＆＃34; \＆＃34;在...strDesktopPath和& FileName1 & ".xlsm",

之间

添加一个连续字符序列＆＃34; _＆＃34;在＆＃34; ,＆＃34;

之后

如下：

    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

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

1 个答案: