ник: lurix
Проблема в следующем:
1) есть шаблон,
2) есть таблица;
3) необходимо открыть шаблон, залить в него данные из т-цы и сохранить под указанным именем...
Подскажите пожалуйста, как найти ошибку, т.к.при запуске выдает ошибку, что метод незадекларирован :
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.Workbooks.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