Создание электронной таблицы Excel с использованием критериев из другой таблицы в MS Access VBA

Question

Мне нужна помощь с MS Access VBA и Excel.У меня есть две таблицы:

t_Customer

- CustomerID
- CustomerName
- CustomerAccnt

t_Orders

- OrderID
- Desc
- PartNo
- Amount
- Disc
- Date
- CustomerID

Мне нужно создать файл Excel длякаждого клиента, включая детали заказа и детали клиента.Каждый файл должен называться «Транзакции для .xls». Моя идея состоит в том, чтобы взять каждого клиента из таблицы клиентов в цикле, сопоставить информацию из таблицы заказов, создать временную таблицу и экспортировать в Excel.

Я не знаю, как это сделать, любая помощь или совет будут оценены.

Answer 1

Вы находитесь на правильных линиях. Я хотел бы сделать что-то вроде этого (код Presto, но должен работать)

Dim Db as DAO.Database
Dim Rst as DAO.Recordset

Set Rst = Db.OpenRecordset ("SELECT Customer_ID, Customer_name FROM t_Customer")
With Rst
    Do Until .Eof
        Db.CreateQueryDef "qryTemp_query", _
            "SELECT blah FROM t_Order WHERE Customer_ID=" & !Customer_ID.Value
        DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, _
            "qryTemp_query", "C:\Transactions for " & !Customer_name.Value
        Db.QueryDefs.Delete "qryTemp_query"
        .MoveNext
    Loop
End With
Rst.Close
Db.Close