使用MS Access VBA中另一个表中的条件创建Excel电子表格

Question

我需要一些Access Access VBA和Excel帮助。我有两个表：

t_Customer

- CustomerID 
- CustomerName 
- CustomerAccnt 

t_Orders

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

我需要创建Excel文件为每一个客户，包括订单详细信息和客户详细信息，以及。每个文件都应该被称为“Transaction for .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