将 Access 表的动态数量导出到 Excel

Question

我正在尝试将多个 Access table 导出到 Excel。

如果我指定 tables 和 RS1 等，它会起作用，但我需要将此作为一个动态数量的访问 tables 到一个 Excel 报告中。（这是每周一次的客户报告，每周可能会有所不同，但需要导出到一个报告中，而不是多个 Excel 导出。）

以下作品。

Dim rs1 As DAO.Recordset,
Dim rs2 As DAO.Recordset

下面returns一个错误。

Dim rs() As DAO.Recordset

我有一个计数器可以在每次访问 table 更改时计数，但 RS 部分现在显示错误。

myRowCount = 1            
Set rs(myRowCount) = CurrentDb.OpenRecordset(mycustomers, dbOpenSnapshot)

Answer 1

您可以使用数组：

Dim Recordsets()    As DAO.Recordset
Dim Index           As Integer

ReDim Recordsets(1 To 3)

Set Recordsets(1) = CurrentDb.OpenRecordset("Customer")
Set Recordsets(2) = CurrentDb.OpenRecordset("Client")
Set Recordsets(3) = CurrentDb.OpenRecordset("Contact")

For Index = LBound(Recordsets) To UBound(Recordsets)
    Debug.Print Index, Recordsets(Index).RecordCount
    Recordsets(Index).Close
Next

将 Access 表的动态数量导出到 Excel

Export dynamic number of Access tables to Excel

excel

export

ms-access-2016