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