「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