「お昼の放送」の思い出

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を使用しています。

A 回答 (1件)

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



fullPath =FSO.SpecialFolders("Desktop")


http://www.niji.or.jp/home/toru/notes/40.html
    • good
    • 0
この回答へのお礼

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

お礼日時:2008/02/29 15:49

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


おすすめ情報