Как в Excel добавить рекордсет? - VB

Формулировка задачи:

как в Exel добавить рекордсет в определенные ячейки но в одну строку, записей неизвестное кол-во??? А потом в конец добавить другой рекордсет по такому же принципу?

Решение задачи: «Как в Excel добавить рекордсет?»

textual
                            Листинг программы 
                        

                            Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim xl As Object
Dim i AS Long
Dim ii As String
 
Set db=DAO.Opendatabase (db_name)
Set xl = CreateObject('Excel.Application')
xl.workbooks.open ('Excel-workbook-full-path')
with xl.activeworkbook.activesheet
 
   set rs=db.openrecordset('SELECT id, f1,f2,f3 FROM Table1 ORDER BY ')
i=1
   do while not rs.eof
 
      ii=ltrim$(str$(i))
      .range('A'+ii)=rs.fields(0)
      .range('B'+ii)=rs.fields(1)
      .range('C'+ii)=rs.fields(2)
      .range('D'+ii)=rs.fields(3)
      i=i+2
      rs.movenext
   loop
end with
rs.close
set rs=nothing
set db=nothing
xl.activeworkbook.saveeas ('Excel-workbook-full-path')
set xl=nothing
                        