Excelマクロで別名保存したい時のパス指定の仕方

質問

Excelマクロでネットワーク上のファイルを、別名で自パソコンのデスクトップへ保存したいと思ってます。
ネットワーク上のファイルを開くのは決まったパソコンではない為、
GetAbsolutePathNameというメソッドを使用してます。
別名保存はsaveAsメソッドで保存したいのですが、絶対パスを指定しているにもかかわらずファイル名と認識されているらしく、1004のエラーが出てしまいます。
どうすれば絶対パスと認識してくれるのでしょうか？
どなたか教えてください。

エラー内容は以下のとおりです。
実行時エラー：'1004':
『C:\Documents and Settings\パソコン名\My Documents\
"デスクトップ"にアクセスできません。』

ソースは以下のとおりです。
Dim fullPath As String
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
fullPath =FSO.GetAbsolutePathName("デスクトップ")
fullPath =fullPath & "\"&"ファイル名.xls"
ActiveWorkbook.SaveAs Filename:=fullPath

バージョンはExcel2000を使用しています。

回答No.1

hana-hana3 · ベストアンサー

>fullPath =FSO.GetAbsolutePathName("デスクトップ")

fullPath =FSO.SpecialFolders("Desktop")

http://www.niji.or.jp/home/toru/notes/40.html

お礼

教えていただいた方法で解決しました！
リンクもつけていただき、大変分かりやすかったです。
ありがとうございました！