ファイルの保存先のパス

マクロでデスクトップに保存させたいのですが、
ActiveWorkbook.SaveAs Filename:= _
"D:\Documents and Settings\●●●\デスクトップ\Book1.xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

の●●●のように、私のユーザー名が入ります。
このファイルは色々な人に使ってもらいたいので、
LOCALみたいな意味合いの言葉を入れたいのですが、
なんと入れたら良いでしょうか？
ご存知の方いらっしゃいましたら宜しくお願いします。

No.3 ベストアンサー 回答者： grace2973 回答日時： 2004/09/01 15:35

Application.UserName

でユーザ名が取得できますので
それを利用してみてはいかがでしょう。

または、「すべてのユーザ」でよければ
「All Users」としてしまうという手もあります。

No.2 回答者： taka_tetsu 回答日時： 2004/09/01 15:27

Set objShl = WScript.CreateObject("WScript.Shell")

MsgBox objShl.SpecialFolders("Desktop")

で取得できます。

No.1 回答者： Seiryo 回答日時： 2004/09/01 15:22

アドレス紹介しときますね

http://www.google.com/search?num=50&hl=ja&q=%E3% …