VBA - 任意のユーザーのデスクトップに保存する

Question

私は回答を検索し、多くの回答を読みましたが、私はまだ失われています。私はExcel文書を持っています。私はVBA CommandButtonを設定して、シートをPDF文書にエクスポートして自分のデスクトップに保存しましたが、私は複数のユーザーが文書にアクセスして保存する必要があるため、ユーザーごとに異なるものがあります。

私は現在

Private Sub CommandButton1_Click() 
Sub SavePDF()  
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _     
      Filename:="C:\Integration\Export.pdf", _   
      OpenAfterPublish:=True 
End Sub 

を使用していますすべてのヘルプは非常に私は、ユーザーのデスクトップに保存するために、次を使用し

Answer 1

をいただければ幸いです。私は通常、私はその後、削除、一時的なテキストファイルを書き込むために、これを行うが、それは同様に、このために使用することができます。

Private Sub CommandButton1_Click() 
Sub SavePDF()  
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _     
      Filename:= Environ("USERPROFILE") & "\Desktop\Export.pdf", _   
      OpenAfterPublish:=True 
End Sub 

Answer 2

それは常にあなたが

Private Sub CommandButton1_Click() 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ 
      Filename:=CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Export.pdf", _ 
      OpenAfterPublish:=True 
End Sub 

を使用することができますデスクトップになります場合は、私は」 d CommandButton1の名前を別の名前に変更してください。おそらくcmdExportPDFとなり、jsheeranが示唆しているように、サブSavePDF()行を失います。