AccessVBAのExcelエクスポートについて

Question

お世話になります。
Access2013にて下記コードの様にテーブルデータを既存のExcelファイルへ
エクスポートしようとしているのですが、いつからか既存の"テーブル名"シートに
上書きする形ではなく、"テーブル名1"と新規シートを作成してエクスポート
するようになってしまいました。

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "テーブル名", [ファイルパス] & ".xls", True

AccessとExcelのバージョンの違い？で仕様が異なるっという記事を観たので
下記のようにしてみても同様の結果でした。

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "テーブル名", [ファイルパス] & ".xlsx", True

希望の結果としては既存の"テーブル名"シートに上書きする形で
エクスポートされて欲しいのですが、何か解決策はありますでしょうか？
ちなみに使用しているExcelは2013となります。
よろしくお願い致します。

Answer 1

上書きするのではなく、削除からの新規作成ではだめでしょうか？

Comments

[menmen]

SASAHARAさん
回答ありがとうございます！
新規作成でもできなくもないのですが、
書式を流用しての上書き出力を行いたいのです。

なので下記のように既存Excelへテーブルの中身を
出力するように改修しています。

ObjExcel.Range("A2").CopyFromRecordset [テーブルの中身]

出力は問題なくされているようなのですが、
別の問題が発生していまして、、、
下記のように上書き保存をしようとすると
「Application クラスのSaveメソッドが失敗しました」
と出てしまいます。

[ObjExcel.DisplayAlerts = False]でメッセージは
非出力にしているのですが、それでもでます。
最初の質問とは変わりますが、こちらの上書き保存の
エラーはどうすれば解決できますでしょうか？

[menmen]

すいません自己解決しました。
[ObjExcel]にはWorkbookオブジェクトが含まれていない
状態でしたので、下記のようにWorkbookオブジェクトを含めて
Closeしたら成功しました。
基本的なところで詰まっていました。

Set WB = ObjExcel.Workbooks.Open([Excelファイルパス])
WB.Close SaveChanges:=True

改めて回答ありがとうございました。
また機会がありましたらよろしくお願い致します。

[SASAHARA]

解決されて何よりです！
結局あまりお役にたてませんでしたが、また何かあればよろしくお願いしますね。