Доработать выгрузку в excel
X

Привет дорогой друг

Наш сайт существует и развиваетется за счет рекламы. Пожалуйста, отключите блокировку рекламы AdBlock или подобное, для нашего сайта. Спасибо!
Показано с 1 по 3 из 3

Древовидный режим

  1. #1
    Гость форума

    Регистрация
    26.07.2012
    Сообщений
    2
    Сказал(а) спасибо
    1
    Поблагодарили 0 раз(а) в 0 сообщениях

    По умолчанию Доработать выгрузку в excel

    Приветствую.
    Помогите доработать выгрузку справочника в Excel

    Код:
    Попытка
    		Попытка
    	 		// Загрузка Microsoft Excel
    	 		Состояние("Выгрузка данных из 1С в Microsoft Excel...");
    	 		ExcelПриложение = Новый COMОбъект("Excel.Application");
    		Исключение
    	 		Сообщить("Ошибка при загрузке Microsoft Excel." 
    				+ Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);
    	 		Возврат;
    		КонецПопытки;
    		
    		// Создадим книгу, по умолчанию в ней уже есть листы
    		Книга = ExcelПриложение.WorkBooks.Add();
    		
    		// Используем первый лист книги Excel
    		Лист = Книга.WorkSheets(1);
    		
    		// Сформировать шапку документа в первой строке листа
    		Колонка = 1;
    		Для каждого стр из ТП цикл
    			Если стр.Выгружать Тогда
    				Лист.Cells(1, Колонка).Value = стр.НазваниеРеквизита;
    				Колонка = Колонка + 1;
    			КонецЕсли;
    		КонецЦикла;
    
    		// Выгрузить данные справочника
    		выборка = Справочники[ИмяСправочника].Выбрать();
    		СтрокаЛиста = 2;
    		Пока выборка.Следующий() Цикл
    			Колонка = 1;
    			Для каждого стр из ТП цикл
    				Если стр.Выгружать Тогда
    					Попытка
    						// Установим значение в строке и колонке
    						Если ТипЗнч(выборка[стр.НазваниеРеквизита])=Тип("Число") Тогда
    							// Установним формат для типа Число
    							Лист.Cells(СтрокаЛиста, Колонка).NumberFormat = "0,00";
    							Лист.Cells(СтрокаЛиста, Колонка).Value = 
    									Формат(выборка[стр.НазваниеРеквизита],"ЧГ=0");
    						иначе
    							// Для всех других типов установим формат "Текстовый"
    							Лист.Cells(СтрокаЛиста, Колонка).NumberFormat = "@";
    							Лист.Cells(СтрокаЛиста, Колонка).Value = 
    									Строка(выборка[стр.НазваниеРеквизита]);
    						КонецЕсли;
    					исключение
    						// Если значение реквизита справочника постое
    						Сообщить("Ошибка установки значения для: " + 
    							выборка[стр.НазваниеРеквизита]);
    						Сообщить("Стр: " +СтрокаЛиста+ " Кол: " + 
    							Колонка+ " Рек: " + стр.НазваниеРеквизита);
    					КонецПопытки;
    					Колонка = Колонка + 1;
    				КонецЕсли;
    			Колонка = Колонка + 1;
    			КонецЦикла;
    			СтрокаЛиста = СтрокаЛиста + 1;
    			Состояние("Экспорт из 1С в Excel " + СтрокаЛиста);
    		КонецЦикла;
    		
    		// Сохраним созданныую книгу в файл xls
    		Книга.SaveAs(имяФайла); 
    		
    		ExcelПриложение.Quit();
    		
    		// Записать xls файл 
    		Сообщить("Файл выгружен успешно: "  + имяФайла );
    	Исключение
    		// Обработка ошибок экспорта данных из 1С в Excel
    		Сообщить("Ошибка записи данных файла :" + имяФайла);
    		Сообщить(ОписаниеОшибки());
    		Попытка
    			ExcelПриложение.Quit();
    		Исключение
    		КонецПопытки;
    	КонецПопытки;
    Что бы выгружались не только реквизиты справочника, но и данные из его Формы Элемента:
    Последний раз редактировалось Stormday; 30.07.2012 в 19:07.

Социальные закладки

Социальные закладки

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •