ExcelからAccessでデータ集計を実行させ、その結果をExcelに戻したい

Question

【やりたいこと】
　ExcelからAccessを起動しAccessで集計した結果を、もとのExcelのシートへ貼り付けたい。


【詳細】
　１．Excelに作成したマクロ実行ボタンからAccessを起動
```ここに言語を入力
Sub Aecees集計()
    Dim objACCESS As Object  
    Set objACCESS = CreateObject("Access.Application")
    objACCESS.OpenCurrentDatabase ActiveWorkbook.Path & "\仕入用.accdb"
    With objACCESS
        .Visible = false
        .Run "Execute_Manager", Format(Cells(2, "c").Value, "yyyymm")        
    End With
    Set objACCESS = Nothing
End Sub
```
　２．Accessでは
　　　　・データのリンク処理
　　　　・クエリの実行(テーブル作成クエリ）
　　　　・作成したテーブルをCopyFromRecordsetでExcelのシートへ貼り付け

　３．その後、Excelへ戻り貼り付けたシートをもとに計算処理などをして保存して終了

【困っていること】
　　Accessから最初に開いていたExcelのシートにデータを貼り付ける処理がわかりません。
　　Accessからファイル名を指定して開くと、当然ですが別ファイルが開き困っています。
　　（ユーザーの操作はExcelのみとしたいため、また貼り付けた後に数値を確認し、
　　　手修正で微調整を行い最終的に計算結果を確定させるため、このような処理の流れを検討しています）

どなたかお知恵をぜひお貸しください。。。
よろしくお願いいたします。

Accepted Answer

ご回答いただいた皆様ありがとうございました。
またサイトの使い方を理解できておらず、記載方法が悪く申し訳ございませんでした。

ExcelからAccessを裏で動かし、テーブルの作成→Excelのシート操作までを行わせようと思っておりましたが
回答内容から考え方に間違いがあることに気づき、
Accessではテーブル作成までで処理を終了させ、残りはExcel内で行うように変更いたしました。

参考URL等とても勉強になりました。
ありがとうございました。




```ここに言語を入力
Sub Aecees集計()

    Dim objACCESS As Object  
    Set objACCESS = CreateObject("Access.Application")
    objACCESS.OpenCurrentDatabase ActiveWorkbook.Path & "\仕入用.accdb"

    objACCESS.Run "Execute_Manager", Format(Cells(2, "c").Value, "yyyymm") 
　　'モジュール"Execute_Manager"では ソースデータのリンク/テーブル作成クエリを実行　       
    Set objACCESS = Nothing
    Call AccessDataImport

End Sub


Sub AccessDataImport()
  Dim CN As New ADODB.Connection
  Dim RS As New ADODB.Recordset
  Dim dbFile As Variant
  
  dbFile = ActiveWorkbook.Path & "\仕入.accdb"
  CN.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & dbFile & ""
  CN.Open
    
'        '----- 計算シート---------------------------------
        RS.Open "計算", CN, adOpenKeyset
        Sheets("計算").Range("A10").CopyFromRecordset RS
        RS.Close

'        '----- 通知書シート---------------------------------
        RS.Open "通知書;", CN, adOpenKeyset
        Sheets("通知書").Range("C5").CopyFromRecordset RS
        RS.Close: Set RS = Nothing
        Calculate              '再計算

    '連番もろもろ
    '書式設定もろもろ

        xlApp.Calculation = xlCalculationAutomatic
        xlBook.SaveAs StrPath & "_" & strDate & ".xlsm"
        xlBook.Close: Set xlBook = Nothing
        xlApp.Quit: Set xlApp = Nothing

End Sub
```

Answer

思いついたアイデアだけ
実現性は不明です


0. Access側の関数'Execute_Manager'の引数にEXCELのオブジェクト
例えばWorkbookオブジェクト OR Worksheetオブジェクト OR Rangeオブジェクトを渡して、Execute_Manager内で中身を設定する。

0. Access側の関数'Execute_Manager'の戻り値をobject型にしていおいてRecordsetオブジェクトを設定して返し、Excel側のコードでCopyFromRecordsetメソッドを実行する。

0. Access側の関数'Execute_Manager'の戻り値をVariant型にしていおいてRecordsetの結果を2次元配列に変換して設定して返し、Excel側のコードで2次元配列をRangeに設定する

Answer

Accessのテーブルデータまたはクエリデータをエクセルのシートに貼り付けたいということですよね。
ならば、Accessを起動する必要はありません。

> ・作成したテーブルをCopyFromRecordsetでExcelのシートへ貼り付け

そもそも CopyFromRecordset は Access.Application のメソッドではありません。
ADODBのメソッドです。

「Excel ADODB CopyFromRecordset」でWEB検索すると解説やサンプルコードがいろいろ見つかるのでまずはそれで勉強して、コードを書いてみてください。

例えば、

[【VBA】テーブル（Access）のデータをワークシートに転記する](https://jizilog.com/vba-copyfromrecord)

Answer

ExcelからADOでAccessのクエリ実行すればいいんじゃないですかね。
[ADOを使ってExcelからAccessデータを利用してみよう](https://infith.com/system/access/excel_access_ado/)
"excel ado access"でググったら他にも記事出てくると思うので探してみてください。

関連した質問