命令按鈕 - 單擊並保存在用戶的桌面上（有許多用戶）

我已經設置了以下宏以將文檔自動保存在我的桌面上，名稱在單元格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

來源

2016-09-15 AlmarM

「,」

等之後刪除「\」從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

來源

2016-09-15 08:48:54 user3598756

@AlmarM，你通過它了嗎？ – user3598756

太棒了，它適合您的解決方案。我剛剛檢查過。非常感謝您的幫助:) – AlmarM

不客氣 – user3598756

命令按鈕 - 單擊並保存在用戶的桌面上（有許多用戶）

回答

相關問題