002:Access:AccessからExcelへの書き込み

 Accessからデータを吐き出したいことがありますが、データ処理をメインに行っているため、どうしてもEXCELを使いたい・・・ということで、EXCELへの出力方法を・・・


dd = Application.CurrentProject.Path & "\"
src = dd & "書式-帳票.xls"
dst = dd & "出力帳票.xls"

ss = Dir(dst)
If (ss <> "") Then
    rts = MsgBox(dst & " が既に存在します。上書きしてよろしいですか?", _
          vbQuestion + vbYesNo + vbDefaultButton2, "上書きの問い合わせ")
    If (rts <> vbYes) Then Exit Sub
End If

On Error GoTo ERR01
FileCopy src, dst
On Error GoTo 0

'***** EXCELオープン
On Error GoTo ERR02
Set objExcel = Excel.Application
objExcel.Workbooks.Open (dst)
objExcel.Visible = True
On Error GoTo 0

 どうも、フォームに対するコードの中でしか使えないようですが、深く追及していません。 ソースコードに下記の宣言が必要です。

 あと、VBAの参照設定で、Microsoft Excel 14.0 Object Library を参照設定する必要があります。


Dim WithEvents objExcel As Excel.Application