AccessからExcelのシートを削除
現在AccessのテーブルをExcelへエクスポートする処理を書いています。
内容は以下のとおりです。
・エクスポート先のExcelファイルは新規のものではなく既存のファイルを使用
・エクスポートする際、以前エクスポートした分のシートを削除してから転送させたい
下記のようなコードを書きましたが実行してみると前回エクスポートした分のシートは削除されておらず
今回エクスポートしたものが追加されているという状況です。
●エクスポート先Excelファイル名：エクセルファイル.xls
●エクスポートするテーブル名(Excelではシート名)：転送テーブル
Set xlsApp = CreateObject("Excel.Application")
Set wkBook = xlsApp.Workbooks.Open("C\エクセルファイル.xls")
wkb.Application.DisplayAlerts = False
wkBook.Worksheets("転送テーブル").Activate
wkBook.Worksheets("転送テーブル").Delete
wkBook.Save
wkBook.Close
wkb.Application.DisplayAlerts = True
Set xlsApp = Nothing
Set wkBook = Nothing
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "エクセルファイル.xls", FullPath
どうぞよろしくお願い致しますm<_ _>m
お礼
ご教示ありがとうございます。 このようなやり方もあるのですね。 ただ、エクセルからアクセスのデータを取得しにゆくのではなく、 アクセスからエクセルへデータを落とし込む方法を探しています。 フォームのボタンを押したら「エクスポート」して、 エクセルの同一シートに追記してゆく方法はないでしょうか？