Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: 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


Ваше имя:

Пароль:

Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.