| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > 1C: Предприятие, SAP, ERP и учётные системы > Выгрузка в Excel |
| Автор: wave 30.5.2010, 16:03 |
| Здравствуйте, помогите пожалуйста сделать циклы, так чтобы из табличной части документа 1с(версия 8.1) передавались данные в Excel. //********************************************************* Процедура ДействияФормыЗаполнитьЗаявку(Кнопка) СтрокаТабЧасти = ЭлементыФормы.Данные.ТекущиеДанные; кол = данные.Количество(); число= кол+10; Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие); Диалог.ПолноеИмяФайла=""; Фильтр="Excel(*.xls)|*.xls"; Диалог.Фильтр=Фильтр; Диалог.Заголовок="Выберете шаблон"; Попытка Excel = новый COMОбъект("Excel.Application"); Исключение Сообщить("Похоже, Excel на компьютере не установлен. Необходимо выполнить установку/переустановку Excel."); Возврат; КонецПопытки; //Диалог Если Диалог.Выбрать() Тогда Книга= Excel.WorkBooks.Open(Диалог.ПолноеИмяФайла); Иначе Предупреждение("Файл не выбран!"); КонецЕсли; //Выбор листа книги для работы с ним: Лист = Книга.WorkSheets(1); //очищение ячеек для стр=11 по 25 цикл для колон=2 по 25 цикл Лист.Cells(стр,колон).Clear() ; конеццикла; конеццикла; Лист.Cells(3,5).Value=Строка( Ответственный ) ; Лист.Cells(4,5).Value=Строка( Email); //цикл для перебора строк в экселе для Строка=11 по число цикл Лист.Cells(Строка,2).Value=Строка(СтрокаТабЧасти.КодПартнера); конеццикла; Попытка Исключение Сообщить(ОписаниеОшибки()+" Файл не сохранен!"); Возврат; КонецПопытки; Excel.Application.Quit(); КонецПроцедуры //************************************************************ |
| Автор: Zero 4.6.2010, 17:53 | ||
Для начала посмотри тут: http://forum.vingrad.ru/topic-141284.html Если останутся конкретные непонятные вопросы, то их пиши. Весь текст программы переписывать ненужно. |
