私はノーツヘルプの使い方が下手で・・・ dir()ってのがあったんですね。ちゃんとヘルプ探してませんでした 申し訳ないです。 dirを使う事で正常にいきました。ありがとうございました。 ただ、GetObject()から取り出した既存ファイルを、新規ファイル 同様に編集していくと、なぜかBookはあれどSheetが１枚も無い という奇妙な現象が発生して、わけがわからないので、 if (dir(strFileName$)<>"") then ' ファイル入力ダイアログで上書き確認は済んでいるので、既存ファイルは削除 kill(strFileName$) end if Set XLSBook = CreateObject("Excel.Sheet") ということで既存ファイルを削除して、必ず新規にしてしまいました（^^;; とにかくうまくいくようになりました。TAMさんありがとうございました！
既存Excelファイル書出時のファイル置き換え確認