ExcelBookを作って保存して開いて書いて…このコードを簡素にしたい

質問

よろしくお願いします。
Accessから新規のExcelへデータをエクスポートしたいと思っています。
TransferSpreadsheet はシングルコーテーションがついてしまうのでやめて
OutputTo はファイル形式エラーが出てしまうのでやめて
CopyFromRecordset rs で行っています。

ユーザーにまずダイアログで保存先を指定してもらっています。
SaveAsのキャンセル時の処理が面倒そうだったので、ダイアログで指定した後にdir関数で同名ファイルの有無を見て存在していたらメッセージを出して保存するしないの選択をしてもらってます。
保存するならそのまま進んで、
xlApp.DisplayAlerts = False
xlBook.SaveAs (strFileName)
でメッセージを出さずに強制上書きしています。

'新規でExcelを起動
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
'指定されたファイル名で指定されたフォルダへ一旦保存
xlApp.DisplayAlerts = False
xlBook.SaveAs (strFileName)←指定されたフルパスファイル名
'名前をつけて保存したファイルを開く
Set xlBook = xlApp.Workbooks.Open(strFileName)
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Range("A1").CopyFromRecordset rs

何か…新規で作って保存して開いて書いて、無駄が多い気がします。
新規ExcelBookに指定したファイル名を付けられれば一番良いのですが
何か良い方法、処理の仕方等ありましたら教えて下さい。

回答No.1

n-jun · ベストアンサー

新規で作成したブックに対して作業を行ない、最後に名前を付けて保存するのではまずいのでしょうか？
⇒ExcelVBAでしかしてませんが、名前を付けて保存は最後にやってます。

＞'名前をつけて保存したファイルを開く
＞Set xlBook = xlApp.Workbooks.Open(strFileName)
をなくして、
＞指定されたファイル名で指定されたフォルダへ一旦保存
＞xlApp.DisplayAlerts = False
＞xlBook.SaveAs (strFileName)←指定されたフルパスファイル名
を最後にやるとか？

お礼

ご回答ありがとうございます。
そうですよね！最後の最後に又上書きしているんです(汗)
そこのみで、新規を一旦保存しなくても良いんですよね。
エラーが発生したらファイルが残る事も無いのだし。
ありがとうございます！