Dim xlApp As Object
Dim wkb As Workbook
Dim sht1 As Worksheet
Dim sht2 As Worksheet
Set xlApp = CreateObject("excel.application")
Set wkb = xlApp.Workbooks.Add
Set sht1 = wkb.Sheets("Лист1")
Set sht2 = wkb.Sheets("Лист2")
xlApp.Visible = True
Manager = ""
Set MyDb = CurrentDb
MySQL = "SELECT q_Otchet.Grup_Grup, q_Otchet.Goods_Goods, q_Otchet.Ed_Goods, Sum(q_Otchet.Kolvo_Zakaz) AS Kolvo_Zakaz, Sum(q_Otchet.Ves) AS Ves" & _
" FROM (SELECT tbl_Grup.ID_Grup, tbl_Grup.Grup_Grup, tbl_Goods.Goods_Goods, tbl_Goods.Ed_Goods, tbl_Zakaz.Kolvo_Zakaz, [Kolvo_Zakaz]*[Kr_Goods]/1000 AS Ves, tbl_Zavod.ID_Zavod" & _
" FROM tbl_Zavod INNER JOIN (tbl_Grup INNER JOIN (tbl_Data INNER JOIN (tbl_Goods INNER JOIN tbl_Zakaz ON tbl_Goods.ID_Goods = tbl_Zakaz.Goods_Zakaz) ON tbl_Data.ID_Data = tbl_Zakaz.Data_Zakaz) ON tbl_Grup.ID_Grup = tbl_Goods.Grup_Goods) ON tbl_Zavod.ID_Zavod = tbl_Goods.Zavod_Goods" & _
" WHERE (" & Manager & "((tbl_Data.Data_Data)=" & CLng(Form_frm_Zakaz.DataZakaz) & ") AND ((tbl_Zavod.ID_Zavod)=" & Form_frm_Zakaz.V_Zavod & "))) AS q_Otchet" & _
" GROUP BY q_Otchet.Grup_Grup, q_Otchet.Goods_Goods, q_Otchet.Ed_Goods, q_Otchet.ID_Grup, q_Otchet.Goods_Goods" & _
" ORDER BY q_Otchet.ID_Grup, q_Otchet.Goods_Goods"
Set TestTable = MyDb.OpenRecordset(MySQL)
TestTable.MoveLast
If (TestTable.RecordCount > 0) Then
TestTable.MoveFirst
' Вставка рекордсета
MyRow = 2
MyCol = 1
sht1.Cells(MyRow, MyCol).CopyFromRecordset TestTable
' Вставка шапки(заголовков) рекордсета
intFildCount = TestTable.Fields.Count - 1
For intI = 0 To intFildCount
sht1.Cells(MyRow - 1, intI + MyCol).Value = TestTable.Fields(intI).Name
Next intI
Else: MsgBox "Not Found"
End If
TestTable.Close
MyDb.Close
Set MyDb = Nothing