ACCESSからExcelへ出力する方法について

Question

ACCESS初心者です。質問させていただきます。

◆やりたいこと
横に長いクエリを4つに分解し、Excelに出力したい。その際、それぞれのクエリを任意のセルに出力したい。

◆やったこと

Dim RS1 As Recordset, RS2 As Recordset
Dim RR As Integer 'ROW
Dim CC As Integer 'Cell
Dim EE As Object 'Excel

    Set DB = CurrentDb()
    Set RS1 = DB.OpenRecordset("Q_シミュレート_1")
    
    Set EE = CreateObject("Excel.Application")
    
    With EE
        .ScreenUpdating = true
        .Workbooks.Add
    End With
    
    
    EE.Cells(1, 1).CopyFromRecordset RS1
    EE.Quit
    
    Set RS1 = Nothing
    Set DB = Nothing
    

End Sub

まず任意の場所に出力できるか１つのクエリだけで作成してみました。Excelへの出力を確認できればFor～Nextで繰り返しの処理を行い、Excel製表を造りこんで行こうと思っております。

◆起こったこと
EE.Cells(1, 1).CopyFromRecordset RS1の時点で実行中のまま何も起こりません。
タスクマネージャーで確認したところExcelは立ち上がっており、強制的にExcelのタスクを終了すると、『EE.Quit』に移動します。
ネットで調べてみて『Microsoft Excel 16.0 Object Library」の有効が必要とあったので、やってみました。
また、Application.ScreenUpdatingはtrueにしたのは挙動を確認しながら造りこんで行きたいためで、最終的にはfalseにしようと考えております。

ご教示宜しくお願い致します。

Comments

[sazi]

ACSESS VBAですか？　EXCEL VBA ですか？

Answer 1

『EE.Visible = True』を加えることで表示されました。
ご迷惑おかけいたしました。