Помощь - Поиск - Пользователи - Календарь
Полная версия: Экспорт данных в Excel
"1C-PRO" - форум по 1C > Форумы по платформе "1С:Предприятие 8.x" > (8.х) Отчеты и обработки для платформы "1С:Предприятие 8.x"
Steach
Здравствуйте. Я не профессионал в программировании 1С, но начинаю только изучать. сейчас стоит задача выгрузить определенные документы в определнном формате в Эксель, подскажите пожалуйсто как это сделать, если можно то подробно, потому что программированием я не занимался вообще. Выгрузить необходимо Остатки на складе, Заказы клиентов, Реализацию, Номенклатуру, Контрагентов. С указанием периода выгрузки. Зарание спасибо.
sergey
После вывода печатной формы отчета:
Файл>Сохранить как>Выбрать "Таблица Excel">Сохранить
Prospero
Наверное, человек имеет ввиду выгрузку программно :)
Steach, задействуй поиск - тут не раз импорт-экспорт с участием Экселя пробегал...
Если что - пиши в личку - мож чем и помогу на общественных началах :)
Steach
Цитата(Prospero @ 19.8.2007, 16:53) *

Наверное, человек имеет ввиду выгрузку программно :)
Steach, задействуй поиск - тут не раз импорт-экспорт с участием Экселя пробегал...
Если что - пиши в личку - мож чем и помогу на общественных началах :)



Вот именно что программно, сразу группу документов. Поиск пробовал, мало что дал.
рамиль
Эксель = Новый COMОбъект("Excel.Application");
Исключение
Возврат;
КонецПопытки;
templ="C:\Documents and Settings\A_Voronov\Рабочий стол\Баланс2.xls";
Книга=Эксель.Workbooks.Open(templ);
ТекЛист=Книга.WorkSheets(1);

ТекЛист.Cells(2,14).Value = ПредставлениеПериода(ПериодС, КонецДня(ПериодПо));
к = 8;
Пока Выборка.Следующий() цикл
к = к+1;
ТекЛист.Cells(к,1).Value = Выборка.Источник; // данный параметр не передается (ошибка Value)
Если Выборка.Пар=0 Тогда
ТекЛист.Cells(к,3).Value = Null;
Иначе
ТекЛист.Cells(к,3).Value = Выборка.Пар;
КонецЕсли;
Если Выборка.Вода=0 Тогда
ТекЛист.Cells(к,7).Value = Null;
Иначе
ТекЛист.Cells(к,7).Value = Выборка.Вода;
КонецЕсли;
Если Выборка.Промывка=0 Тогда
ТекЛист.Cells(к,12).Value = Null;
Иначе
ТекЛист.Cells(к,12).Value = Выборка.Промывка;
КонецЕсли;
Если Выборка.ГВС=0 Тогда
ТекЛист.Cells(к,11).Value = Null;
Иначе
ТекЛист.Cells(к,11).Value = Выборка.ГВС;
КонецЕсли;
Если Выборка.Отопление=0 Тогда
ТекЛист.Cells(к,16).Value = Null;
Иначе
ТекЛист.Cells(к,16).Value = Выборка.Отопление;
КонецЕсли;
Если Выборка.Вентиляция=0 Тогда
ТекЛист.Cells(к,17).Value = Null;
Иначе
ТекЛист.Cells(к,17).Value = Выборка.Вентиляция;
КонецЕсли;
Если Выборка.Потери=0 Тогда
ТекЛист.Cells(к,18).Value = Null;
Иначе
ТекЛист.Cells(к,18).Value = Выборка.Потери;
КонецЕсли;

КонецЦикла;
Эксель.Visible = Истина;
/index.php?showtopic=4852&hl=Excel
Steach
Цитата(рамиль @ 20.8.2007, 7:22) *

Эксель = Новый COMОбъект("Excel.Application");
Исключение
Возврат;
КонецПопытки;
templ="C:\Documents and Settings\A_Voronov\Рабочий стол\Баланс2.xls";
Книга=Эксель.Workbooks.Open(templ);
ТекЛист=Книга.WorkSheets(1);

ТекЛист.Cells(2,14).Value = ПредставлениеПериода(ПериодС, КонецДня(ПериодПо));
к = 8;
Пока Выборка.Следующий() цикл
к = к+1;
ТекЛист.Cells(к,1).Value = Выборка.Источник; // данный параметр не передается (ошибка Value)
Если Выборка.Пар=0 Тогда
ТекЛист.Cells(к,3).Value = Null;
Иначе
ТекЛист.Cells(к,3).Value = Выборка.Пар;
КонецЕсли;
Если Выборка.Вода=0 Тогда
ТекЛист.Cells(к,7).Value = Null;
Иначе
ТекЛист.Cells(к,7).Value = Выборка.Вода;
КонецЕсли;
Если Выборка.Промывка=0 Тогда
ТекЛист.Cells(к,12).Value = Null;
Иначе
ТекЛист.Cells(к,12).Value = Выборка.Промывка;
КонецЕсли;
Если Выборка.ГВС=0 Тогда
ТекЛист.Cells(к,11).Value = Null;
Иначе
ТекЛист.Cells(к,11).Value = Выборка.ГВС;
КонецЕсли;
Если Выборка.Отопление=0 Тогда
ТекЛист.Cells(к,16).Value = Null;
Иначе
ТекЛист.Cells(к,16).Value = Выборка.Отопление;
КонецЕсли;
Если Выборка.Вентиляция=0 Тогда
ТекЛист.Cells(к,17).Value = Null;
Иначе
ТекЛист.Cells(к,17).Value = Выборка.Вентиляция;
КонецЕсли;
Если Выборка.Потери=0 Тогда
ТекЛист.Cells(к,18).Value = Null;
Иначе
ТекЛист.Cells(к,18).Value = Выборка.Потери;
КонецЕсли;

КонецЦикла;
Эксель.Visible = Истина;
/index.php?showtopic=4852&hl=Excel



Спасибо попробовал твою обработку, ошибка на ошибке, дело в том что у нас конфигурации разные, у меня Управление Торговлей 10.2
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.
Русская версия Invision Power Board © 2001-2008 Invision Power Services, Inc.