コマンドボタン - ユーザーのデスクトップにクリックして保存します（多数のユーザーがいます）

Question

セルD1に名前を持つドキュメントをデスクトップに自動的に保存するように次のマクロをセットアップしました。ただし、デスクトップに保存する代わりに、ライブラリ/ドキュメントの下に自動的に保存されます。複数のユーザーのために、ボタンをクリックするとデスクトップに保存する必要があります。 コメント1つ私は意図的に "\ 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