ACCESS VBAで、エクセルファイルの更新

質問

ACCESS VBAで、エクセルファイルの更新を行いたいのですが、方法を教えてください。

エクセルで書式や集計の計算式を作成し、データ部のみＡＣＣＥＳＳで集計した値を置き換える方法を教えてください。

回答No.1

nda23 · ベストアンサー

Dim App 'Excelのアプリケーション
Dim Wkb 'ワークブック
Dim Wks 'ワークシート
Set App = CreateObject("Excel.Application")
Set Wkb = App.Workbooks.Open("C:\～") '★既存ファイルの場合
Set Wkb = App.Workbooks.Add '★新しいブックを作る場合
Set Wks = Wkb.WorkSheets(1) '★既存のシートの場合
Set Wks = Wkb.WorkSheets.Add '★新しいシートを作る場合
== Wksオブジェクトの操作 ==
App.DisplayAlarts = False '上書き警告を無視する
Wkb.Save '★上書き保存
Wkb.SaveAs "C:\～" '★名前を付けて保存
App.Quit 'Excelを終了する
Set App = Nothing 'プロセス空間を解放する

ブックやシートの操作はExcelのVBAと同じです。