| |
|
|
| | Проблема в следующем:
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 | |
| |
| |
| |
|
|
| | 1) а на какой строке ошибка ?
2) если открыть шаблон и просто сохранить без добавления таблицы, получается ?
3) про позднее связывание слышали ? | |
| |
| |
| |
|
|
| | Записал макросом команду Сохранить как
вот че написал Ексель
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Admin\Мои документы\Книга1.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
|
| |
| |
| |
| |
|
|
| | есс!!!!! надо было сохранять активную книгу:
вот какая строка исправлена:
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
спасибо всем за помощь!!!!!  | |
| |
| |
