追加のワークブックの場所をデスクトップとして設定するにはどうすればよいですか？

Question

余分なブックをデスクトップに保存したい。

しかし、私の会社のコンピュータには多くの異なるユーザーアカウントがあります。このブックは、すべてのユーザーに適しており、ユーザーアカウントのデスクトップに格納されている必要があります。

。具体的には、

私のデスクトップ場所= c:\Users\knd\Desktop ピーターデスクトップ場所=

c:\Users\peterd\Desktopは、それはそれを行うことは可能ですか？

strFileName = "c:\Users\(username)\Desktop" 

wb.SaveAs strFileName 

Answer 1

はい、次のコマンドを使用する必要があります。

strFileName = "c:\Users\" & Environ("Username") & "\Desktop" 

Answer 2

あなたはデスクトップのパスを取得するにはWscript.Shellを使用することができます。

Environ("Username") 

は、以下のコードを試してみてください。

Function getDeskTopPath() As String 
    Dim oShell As Object 
    Set oShell = CreateObject("Wscript.Shell") 
    getDeskTopPath = oShell.SpecialFolders("Desktop") 
    Set oShell = Nothing 
End Function 

参考：WshShell.SpecialFolders

追加の特別なフォルダ

AllUsersDesktop 
    AllUsersStartMenu 
    AllUsersPrograms 
    AllUsersStartup 
    Desktop 
    Favorites 
    Fonts 
    MyDocuments 
    NetHood 
    PrintHood 
    Programs 
    Recent 
    SendTo 
    StartMenu 
    Startup 
    Templates