VB6 Copy worksheets Excel
Формулировка задачи:
Привет великий алл. в очередной раз обращаюсь тебе за хелпом.
Есть рекордсет нужно его выгрузить в ексел, все бы не чего
но есть одно но, как из VB6 создать, а лучше скопировать лист в буке Екселя.
а то решил сделать мультиселект и чтоб каждый запрос выгружался в свой лист, но шаблоном был первый.
За ранее благодарю тебя великий и могучий алл, и надеюсь на твою мудрость.
)
Есть рекордсет нужно его выгрузить в ексел, все бы не чего
но есть одно но, как из 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>