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")
Спасибо.