excel - 将记录集数据复制到多个工作表中以避免Excel VBA中最大行数限制的问题

Question

我正在 Excel/vba 2003 中开发报告应用程序。VBA 代码将搜索查询发送到数据库并通过记录集获取数据。然后将其复制到 Excel 工作表之一。检索到的数据如下所示。

ProductID--------|---DateProcessed---------|----State-----  

1................|.. 1/1/2010..............|.....Picked Up  
1................|.. 1/1/2010..............|.....Forward To Approver   
1................|.. 1/2/2010..............|.....Approver Picked Up             
1................|.. 1/3/2010..............|.....Approval Completed     
2................|.. 1/1/2010..............|.....Picked Up  
3................|.. 1/2/2010..............|.....Picked Up  
3................|.. 1/2/2010..............|.....Forward To Approver   

问题是从搜索查询中检索到的数据太大，以至于超出了 Excel 行限制(Excel 2003 中为 65536 行)。所以我想把这些数据分成两个Excel表。在拆分数据时，我想确保同一产品的数据应保留在一张表中。

例如，如果上述结果集中的最后一条记录是第 65537 条记录，那么我还想将产品 3 的所有记录移至新工作表中。

因此，sheet1 将包含产品 ID 1 和 2 的记录，总记录数 = 65534。表 2 将包含产品 ID 3 的记录 - 总记录 = 2。

如何在 vba 中实现此目的？

如果不可能，有没有其他解决方案？

提前致谢!

Answer 1

由于您没有提供有关如何访问数据库的任何代码，因此我只能为您提供一个总体概述。

首先，向数据库发送一个查询，如下所示:

"SELECT COUNT(*),ProductID FROM YourTable GROUP BY ProductID order by ProductID"

根据结果，您可以轻松计算出少于 65536 条记录的 ProductID 间隔，只需将计数相加，直到达到此限制。

最后，您将原始查询拆分为多个查询(每个数据表一个)，并添加如下 WHERE 条件:

... WHERE ProductID IS BETWEEN " + LowerIDRange + " AND " + HigherIDRange

LowerIdRange 和 HigherIDRange 必须是根据第一个查询计算出的间隔限制。