トップへ(mam-mam.net/)

OLEでAccessからExcelを操作するには

検索:

「OLEでAccessからExcelを操作するには」

AccessからExcelをOLEで直接操作するには?

回答

Accessでモジュールの参照設定を選択し、
Microsoft Excel x.x Object Library にチェックをつけます。
そうすると、VBAからExcelを操作できます。

ソース

例(1)
Function EXCEL_OPEN()
On Error GoTo EXCEL_OPEN_Err
Dim oApp As Object
Dim i As Integer
  Set oApp = CreateObject("Excel.Application")
  oApp.Workbooks.Add
  oApp.Visible = True
  For i = 1 To 10
    oApp.ActiveSheet.cells(1, i).Value = i
  Next i
  Set oApp = Nothing
EXCEL_OPEN_Exit:
  Exit Function
EXCEL_OPEN_Err:
  MsgBox Error$
  Resume EXCEL_OPEN_Exit
End Function

例(2)
Sub test()
Dim objExcel As New Excel.Application
objExcel.Workbooks.Add
objExcel.Visible = True
Set objExcel = Nothing
End Sub