エクセルからACCESSへマクロでワークシート変換していますが・・・

Question

ＡＣＣＥＳＳで作ったクエリを一度エクセルにエクスポート（マクロを使ってワークシート変換）後、エクスポート先のシートとは別シート（同一ブック内）で集計し、集計結果をＡＣＣＥＳＳへインポート（マクロを使ってワークシート変換）させたいのですが、前回の集計結果がインポートされてしまい、新しい集計結果が反映されません。

一度エクセルのブックを開けば新しい集計結果が取り込めます。
何故でしょうか？
またブックを開かずに最新のエクセルの集計結果をＡＣＣＥＳＳに反映させる方法はありますでしょうか？

O_cyan · Accepted Answer

Excelのファイルを開いて保存する記述です。
下記の場合コマンドボタンCmd1のクリック時のイベントに記述した場合。
マクロでエクスポートする部分はDoCmd.TransferSpreadsheet・・の部分です。エクセルファイル名.xlsはフルパスで記述してください。
参照設定のMicrosoft Excel *.* ObjectLibraryにチェックされているか確認しチェックされてなければチェックを入れて下さい。*.*はお使いのAccessのバージョンに合ったものが表示されているはずです。

Private Sub Cmd1_Click()
On Error GoTo Err_Cmd1_Click

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

DoCmd.TransferSpreadsheet acExport, 8, "XXX", "エクセルファイル名.xls", False, ""

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("エクセルファイル名.xls")
Set xlSheet = xlBook.Worksheets(1)

xlApp.Quit

Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing

Exit_Cmd1_Click:
Exit Sub

Err_Cmd1_Click:
MsgBox Err.Description
Resume Exit_Cmd1_Click

End Sub

9013yagi · Answer

ちょっと良くわからないので、補足要求を(^_^;
　エクスポート後、集計作業はエクセル側で行っている
のですか？それともＡＣＣＥＳＳ？
>一度エクセルのブックを開けば新しい集計結果が取り込めます。
と書いているということはエクセルではないのかな？
理解力不足で、ココがわかっていません。
同一の動作を再現したいので、再度投稿していただけると
助かります。

O_cyan · Answer

>一度エクセルのブックを開けば新しい集計結果が取り込めます。
状況が分かりにくいですが・・・
Accessでエクスポート後、ExcelのBookを開き別シートで集計した後、Excelを閉じAccessからインポートしても反映されないという事なのでしょうか？
そうでなければExcelにエクスポート後すぐAccessにインポートする。ということでしょうか？
この場合はExcel上で再計算されていないためだと思うのですが・・。
AccessからExcelのBookを開き再計算させれば良いと思うのですが。
ExcelのシートをAccessのテーブルにリンクしシートにデータを追加してもExcelのシート内で再計算はされませんから。
>またブックを開かずに最新のエクセルの集計結果をＡＣＣＥＳＳに反映させる方法はありますでしょうか？
開かないと集計を反映できないと思います。VBでExcelを閉じた状態で再計算させるのは出来ると思います。

エクセルからACCESSへマクロでワークシート変換していますが・・・

ちょっと良くわからないので、補足要求を(^_^;

この回答への補足

>一度エクセルのブックを開けば新しい集計結果が取り込めます。

この回答への補足

Excelのファイルを開いて保存する記述です。

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

　ちょっと良くわからないので、補足要求を(^_^;