将访问 VBA 记录集导出到 Excel 中的单行

Question

我正在尝试编写一些 VBA 以将记录集从 Access 导出到 Excel。我终于归结为下面的导出过程，但它导出到 A 列和 B 列，我希望所有数据都导出到第 2 行。

导出到第 2 行的正确 protocol/syntax 是什么？

Do While Not rsone.EOF
   columnNum = 1
   rowNum = rowNum + 1
   For Each fieldsss In rsone.Fields
       newExcelApp.Cells(rowNum, columnNum) = fieldsss.Value
     columnNum = columnNum + 1
   Next fieldsss
   rsone.MoveNext
Loop

Answer 1

kurtz 的回答几乎是正确的，但他忘记停止重置列号，使每条下一条记录覆盖前一条。

使用这个：

columnNum = 1
Do While Not rsone.EOF
   For Each fieldsss In rsone.Fields
       newExcelApp.Cells(2, columnNum).Value = fieldsss
     columnNum = columnNum + 1
   Next fieldsss
   rsone.MoveNext
Loop

将访问 VBA 记录集导出到 Excel 中的单行

Export Access VBA Recordset To Single Row In Excel

ms-access

vba

ms-access-2013

recordset