![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 18.06.2012
Сообщений: 1
|
![]()
Здравствуйте.Нужна помощь.Не могу разобраться.В этом коде ошибка 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 Последний раз редактировалось ipan79; 18.06.2012 в 18:59. |
![]() |
![]() |
![]() |
#2 |
Участник клуба
Регистрация: 10.08.2009
Сообщений: 1,796
|
![]()
Здравствуйте ipan79.
"..разобраться.В этом коде ошибка 429.." код будет работать при подобной корректировке: Код:
Евгений. P.S. выкладывая на странице код, для удобочитаемости заключайте его в тэги [соde]...[/соde], для этого на панели размещена кнопка - #. |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Импорт-экспорт данных Excel-Access, и из Access-Excel | Людвиг | Microsoft Office Access | 3 | 27.10.2011 14:38 |
Экспорт формы в Excel | sablast | Microsoft Office Access | 1 | 28.07.2011 13:17 |
Экспорт нескольких таблиц из Excel в Access | mirawoo | Microsoft Office Access | 1 | 19.03.2009 20:25 |
экспорт отчетов access в excel | kate158 | Microsoft Office Access | 2 | 17.03.2009 16:10 |
Экспорт из Access в Excel, Экспорт из отчётов в таблицу Excel | Kissedbythegod | Microsoft Office Access | 1 | 31.05.2008 22:15 |