Может кто знает? Пытаюсь создать файл эксель, чтобы потом туда загрузить свою таблицу значений, но выдаёт ошибку
Попытка
Эксель = ПолучитьCOMОбъект("C:\Users\admin_1C\Downloads\Советский104.xls");
Исключение
Сообщить(ОписаниеОшибки() + " Программа Exсel не установлена на данном компьютере!");
Возврат;
КонецПопытки;
Книга = Эксель.WorkBooks.Add();
Лист = Книга.WorkSheets(1);
Попытка
Книга.SaveAs("C:\Users\admin_1C\Downloads\Советский104.xls");
Исключение
Сообщить(ОписаниеОшибки()+" Файл не сохранен!");
Возврат;
КонецПопытки;
ПоказатьПоле объекта WorkBooks не найдено
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(27) Ошибку пишет, хотя сделал по вашему примеру
{ВнешняяОбработка.ВыгрузкаВExcel.Форма.Форма.Форма(54)}: Ошибка при установке значения атрибута контекста (Value)
Лист.Cells(НомерСтроки, 2).Value = Строка.Адрес;
по причине:
Произошла исключительная ситуация (0x800a03ec)
Произошла исключительная ситуация (0x800a03ec)
{ВнешняяОбработка.ВыгрузкаВExcel.Форма.Форма.Форма(54)}: Ошибка при установке значения атрибута контекста (Value)
Лист.Cells(НомерСтроки, 2).Value = Строка.Адрес;
по причине:
Произошла исключительная ситуация (0x800a03ec)
Произошла исключительная ситуация (0x800a03ec)
&НаСервере
Процедура ПолучитьЛицевыеСчетаИзСправочника()
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| КВП_ЛицевыеСчета.Наименование КАК Наименование,
| КВП_ЛицевыеСчета.ОтветственныйСобственникПредставление КАК ОтветственныйСобственникПредставление,
| КВП_ЛицевыеСчета.Адрес КАК Адрес
|ИЗ
| Справочник.КВП_ЛицевыеСчета КАК КВП_ЛицевыеСчета
|ГДЕ
| КВП_ЛицевыеСчета.Адрес.Владелец = &Здания";
Запрос.УстановитьПараметр("Здания",Объект.Здания);
ТЗ = Запрос.Выполнить().Выгрузить();
ТЗ.Колонки.Добавить("Улица");
ТЗ.Колонки.Добавить("Балансодержатель");
//Цикл для заполнения Здания и Организации
Для Каждого Стр Из ТЗ Цикл
Стр.Улица = Объект.Здания;
Стр.Балансодержатель = Объект.Организация;
КонецЦикла;
Эксель = ПолучитьCOMОбъект("C:\Users\admin_1C\Downloads\Советский104.xls");
Книга = Эксель.Application.Workbooks.Add();
Лист = Книга.WorkSheets.Add();
Лист.Name = "Выгрузка";
Лист.Cells(1,1).Value = "Лицевые Счета";
Лист.Cells(1,2).Value = "Адрес";
Лист.Cells(1,3).Value = "Ответственный";
Лист.Cells(1,4).Value = "Организация";
Лист.Cells(1,5).Value = "Улица";
НомерСтроки = 2;
Для каждого Строка из ТЗ Цикл
Лист.Cells(НомерСтроки, 1).Value = Строка.Наименование;
Лист.Cells(НомерСтроки, 2).Value = Строка.Адрес;
Лист.Cells(НомерСтроки, 3).Value = Строка.ОтветственныйСобственникПредставление;
Лист.Cells(НомерСтроки, 4).Value = Строка.Балансодержатель;
Лист.Cells(НомерСтроки, 5).Value = Строка.Улица;
НомерСтроки = НомерСтроки + 1
КонецЦикла;
НаименованиеФайла = "Выгрузка ЛС";
Книга.SaveAs("C:\Users\admin_1C\Downloads\Советский104.xls");
Книга.Close();
КонецПроцедуры
Показать
(45)
Всёравно валится на адресе
{ВнешняяОбработка.ВыгрузкаВExcel.Форма.Форма.Форма(52)}: Ошибка при установке значения атрибута контекста (Value)
Лист.Cells(НомерСтроки, 2).Value = Строка.Адрес;
по причине:
Произошла исключительная ситуация (0x800a03ec)
&НаСервере
Процедура ПолучитьЛицевыеСчетаИзСправочника()
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| КВП_ЛицевыеСчета.Наименование КАК Наименование,
| КВП_ЛицевыеСчета.ОтветственныйСобственникПредставление КАК ОтветственныйСобственникПредставление,
| КВП_ЛицевыеСчета.Адрес КАК Адрес
|ИЗ
| Справочник.КВП_ЛицевыеСчета КАК КВП_ЛицевыеСчета
|ГДЕ
| КВП_ЛицевыеСчета.Адрес.Владелец = &Здания";
Запрос.УстановитьПараметр("Здания",Объект.Здания);
ТЗ = Запрос.Выполнить().Выгрузить();
ТЗ.Колонки.Добавить("Улица");
ТЗ.Колонки.Добавить("Балансодержатель");
Для Каждого Стр Из ТЗ Цикл
Стр.Улица = Объект.Здания;
Стр.Балансодержатель = Объект.Организация;
КонецЦикла;
Эксель = ПолучитьCOMОбъект("C:\Users\admin_1C\Downloads\Советский104.xls");
Книга = Эксель.Application.Workbooks(1);
Лист = Книга.WorkSheets.Add();
Лист.Name = "Выгрузка";
Лист.Cells(1,1).Value = "Лицевые Счета";
Лист.Cells(1,2).Value = "Адрес";
Лист.Cells(1,3).Value = "Ответственный";
Лист.Cells(1,4).Value = "Организация";
Лист.Cells(1,5).Value = "Улица";
НомерСтроки = 2;
Для каждого Строка из ТЗ Цикл
Лист.Cells(НомерСтроки, 1).Value = Строка.Наименование;
Лист.Cells(НомерСтроки, 2).Value = Строка.Адрес;
Лист.Cells(НомерСтроки, 3).Value = Строка.ОтветственныйСобственникПредставление;
Лист.Cells(НомерСтроки, 4).Value = Строка.Балансодержатель;
Лист.Cells(НомерСтроки, 5).Value = Строка.Улица;
НомерСтроки = НомерСтроки + 1
КонецЦикла;
НаименованиеФайла = "Выгрузка ЛС";
Книга.SaveAs("C:\Users\admin_1C\Downloads\Советский104.xls");
Книга.Close();
КонецПроцедуры
ПоказатьВсёравно валится на адресе
{ВнешняяОбработка.ВыгрузкаВExcel.Форма.Форма.Форма(52)}: Ошибка при установке значения атрибута контекста (Value)
Лист.Cells(НомерСтроки, 2).Value = Строка.Адрес;
по причине:
Произошла исключительная ситуация (0x800a03ec)
(21)
Лист.Columns(1)= "Лицевой счет";
Лист.Columns(2) = "Адрес";
Лист.Columns(3) = "Ответственный";
Лист.Columns(4) = "Организация";
Выдаёт ошибку неопознанного оператора
{ВнешняяОбработка.ВыгрузкаВExcel.Форма.Форма.Форма(68,18)}: Неопознанный оператор
Лист.Columns(1) <<?>>= "Лицевой счет"; (Проверка: Тонкий клиент)
Лист.Columns(1)= "Лицевой счет";
Лист.Columns(2) = "Адрес";
Лист.Columns(3) = "Ответственный";
Лист.Columns(4) = "Организация";
Выдаёт ошибку неопознанного оператора
{ВнешняяОбработка.ВыгрузкаВExcel.Форма.Форма.Форма(68,18)}: Неопознанный оператор
Лист.Columns(1) <<?>>= "Лицевой счет"; (Проверка: Тонкий клиент)
(18)
Лупит теперь так
{ВнешняяОбработка.ВыгрузкаВExcel.Форма.Форма.Форма(65)}: Ошибка при вызове метода контекста (ПолучитьCOMОбъект)
Эксель = ПолучитьCOMОбъект(, "Excel.Application");
по причине:
Ошибка получения объекта COM: -2147221021(0x800401E3): Операция недоступна
Ошибка получения объекта COM: -2147221021(0x800401E3): Операция недоступна
Лупит теперь так
{ВнешняяОбработка.ВыгрузкаВExcel.Форма.Форма.Форма(65)}: Ошибка при вызове метода контекста (ПолучитьCOMОбъект)
Эксель = ПолучитьCOMОбъект(, "Excel.Application");
по причине:
Ошибка получения объекта COM: -2147221021(0x800401E3): Операция недоступна
Ошибка получения объекта COM: -2147221021(0x800401E3): Операция недоступна
(28)
Эксель = ПолучитьCOMОбъект(,"Excel.Application");
Книга = Эксель.Application.Workbooks.Add();
Лист = Книга.WorkSheets.Add();
Лист.Name = "Выгрузка Лицевых счетов по " + Объект.Здания;
Лист.Cells(1,1).Value = "Лицевые счета";
//Лист.Columns(1)= "Лицевой счет";
//Лист.Columns(2) = "Адрес";
//Лист.Columns(3) = "Ответственный";
//Лист.Columns(4) = "Организация";
НаименованиеФайла = "Выгрузка ЛС";
Книга.SaveAs("C:\Desktop\test.xlsx");
Книга.Close();
Показать
А зачем так извращаться, если нужно записать новый эксель, а не дополнить с какими нибудь данными
Проще через ТабличныйДокумент
Проще через ТабличныйДокумент
ТабДокумент.Записать("Счет_N" + НомерСчета,ТипФайлаТабличногоДокумента.XLS);
&НаСервере
Процедура ПолучитьЛицевыеСчетаИзСправочника()
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| КВП_ЛицевыеСчета.Наименование КАК Наименование,
| КВП_ЛицевыеСчета.ОтветственныйСобственникПредставление КАК ОтветственныйСобственникПредставление,
| КВП_ЛицевыеСчета.Адрес КАК Адрес
|ИЗ
| Справочник.КВП_ЛицевыеСчета КАК КВП_ЛицевыеСчета
|ГДЕ
| КВП_ЛицевыеСчета.Адрес.Владелец = &Здания";
Запрос.УстановитьПараметр("Здания",Объект.Здания);
ТЗ = Запрос.Выполнить().Выгрузить();
ТЗ.Колонки.Добавить("Улица");
ТЗ.Колонки.Добавить("Балансодержатель");
Сообщить(ТЗ);
Для Каждого Стр Из ТЗ Цикл
Стр.Улица = Объект.Здания;
Стр.Балансодержатель = Объект.Организация;
КонецЦикла;
Сообщить(ТЗ);
Эксель = ПолучитьCOMОбъект("C:\Users\admin_1C\Downloads\Советский104.xls");
Книга = Эксель.Application.Workbooks.Add();
Лист = Книга.WorkSheets.Add();
Лист.Name = "Выгрузка";
Лист.Cells(1,1).Value = "Лицевые Счета";
Лист.Cells(1,2).Value = "Адрес";
Лист.Cells(1,3).Value = "Ответственный";
Лист.Cells(1,4).Value = "Организация";
НаименованиеФайла = "Выгрузка ЛС";
Книга.SaveAs("C:\Users\admin_1C\Downloads\Советский104.xls");
Книга.Close();
КонецПроцедуры
ПоказатьСоздал еще запрос, где в ТЗ мои данные "Адреса, лицевые счета и т.д"
Таблица значений у меня в ТЗ
Можно ли как то из этой ТЗ заполнить мои колонки данными
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот