Экспорт из формы Access в Excel

[ipan79]

Здравствуйте.Нужна помощь.Не могу разобраться.В этом коде ошибка 429(КОд для экспорта одной записи в Excel из формы Access):

Private Sub Кнопка57_Click()
Set app = CreateObject("Excel.Application")
Set app = CreateObject("Excel.Workbook") (Ошибка здесь)
Set app = CreateObject("Excel.Worksheet")
Set ExcelApp = Excel.Application
Set ExcelWbk = ExcelApp.Workbook.Add
Set ExcelWst = ExcelWbk.ActiveSheet
ExcelApp.Visible = False
ExcelWst.Cells(1, 1).Value = "№ записи"
ExcelWst.Cells(1, 2).Value = Recordset.Fields(0).Value
ExcelWst.Cells(2, 1).Value = "Код товара"
ExcelWst.Cells(2, 2).Value = Recordset.Fields(1).Value
ExcelWst.Cells(3, 1).Value = "Наименование"
ExcelWst.Cells(3, 2).Value = Recordset.Fields(2).Value
ExcelWst.Cells(4, 1).Value = "Кол-во"
ExcelWst.Cells(4, 2).Value = Recordset.Fields(3).Value
ExcelWst.Cells(5, 1).Value = "Поставщик"
ExcelWst.Cells(5, 2).Value = Recordset.Fields(4).Value
ExcelWst.Cells(6, 1).Value = "Цена"
ExcelWst.Cells(6, 2).Value = Recordset.Fields(5).Value
ExcelApp.Visible = True
ExcelWst.Columns.AutoFit
MsgBox "Запись экспортирована в Excel, не забудьте сохранить файл!"
End Sub
В чем ошибка??
А в этом коде ошибка 91(Код для экспорта ВСЕХ записей в Excel из Access):

Private Sub Кнопка63_Click()
Dim ExcelApp As Excel.Application
Dim ExcelWbk As Excel.Workbook
Dim ExcelWst As Excel.Worksheet
Set ExcelApp = Excel.Application
Set ExcelWbk = ExcelApp.Workbooks.Add
ExcelApp.Visible = False
ExcelWst.Cells(1, 1).Value = "№ записи" (Ошибка здесь)
ExcelWst.Cells(1, 2).Value = "Код товара"
ExcelWst.Cells(1, 3).Value = "Наименование"
ExcelWst.Cells(1, 4).Value = "Кол-во"
ExcelWst.Cells(1, 5).Value = "ПОставщик"
ExcelWst.Cells(1, 6).Value = "Цена"
Set tRecordset = New ADODB.Recordset
tRecordset.Open "SELECT Count(*) FROM Form_tvr", CurrentProject.Connection, adOpenForwardOnly, adLockReadOnky, adCmdText
DataArray = tRecordset.GetRows()
DataCount = DataArray(0, 0)
tRecordset.Close
End Sub

[Teslenko_EA]

Здравствуйте ipan79.
"..разобраться.В этом коде ошибка 429.."
код будет работать при подобной корректировке:

Private Sub Кнопка57_Click()
Dim app, ExcelWbk, ExcelWst
Set app = CreateObject("Excel.Application")
'Set App = CreateObject("Excel.Workbook") '(Ошибка здесь)
'Set App = CreateObject("Excel.Worksheet")
'Set ExcelApp = Excel.Application
'Set ExcelWbk = ExcelApp.Workbook.Add
Set ExcelWbk = app.WorkbookS.Add
Set ExcelWst = ExcelWbk.SheetS(1) 'не понимает ActiveSheet (активный лист)
'app.Visible = False 'бесполезно, т.к. задано по умолчанию
With ExcelWst
    .Cells(1, 1).Value = "№ записи"
    .Cells(1, 2).Value = Recordset.Fields(0).Value
    .Cells(2, 1).Value = "Код товара"
    .Cells(2, 2).Value = Recordset.Fields(1).Value
    .Cells(3, 1).Value = "Наименование"
    .Cells(3, 2).Value = Recordset.Fields(2).Value
    .Cells(4, 1).Value = "Кол-во"
    .Cells(4, 2).Value = Recordset.Fields(3).Value
    .Cells(5, 1).Value = "Поставщик"
    .Cells(5, 2).Value = Recordset.Fields(4).Value
    .Cells(6, 1).Value = "Цена"
    .Cells(6, 2).Value = Recordset.Fields(5).Value
End With
app.Visible = True
ExcelWst.Columns.AutoFit
MsgBox "Запись экспортирована в Excel, не забудьте сохранить файл!"
End Sub

разбирайтесь, успехов Вам.
Евгений.

P.S. выкладывая на странице код, для удобочитаемости заключайте его в тэги [соde]...[/соde],
для этого на панели размещена кнопка - #.