VB6 Copy worksheets Excel

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

Привет великий алл. в очередной раз обращаюсь тебе за хелпом.
Есть рекордсет нужно его выгрузить в ексел, все бы не чего
но есть одно но, как из VB6 создать, а лучше скопировать лист в буке Екселя.
а то решил сделать мультиселект и чтоб каждый запрос выгружался в свой лист, но шаблоном был первый.
За ранее благодарю тебя великий и могучий алл, и надеюсь на твою мудрость.
)

Решение задачи: «VB6 Copy worksheets Excel»

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

                            <font color="blue">Dim</font> objExcelApp <font color="blue">As</font> <font color="blue">Object</font>,objReportWb <font color="blue">As</font> <font color="blue">Object</font>,objReportWSh <font color="blue">As</font> <font color="blue">Object</font>
<font color="blue">Set</font> objExcelApp = CreateObject(<font color="teal">"Excel.Application"</font>)
<font color="blue">Set</font> objReportWb = objExcelApp.Workbooks.Add
<font color="blue">Set</font> objReportWSh = objReportWb.Sheets(<font color="darkblue"><b>1</b></font>)
<font color="blue">Do</font> <font color="blue">While</font> <font color="blue">Not</font> rstQrySubscribers.EOF
      objReportWSh.Cells(i,<font color="darkblue"><b>1</b></font>).Value=rstQuery.Subscribers.Fields(<font color="teal">"Subscriber"</font>).Value
      rstQrySubscribers.MoveNext
<font color="blue">Loop</font>
objReportWb.SaveAs....
objReportWb.<font color="blue">Close</font>
objExcelApp.Quit
<font color="blue">Set</font> objReportWSh=<font color="blue">Nothing</font>
<font color="blue">Set</font> objReportWb=<font color="blue">Nothing</font>
<font color="blue">Set</font> objExcelApp=<font color="blue">Nothing</font>

                        