ник: lurix
есс!!!!! надо было сохранять активную книгу:
вот какая строка исправлена:
xlAPP.ActiveWorkbook.SaveAs ("E:\FORM3_SHABLON1.xls")
Public Sub btnSvod()
Dim db As DAO.Database, rst As DAO.Recordset, FNShablon As String
Dim xlAPP As Excel.Application
Dim xlwkb As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set db = CurrentDb
Set rst = db.OpenRecordset("Sales_1_Crosstab_t")
Set xlAPP = New Excel.Application
FNShablon = "E:\FORM3_SHABLON.xls"
Set xlwkb = xlAPP.Workbooks.Open(FNShablon)
Set xlSheet = xlAPP.Worksheets("Sheet1")
xlSheet.Range("a6").CopyFromRecordset rst
xlAPP.ActiveWorkbook.SaveAs ("E:\FORM3_SHABLON1.xls")
rst.Close: Set rst = Nothing: Set db = Nothing
xlAPP.Visible = True
Set xlSheet = Nothing: Set xlwkb = Nothing: Set xlAPP = Nothing
End Sub
спасибо всем за помощь!!!!! 