ACCESS2013にて EXCELへのエクスポートができなくなる

Question

ACCESS2013　から　Excel(xlsx)へのエクスポートにおいて

更新（上書き）されなくなる現象が起きてしまいます。

マクロのコマンドで

[スプレッドシートのインポート/エクスポート]を利用し、

Ａというクエリを指定の場所へのExcelファイルを作成しました。

シートの種類：Excel Workbook

フィールド名の指定：いいえ

同様に、A-1、A-2という別クエリも同一ファイルにエクスポートします。

ブック内に各シートが作成されるという構成です。

マクロをスケジュール化し、日々のデータを更新する目的です。

このマクロを実行し、初回は無事に作成されました。

しかし、タスクスケジュールに組み込み、日々のデータ更新をセットすると

いつの間にか更新（上書き）されなくなってしまします。

クエリの内容を確認すると、クエリでの内容は変わっているのですが

Excelの内容が更新（上書き）されないという状況です。

※マクロを再度実行してもダメで、更新（上書き）されません。

しかも、そのクエリの抽出条件だけを変えた、Ｂ、Ｃ、Ｄ、、、

といったクエリも同様にエクスポート実行しているのですが

Ｂは更新される、Ｃは更新されない、、、などまちまちです。

一度、Excelファイルを削除すると、当然現在の内容でエクスポートされるので

再度、作成して対処しています。

①初回はエクスポートできて、あるタイミングで上書きできない条件とは？

②確実に更新するようにするには？

どうか、ご助言願います。

Answer 1

Makapu様、このまま使わせて頂きました。ありがとうございます。

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "QTest", FName 

の部分だけ、

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "QTest", FName 

にしないとファイル形式によってはエクスポート先のEXCELファイルを開くことができなくなります。

参考：AcSpreadSheetType Enumeration (Access)

https://msdn.microsoft.com/en-us/vba/access-vba/articles/acspreadsheettype-enumeration-access

Answer 2

KIMURA_508さん、ご返信ありがとうございます。

書式がリセットされるので「削除→新規」ではなく、

やはり上書き保存したいという事ですね。

タスクスケジュールに組み込んで上書き保存がうまくいかなくなる現象について

私の方では他にうまく調べられませんでした。。。

もしよろしければ、経験豊富な方が多くいらっしゃる

msdnフォーラムに投稿されてみてはいかがでしょう。

msdnフォーラム（VBA）

Answer 3

Makapu 様

早々のご回答ありがとうございます。

「削除→新規」も検討しましたが

書式がリセットされてしましますので

オートフィルターが継承できなくなってしまいます。

オートフィルター付きでエクスポートできれば良いのですが。。。

Answer 4

KIKIMURA_508さん こんにちは。

上書きをするのではなく、常に新規でエクスポートするよう

一度ファイルを削除してからエクスポートするようにしてはいかがでしょう。

VBAになりますが

’ファイルを削除してからエクスポートする動作のサンプル

Sub TestExp()

    Const FName = "C:\D\Test.xlsx"　　'ファイル←Cドライブの下のDフォルダの中のTest.xlsx

    If Dir(FName) <> "" Then    'ファイルが存在したら

        Kill FName              '削除する

    End If

　'QTest クエリーを Text.xlsx にエクスポート

    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "QTest", FName 

End Sub