Вставка данных в шаблон Excel из рекордсета

AlexanderKR
Дата: 19.11.2006 19:11:01
Помогите разрешить такую проблему.
Необходимо в определенное место в шаблоне Excel (xlt)
вставить данные из рекордсета.
Можно ли вставить данные из двух разных запросов (рекордсетов),
а не только из одного?

Код примерно такой:

''''''''''''''''

Private Sub Кнопка24_Click()

Dim cnnCur As ADODB.Connection
Dim rstDetails As ADODB.Recordset

Set xlApp = New Excel.Application
xlApp.Visible = True
strTemplPath = Trim([Forms]![Form1]![edit1]) & "obyem.xlt"

Set xlSheet1 = xlBook.Sheets("1(7)")
Set rstDetails = New ADODB.Recordset

strSQL = "SELECT ВН,СН1,СН2,НН FROM Величины_по_договору"

rstDetails.Open strSQL, cnnCur, adOpenStatic, adLockReadOnly


With xlSheet1
.Range("the_start7").CopyFromRecordset rstDetails
End With


rstDetails.Close
Set rstDetails = Nothing


cnnCur.Close
Set cnnCur = Nothing

Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing

End Sub

'''''''''''''''''''''''''''''''''''
Как в этот же самый шаблон вставить данные из
другого запроса
(напр. такого: strSQL1 = "SELECT spr_sch.TYPE, spr_sch.F_NUM FROM spr_sch")

Спасибо.