Mam's WebSite
建築CGパース住宅CGパース

Mamの覚書Q&A検索

トップページMamの覚書Q&A検索Access(VBA)⇒Q&A


大項目:「 Access 」 - 中項目:「 VBA 」

「 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


Mam's WebSite