select * from t1

Set dbs = CurrentDb
Set rs = dbs.OpenRecordset("DogReport")
 Dim j As Integer
 Dim i As Integer
 
Set xlAPP = CreateObject("Excel.Application")
Set xlBook = xlAPP.Workbooks.Add
Set WS = xlBook.Worksheets(1)

WS.Cells(2, 1).CopyFromRecordset rs

j = 1
For i = 0 To rs.Fields.Count - 1
WS.Cells(1, j).Value = rs.Fields(i).Name
j = j + 1
Next i


xlAPP.Visible = True

SELECT Null AS Выражение1, NCI_VidDeyat_24.NCI_VidDeyat_24.name_24 AS Вид_работ,
 NCI_StrEd_18.NameStrEd AS Контрагент, NCI_KURATOR_1214.name_kurator AS Куратор_договора, 
NCI_Dogovor_25.nRegFrc AS Номер_договора, NCI_Dogovor_25.regNumSAP AS Номер_договора_СЦВД, 
NCI_Dogovor_25.name AS Наименование_договора, NCI_Dogovor_25.summa AS Сумма_по_договору_с_учетом_НДС,  SverkaDogSvr.PlanSum, SverkaDogSvr.FacktSum,
 (SverkaDogSvr.PlanSum-SverkaDogSvr.FacktSum) AS Остаток, Null AS Свободный_лимит
 FROM (((SverkaDogSvr LEFT JOIN NCI_VidDeyat_24 ON SverkaDogSvr.kod_24 = NCI_VidDeyat_24.kod_24) 
LEFT JOIN NCI_Dogovor_25 ON SverkaDogSvr.kod_25 = NCI_Dogovor_25.RegNumSAP) 
LEFT JOIN NCI_StrEd_18 ON NCI_Dogovor_25.nStrEd_2 = NCI_StrEd_18.nStrEd) 
LEFT JOIN NCI_KURATOR_1214 ON SverkaDogSvr.kod_kurator = NCI_KURATOR_1214.kod_kurator  
WHERE ((SverkaDogSvr.kod_kurator='291' and SverkaDogSvr.kod_upr='002-08' ));

SELECT Null AS Выражение1, NCI_VidDeyat_24.NCI_VidDeyat_24.name_24 AS Вид_работ, 
NCI_StrEd_18.NameStrEd AS Контрагент, NCI_KURATOR_1214.name_kurator AS Куратор_договора, 
NCI_Dogovor_25.nRegFrc AS Номер_договора, NCI_Dogovor_25.regNumSAP AS Номер_договора_СЦВД, 
NCI_Dogovor_25.name AS Наименование_договора, NCI_Dogovor_25.summa AS Сумма_по_договору_с_учетом_НДС, SverkaDogSvr.PlanSum, SverkaDogSvr.FacktSum, 
(SverkaDogSvr.PlanSum-SverkaDogSvr.FacktSum) AS Остаток, Null AS Свободный_лимит
FROM (((SverkaDogSvr LEFT JOIN NCI_VidDeyat_24 ON SverkaDogSvr.kod_24 = NCI_VidDeyat_24.kod_24)
 LEFT JOIN NCI_Dogovor_25 ON SverkaDogSvr.kod_25 = NCI_Dogovor_25.RegNumSAP) 
LEFT JOIN NCI_StrEd_18 ON NCI_Dogovor_25.nStrEd_2 = NCI_StrEd_18.nStrEd)
 LEFT JOIN NCI_KURATOR_1214 ON SverkaDogSvr.kod_kurator = NCI_KURATOR_1214.kod_kurator
WHERE ((SverkaDogSvr.kod_kurator='291' and SverkaDogSvr.kod_upr='002-08' ));