ДокументExcel = ПолучитьCOMОбъект(ИмяФайла); //Листы :                     СписокЛистов = Новый СписокЗначений;                                     Для каждого Лист Из ДокументExcel.Sheets Цикл                         СписокЛистов.Добавить(Лист.Index,Лист.Name);                 КонецЦикла;      ЛистExcel= ДокументExcel.Sheets(НомерЛистаКниги); ПоследняяСтрока = ЛистExcel.UsedRange.Rows.Count; ЛеваяКолонка = ЛистExcel.UsedRange.Column; ПоследняяКолонка =  ЛистExcel.UsedRange.Columns.Count; НомерКолонкиСТекстом=ЛистExcel.UsedRange.Find("text").Column; //Или НомерКолонкиСТекстом=ЛистExcel.Cells.Find("text").Column; //Подчищаем за собой память ДокументExcel.Application.Quit();   

 // Преобразовать табличный документ в таблицу значений.

//

// Параметры:

//	ТабДок - <ТабличныйДокумент> - Исходный табличный документ;

//	СтруктураКолонок - <Структура>, <ТаблицаЗначений> - Структура колонок;

//	НачалоСтрока - <Число> - Строка начала области;

//	НачалоСтолбец - <Число> - Столбец начала области;

//	КонецСтрока - <Число> - Строка конца области;

//	КонецСтолбец - <Число> - Столбец конца области.

//	

// Возвращаемое значение:

//	<ТаблицаЗначений> - Полученная таблица значений.

//

Функция ПреобразоватьТДвТЗ(ТабДок, СтруктураКолонок, Знач НачалоСтрока = Неопределено, Знач НачалоСтолбец = Неопределено, Знач КонецСтрока = Неопределено, Знач КонецСтолбец = Неопределено) Экспорт

 

	// Определение габаритов таблицы

	Если НачалоСтрока = Неопределено И НачалоСтолбец = Неопределено Тогда

		НачалоСтрока = 1;

		НачалоСтолбец = 1;

	КонецЕсли;

 

	Если НачалоСтрока = Неопределено Тогда

		НачалоСтрока = 1;

		Пока НЕ ТабДок.Область(НачалоСтрока, НачалоСтолбец).СодержитЗначение 

		 И НачалоСтрока < ТабДок.ВысотаТаблицы 

		Цикл

			НачалоСтрока = НачалоСтрока + 1;

		КонецЦикла;

	ИначеЕсли НачалоСтолбец = Неопределено Тогда

		НачалоСтолбец = 1;

		Пока НЕ ТабДок.Область(НачалоСтрока, НачалоСтолбец).СодержитЗначение 

		 И НачалоСтолбец < ТабДок.ШиринаТаблицы

		Цикл

			НачалоСтолбец = НачалоСтолбец + 1;

		КонецЦикла;

	КонецЕсли;

 

	КонецСтрока = ?(КонецСтрока = Неопределено, ТабДок.ВысотаТаблицы, КонецСтрока);

	КонецСтолбец = ?(КонецСтолбец = Неопределено, ТабДок.ШиринаТаблицы, КонецСтолбец);

 

	// Преобразование

	ЭтоТаблица = (ТипЗнч(СтруктураКолонок) = Тип("ТаблицаЗначений"));

	ТабЗначений = ПолучитьТаблицуВывода(СтруктураКолонок);

 

	Для ИндексСтроки = НачалоСтрока По КонецСтрока Цикл

		СтрокаТЗ = ТабЗначений.Добавить();

 

		ИндексКолонки = НачалоСтолбец;

		Для Каждого Колонка Из СтруктураКолонок Цикл

			НаименованиеКолонки = ?(ЭтоТаблица, Колонка.Наименование, Колонка.Ключ);

			пИндексКолонки = ?(ЭтоТаблица, Колонка.СтолбецОтчёт, ИндексКолонки);

 

			Если ТабДок.Область(ИндексСтроки, пИндексКолонки).СодержитЗначение Тогда

				СтрокаТЗ[НаименованиеКолонки] = ТабДок.Область(ИндексСтроки, пИндексКолонки).Значение;

			Иначе

				СтрокаТЗ[НаименованиеКолонки] = ТабДок.Область(ИндексСтроки, пИндексКолонки).Текст;

			КонецЕсли;

 

			ИндексКолонки = ИндексКолонки + 1;

		КонецЦикла;

	КонецЦикла;

 

	Возврат ТабЗначений;

КонецФункции;



// Преобразовать таблицу значений в табличный документ.

//

// Параметры:

//	ТабЗначений - <ТаблицаЗначений> - Исходная таблица значений;

//	ТабДок - <ТабличныйДокумент> - Полученный табличный документ. Если параметр не задан, 

//	 то документ создаётся заново и возвращается функцией;

//	НачалоСтрока - <Число> - Строка начала области;

//	НачалоСтолбец - <Число> - Столбец начала области;

//	ВыводитьЗаголовки - <Булево> - Определяет выводить ли имена колонок или нет.

//	

// Возвращаемое значение:

//	<ТабличныйДокумент> - Полученный табличный документ (возвращает параметр "ТабДок").

//

Функция ПреобразоватьТЗвТД(ТабЗначений, ТабДок = Неопределено, Знач НачалоСтрока = Неопределено, Знач НачалоСтолбец = Неопределено, ВыводитьЗаголовки = Ложь) Экспорт

 

	Если ТабДок = Неопределено Тогда

		ТабДок = Новый ТабличныйДокумент;

	КонецЕсли;

 

	// Определение габаритов таблицы

	НачалоСтрока = ?(НачалоСтрока = Неопределено, 1, НачалоСтрока);

	НачалоСтолбец = ?(НачалоСтолбец = Неопределено, 1, НачалоСтолбец);

 

	// Преобразование

	ИндексСтроки = НачалоСтрока;

	Если ВыводитьЗаголовки Тогда

		ИндексКолонки = НачалоСтолбец;

		Для Каждого Колонка Из ТабЗначений.Колонки Цикл

			ТабДок.Область(ИндексСтроки, ИндексКолонки).Текст = ?(ПустаяСтрока(Колонка.Заголовок), Колонка.Имя, Колонка.Заголовок);

			ИндексКолонки = ИндексКолонки + 1;

		КонецЦикла;

		ИндексСтроки = ИндексСтроки + 1;

	КонецЕсли;

 

	Для Каждого Элемент Из ТабЗначений Цикл

		ИндексКолонки = НачалоСтолбец;

		Для Каждого Колонка Из ТабЗначений.Колонки Цикл

			ТабДок.Область(ИндексСтроки, ИндексКолонки).СодержитЗначение = Истина;

			ТабДок.Область(ИндексСтроки, ИндексКолонки).ТипЗначения = Новый ОписаниеТипов(Колонка.ТипЗначения);

			ТабДок.Область(ИндексСтроки, ИндексКолонки).Значение = Элемент[Колонка.Имя];

			ИндексКолонки = ИндексКолонки + 1;

		КонецЦикла;

		ИндексСтроки = ИндексСтроки + 1;

	КонецЦикла;

 

	Возврат ТабДок;

КонецФункции;



// Читает табличный документ из файла MXL и преобразует его в таблицу значений.

//

// Параметры:

//	ИмяФайла - <Строка> - Путь к файлу MXL;

//	СтруктураКолонок - <Структура>, <ТаблицаЗначений> - Структура колонок. Если этот параметр

//		не задан, то структура колонок формируется из самого табличного документа;

//	ЕстьЗаголовок - <Булево> - Есть ли первая строка с заголовками или нет.

//	

// Возвращаемое значение:

//	<ТаблицаЗначений> - Полученная таблица значений.

//

Функция ПрочитатьТЗИзMXL(ИмяФайла, СтруктураКолонок = Неопределено, ЕстьЗаголовок = Истина) Экспорт

 

	ТабДок = Новый ТабличныйДокумент;

	ТабДок.Прочитать(ИмяФайла);

 

	Если СтруктураКолонок = Неопределено И ЕстьЗаголовок Тогда

		СтруктураКолонок = Новый Структура;

		Для ИндексКолонки = 1 По ТабДок.ШиринаТаблицы Цикл

			Обл1 = ТабДок.Область(1, ИндексКолонки);

			Обл2 = ТабДок.Область(2, ИндексКолонки);

			ИмяКолонки = СокрЛП(Обл1.Текст);

			ИмяКолонки = ?(Найти(ИмяКолонки, " ") > 0, СтрЗаменить(ТРег(ИмяКолонки), " ", ""), ИмяКолонки);

			СтруктураКолонок.Вставить(ИмяКолонки, ?(Обл2.СодержитЗначение, Обл2.ТипЗначения, Новый ОписаниеТипов));

		КонецЦикла;

	ИначеЕсли СтруктураКолонок = Неопределено И НЕ ЕстьЗаголовок Тогда

		СтруктураКолонок = Новый Структура;

		Для ИндексКолонки = 1 По ТабДок.ШиринаТаблицы Цикл

			Обл2 = ТабДок.Область(1, ИндексКолонки);

			ИмяКолонки = "К" + Формат(ИндексКолонки, "ЧДЦ=0; ЧН=0; ЧГ=0");

			СтруктураКолонок.Вставить(ИмяКолонки, ?(Обл2.СодержитЗначение, Обл2.ТипЗначения, Новый ОписаниеТипов));

		КонецЦикла;

	КонецЕсли;

 

    Таблица = ПреобразоватьТДвТЗ(ТабДок, СтруктураКолонок, ?(ЕстьЗаголовок, 2, 1), 1);

 

	Возврат Таблица;

КонецФункции;



// Сохраняет таблицу значений в файле в виде табличного документа.

//

// Параметры:

//	ИмяФайла - <Строка> - Путь к файлу MXL;

//	ТабЗначений - <ТаблицаЗначений> - Сохраняемая таблица значений;

//	ЕстьЗаголовок - <Булево> - Есть ли первая строка с заголовками или нет.

//

Процедура ЗаписатьТЗВMXL(ИмяФайла, ТабЗначений, ЕстьЗаголовок = Истина) Экспорт

 

	ТабДок = ПреобразоватьТЗвТД(ТабЗначений, Неопределено, 1, 1, ЕстьЗаголовок);

	ТабДок.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.MXL);

 

КонецПроцедуры;   

 // Получаем таблицу значения из файла. 

Функция ЗагрузитьТЗизФайла(ИмяФайла)    

    Путь = КаталогВременныхФайлов() + ИмяФайла; 

    Текст = Новый ЧтениеТекста(Путь, КодировкаТекста.UTF8); 

    стрТЗ = Текст.Прочитать(); 

    Текст.Закрыть(); 

    // получим таблицу значений из строки

    ТЗ = ЗначениеИзСтрокиВнутр(стрТЗ);    

    Возврат ТЗ;    

КонецФункции    



// Заполнить ячейки в строке  значениями 

//

Функция ЗаписьТЗ2ТабДок(записьТЗ,НомерСтроки,ТабличныйДокумент)

    НомерКолонки = 1;

    Символ160 = Символ(160);    

    // цикл по колонкам таблицы

    // РезультатЗапроса.Колонки.Количество()    // - количество колонок

    Для каждого полеТЗ из ЗаписьТЗ цикл 

        // значения ячейки в Excel

        типПоляТЗ = ТипЗнч(полеТЗ);

        если типПоляТЗ = Тип("Число") тогда             

            полеТЗ=Строка(полеТЗ); 

            полеТЗ=СтрЗаменить(полеТЗ,Символ160,"");

            полеТЗ=СтрЗаменить(полеТЗ,",",".");

        иначеесли типПоляТЗ = Тип("Строка") тогда      

        иначе        

            полеТЗ = строка(полеТЗ);

        КонецЕсли;    

        имяОбласти = "R" + номерСтроки + "C" + НомерКолонки;

        имяОбласти = СтрЗаменить(имяОбласти,Символ(160),"");         

        Ячейка = ТабличныйДокумент.Область(имяОбласти);

        Ячейка.Текст = полеТЗ;

        НомерКолонки = НомерКолонки + 1;

    КонецЦикла;            

КонецФункции



// Заполнить наименованиями колонок таблицу

Функция НаимКолонок2Mxl(ТаблицаЗначений,ТабличныйДокумент)

    // массКолонки = новый массив();

    номерСтроки=1;

    номКолонки=1; 

    ТабличныйДокумент = новый ТабличныйДокумент;

    // цикл по коллекции колонок

    Для НомКол=0 по ТаблицаЗначений.Колонки.Количество() - 1 Цикл

        //Сообщить(Колонка.Имя + "(" + Колонка.ТипЗначения + ")" );            

        имяКолонки=ТаблицаЗначений.Колонки[НомКол].Имя;

        //ТабличныйДокумент.Область(

        имяОбласти = "R" + номерСтроки + "C" + номКолонки;

        имяОбласти = СтрЗаменить(имяОбласти,Символ(160),"");         

        Ячейка = ТабличныйДокумент.Область(имяОбласти);

        //значениеЯчейки = СтрЗаменить(имяОбласти,Символ(160),"");         

        Ячейка.Текст = имяКолонки;

        // на основе текущего шрифта сделаем Жирный

        ЖирныйШрифт = ?(ЖирныйШрифт = Неопределено,Новый Шрифт(Ячейка.Шрифт,,,Истина),ЖирныйШрифт);         

        Ячейка.Шрифт = ЖирныйШрифт;

        номКолонки = номКолонки + 1;        

    КонецЦикла;

КонецФункции





// Заполнить построчно табличный документ

Функция Таблица2Mxl(ТаблицаЗначений,ТабличныйДокумент)

    //Выборка = РезультатЗапроса.Выбрать();

    НомСтр=1; // заполняем данными начиная со 2-й строки    

    // цикл по строкам таблицы

    Для каждого записьТЗ из ТаблицаЗначений Цикл

        НомСтр = НомСтр + 1;

        // цикл по колонкам таблицы        

        ЗаписьТЗ2ТабДок(записьТЗ,НомСтр,ТабличныйДокумент);         

    КонецЦикла;    

КонецФункции



// Таблица значений в табличный документ

Функция ТаблицаЗначений2Mxl(ТаблицаЗначений,ФайлMxl)

    ТабличныйДокумент = новый ТабличныйДокумент;

    // вывести колонки

    НаимКолонок2Mxl(ТаблицаЗначений,ТабличныйДокумент);

    // вывести содержимое таблицы    

    Таблица2Mxl(ТаблицаЗначений,ТабличныйДокумент);

    ТабличныйДокумент.Записать(ФайлMxl,ТипФайлаТабличногоДокумента.MXL);

    ТабличныйДокумент.Показать(ФайлMxl,ФайлMxl);

    Возврат 0;

КонецФункции





Функция    Тест_ВыгрузитьТЗвMxl();

    файл_мТЗИсходныеДанные = "мТЗИсходныеДанные.dat";        

    ТЗ = ЗагрузитьТЗизФайла(файл_мТЗИсходныеДанные);    

    ФайлMxl = КаталогВременныхФайлов() + СтрЗаменить(файл_мТЗИсходныеДанные,".dat",".mxl");  

    ТаблицаЗначений2Mxl(ТЗ,ФайлMxl);

КонецФункции



Тест_ВыгрузитьТЗвMxl();   

 ПараметрыСоединения = Новый ПараметрыСоединенияВнешнегоИсточникаДанных; 

	ПараметрыСоединения.СтрокаСоединения= 

	"Driver={Microsoft Excel Driver (*.xls)};DBQ=C:\Documents and Settings\Admin\Мои документы\finance2.xls; DriverID=790"; 

	ВнешниеИсточникиДанных.Excel.УстановитьОбщиеПараметрыСоединения(ПараметрыСоединения); 

	ВнешниеИсточникиДанных.Excel.УстановитьСоединение();

		

	Запрос = Новый Запрос();

	

	Запрос.Текст = "ВЫБРАТЬ

	               |	Данные.date КАК Дата,

	               |	Данные.time КАК Время,

	               |	Данные.account КАК Счет,

	               |	Данные.amount КАК Сумма,

	               |	Данные.currency КАК Валюта,

	               |	Данные.category КАК Категория,

	               |	Данные.parent КАК КатегорияРодитель

	               |ИЗ

	               |	ВнешнийИсточникДанных.Excel.Таблица.Данные КАК Данные";

	

	ТЗ = Запрос.Выполнить().Выгрузить();   

 

// Функция считывает в табличный документ данные из файла в формате ODF Calc(ods)

//

// Параметры:

// ТабличныйДокумент – ТабличныйДокумент, в который необходимо прочитать данные

// ИмяФайла – имя файла в формате ODF, из которого необходимо прочитать данные

// НомерЛистаCalc – номер листа книги Calc, из которого необходимо прочитать данные

//

// Возвращаемое значение:

// Истина, если файл прочитан, Ложь – иначе

//

Функция мПрочитатьТабличныйДокументИзCalc(ТабличныйДокумент, ИмяФайла, НомерЛистаCalc = 1) Экспорт



ВыбФайл = Новый Файл(ИмяФайла);

Если НЕ ВыбФайл.Существует() Тогда

Сообщить(“Файл не существует!”);

Возврат Ложь;

КонецЕсли;



Попытка

ServiceManager = Новый COMОбъект(“com.sun.star.ServiceManager”);

Desktop = ServiceManager.CreateInstance(“com.sun.star.frame.Desktop”);

Desktop.getCurrentFrame().getContainerWindow().setVisible(Ложь); //сделаем невидимым основное окно.



//установим параметры – не показывать таблицу Calc

Параметры = Новый COMSafeArray(“VT_DISPATCH”, 1);

Свойство = ServiceManager.Bridge_GetStruct(“com.sun.star.beans.PropertyValue”);

Свойство.Name = “Hidden”;

Свойство.Value = true;

Параметры.SetValue(0,Свойство);



Document = Desktop.LoadComponentFromURL(“file:///” + ИмяФайла, “_blank”, 0, Параметры);

Состояние(“Обработка файла Office Calc …”);

Листы = Document.getSheets();

Лист = Листы.getByIndex(НомерЛистаCalc-1);

Исключение

Сообщить(“Ошибка загрузки данных. Возможно неверно указан номер листа книги Calc.”);

Возврат ложь;

КонецПопытки;



ТабличныйДокумент.Очистить();



//Определение максимум ячейки с данными…

НульЯчейка = Лист.GetCellbyPosition(0,0);

НульКурсор = Лист.createCursorByRange(НульЯчейка);

НульКурсор.GotoEndOfUsedArea(1);

НульАдрес = НульКурсор.RangeAddress;

ПослСтрока = НульАдрес.EndRow;

ПослКолонка = НульАдрес.EndColumn;



//Для Column = 1 По ПослКолонка + 1 Цикл

// ТабличныйДокумент.Область(“C” + Формат(Column, “ЧГ=”)).ШиринаКолонки = Лист.getColumns.getByIndex(Column-1).Width;

//КонецЦикла;



Для Row = 1 По ПослСтрока + 1 Цикл



Если Лист.getCellByPosition(Column-1,Row-1).getType() = 0 Или Лист.getCellByPosition(Column-1,Row-1).getType() = 1 Тогда ТабличныйДокумент.Область(“R” + Формат(Row, “ЧГ=”) +”C” + Формат(Column, “ЧГ=”)).Текст = Лист.getCellByPosition(Column-1,Row-1).value;

ИначеЕсли Лист.getCellByPosition(Column-1,Row-1).getType() = 2 Тогда ТабличныйДокумент.Область(“R” + Формат(Row, “ЧГ=”) +”C” + Формат(Column, “ЧГ=”)).Текст = Лист.getCellByPosition(Column-1,Row-1).string;

КонецЕсли;

КонецЦикла;



//ServiceManager.quit();

Document.Dispose();

Document = 0;

Параметры = 0;

Desktop = 0;

ServiceManager = 0;



Возврат Истина;



КонецФункции   

 ДиалогВыбораФайла.Фильтр = “Табличный документ (*.mxl)|*.mxl|Лист Calc (*.ods)|*.ods|Лист Excel (*.xls)|*.xls|Текстовый документ (*.txt)|*.txt|dBase III (*.dbf)|*.dbf|”;   

 // Загрузка данных из Excel файла в ТаблицуЗначений 

// Возвращает ТаблицуЗначений с данными 

// ПутьДоExcel - путь до Excel файла

// НомерСтраницы - Номер страницы в Excel

// ПерСтрокаЗаголовок - первая строка Excel содержит имена столбцов

// ФормаИндикатора - Стандартная форма прогресса работы

Функция ИзExcelВТаблицу(ПутьДоExcel, НомерСтраницы = 1, ПерСтрокаЗаголовок = Ложь , ФормаИндикатора = Неопределено)

    Попытка

        Док = ПолучитьCOMОбъект(ПутьДоExcel); 

    Исключение

        Сообщить("Произошла ошибка при обращение к Excel:" + Символы.ПС + ОписаниеОшибки());

        Возврат Неопределено;

    КонецПопытки;       

 

    ЗакрытьФормуИндиктаора = Ложь;  

    Если ФормаИндикатора = Неопределено тогда

        ЗакрытьФормуИндиктаора = Истина;

        ФормаИндикатора = ПолучитьОбщуюФорму("ХодВыполненияОбработкиДанных");       

        ФормаИндикатора.Открыть();  

    КонецЕсли;      

    ФормаИндикатора.КомментарийЗначения = "Загрузка данных из Excel...";

     

    ТЗ = Новый ТаблицаЗначений();   

    Страница = Док.Sheets(НомерСтраницы);

    МакСтрок = Страница.UsedRange.Rows.Count;       // макс. колич. строк

    МакСтолб = Страница.UsedRange.Columns.Count;    // макс. колич. столбцов    

     

    Для Столбец = 1 по МакСтолб цикл

        ИмяСтолбца = "Столбец_"  + Столбец;

        Если ПерСтрокаЗаголовок тогда

            ИмяСтолбца = Страница.Cells(1,Столбец).Value;

            ИмяСтолбца = СокрЛП(ИмяСтолбца);

            ИмяСтолбца = СтрЗаменить(ИмяСтолбца," ","_");

        КонецЕсли;                      

        ТЗ.Колонки.Добавить(ИмяСтолбца, Новый ОписаниеТипов("Строка"));

    КонецЦикла; 

     

    НачальнаяСтрока = 1;    

    Если ПерСтрокаЗаголовок тогда                                       

        НачальнаяСтрока = 2;

    КонецЕсли;          

     

    Для НомСтрока = НачальнаяСтрока по МакСтрок цикл

        СтрТЗ = ТЗ.Добавить();

        Для НомСтолбец = 1 по МакСтолб цикл

            Данные = Страница.Cells(НомСтрока,НомСтолбец).Value;                

            СтрТЗ[НомСтолбец-1] = Данные;

        КонецЦикла;     

         

        ФормаИндикатора.ЭлементыФормы.Индикатор.Значение = НомСтрока/МакСтрок * 100;        

    КонецЦикла;     

     

    Если ЗакрытьФормуИндиктаора тогда

        ФормаИндикатора.Закрыть();

    КонецЕсли;      

     

    Возврат ТЗ; 

КонецФункции    

 ФормаИндикатора = ПолучитьОбщуюФорму("ХодВыполненияОбработкиДанных");

ФормаИндикатора.НаименованиеОбработкиДанных = "Загрузка данных...";     

ФормаИндикатора.Открыть();  

     

ТЗ = ИзExcelВТаблицу(ФайлExcel,1,Истина,ФормаИндикатора);       

Если ТЗ = Неопределено тогда

    ФормаИндикатора.Закрыть();

    Возврат;

КонецЕсли;              

     

ФормаИндикатора.Закрыть();   

 ТЗ = ИзExcelВТаблицу(ФайлExcel);        

Если ТЗ = Неопределено тогда

    Возврат;

КонецЕсли;    

 // Создаем в справочнике "ИмяСправочника" элемент

// ИмяЭлемента - Имя созданного элемента в справочнике "ИмяСправочника"

// ИмяРодителя - Имя родительского элемента (отсутствует если не древовидный).

//               Разделитель \\ позволяет писать древовидный путь родителя из нескольких элементов

// Параметры - Соответствие содержащие список параметров для элемента

// СоздатьЕслиНетЭлемента - Создает элемент если нет. Иначе ищет и обновляет

Функция ЭлементСправочника(ИмяСправочника = "",ИмяЭлемента, ИмяРодителя = Неопределено, Параметры = Неопределено, СоздатьЕслиНетЭлемента=Истина)

    Если ИмяСправочника = "" тогда

        Сообщить("Укажите имя спрачоника - ЭлементСправочника()");

        Возврат Неопределено;

    КонецЕсли;      

     

    Если ПустаяСтрока(ИмяЭлемента) тогда

        Возврат Неопределено;

    КонецЕсли;      

     

    // Создаем или ищем родителя

    Родитель = Неопределено;    

    Если ИмяРодителя <> Неопределено тогда

         

        ОбрабатИмяРодителя = ИмяРодителя;

        РодительГруппы = Справочники[ИмяСправочника].ПустаяСсылка();

         

        Пока НЕ ПустаяСтрока(ОбрабатИмяРодителя) цикл

             

            ПозРазделителя = Найти(ОбрабатИмяРодителя,"\\");

            Если ПозРазделителя = 0 тогда

                ИмяГруппы = ОбрабатИмяРодителя;

                ОбрабатИмяРодителя = ""                       

            Иначе

                ИмяГруппы = Сред(ОбрабатИмяРодителя,1, ПозРазделителя-1);               

                ОбрабатИмяРодителя = Сред(ОбрабатИмяРодителя,ПозРазделителя+2);                 

            КонецЕсли;      

             

            ТексЗапроса = "ВЫБРАТЬ

                          | Данные.Ссылка

                          |ИЗ

                          | Справочник."+ИмяСправочника+" КАК Данные

                          |ГДЕ

                          | Данные.Родитель = &Родитель

                          | И Данные.Наименование = &Наименование

                          | И Данные.ЭтоГруппа";

                           

            ЗапросРодителя = Новый Запрос(ТексЗапроса);

            ЗапросРодителя.УстановитьПараметр("Родитель", РодительГруппы);

            ЗапросРодителя.УстановитьПараметр("Наименование", ИмяГруппы);

            РезультатРодителя = ЗапросРодителя.Выполнить().Выгрузить(); 

 

            // Создаем родителя в случае необходимости          

            Если РезультатРодителя.Количество() <> 0 тогда

                РодительГруппы = РезультатРодителя[0].Ссылка

            Иначе               

                ОбъектРодитель = Справочники[ИмяСправочника].СоздатьГруппу();

                ОбъектРодитель.Родитель = РодительГруппы;

                ОбъектРодитель.Наименование = ИмяГруппы;

                ОбъектРодитель.Записать();

                РодительГруппы = ОбъектРодитель.Ссылка;

            КонецЕсли;              

        КонецЦикла;         

        Родитель = РодительГруппы;

    КонецЕсли;      

     

    // Создаем или ищем элемент

    Элемент = Справочники[ИмяСправочника].НайтиПоНаименованию(ИмяЭлемента);

    ОбъектЭлемент = Неопределено;

     

    Если Элемент.Пустая() тогда

        Если СоздатьЕслиНетЭлемента тогда

            ОбъектЭлемент = Справочники[ИмяСправочника].СоздатьЭлемент();

            ОбъектЭлемент.Наименование = ИмяЭлемента;

        Иначе 

            Элемент = Неопределено

        КонецЕсли;              

    Иначе

        ОбъектЭлемент = Элемент.ПолучитьОбъект(); 

    КонецЕсли;  

     

     

    Если ОбъектЭлемент <> Неопределено тогда        

        // Устанвалвиаем доп. параметры 

        Если Параметры <> Неопределено тогда      

            Для каждого СтрПараметр из Параметры цикл               

                ОбъектЭлемент[СтрПараметр.Ключ] = СтрПараметр.Значение;

            КонецЦикла;         

        КонецЕсли;  

                 

        Если Родитель <> Неопределено тогда       

            ОбъектЭлемент.Родитель = Родитель;  

        КонецЕсли;

     

        ОбъектЭлемент.Записать();                   

        Элемент = ОбъектЭлемент.Ссылка; 

    КонецЕсли;      

         

    Возврат Элемент;

КонецФункции       

 Процедура СохранитьТаблицуВФайлExcel(Таблица, ПолноеИмяФайла="", ОткрыватьДиалогВыбораФайла=Истина, ВыгружаемыеКолонки="") Экспорт 

	

	Если ПустаяСтрока(ПолноеИмяФайла) ИЛИ ОткрыватьДиалогВыбораФайла Тогда

		Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);

		Диалог.Заголовок		= "Сохранение документа Excel";

		Диалог.Фильтр			= "Документ Excel (*.xls)|*.xls";

		Диалог.Расширение		= "xls";

		Диалог.ПолноеИмяФайла	= ПолноеИмяФайла;

		Диалог.Каталог = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "ОсновнойКаталогФайлов");	

		Если (Диалог.Выбрать()) И (НЕ ПустаяСтрока(Диалог.ПолноеИмяФайла)) Тогда

			ПолноеИмяФайла = Диалог.ПолноеИмяФайла;

		Иначе 

			Возврат;

		КонецЕсли;

	КонецЕсли;

	

	ФайлНаДиске = Новый Файл(ПолноеИмяФайла);



	Попытка

 		// Загрузка Microsoft Excel

 		Состояние("Выгрузка данных из 1С в Microsoft Excel...");

 		ExcelПриложение = Новый COMОбъект("Excel.Application");

		Книга = ExcelПриложение.WorkBooks.Add();

		Лист = Книга.WorkSheets(1);

	Исключение

 		Сообщить("Ошибка при загрузке Microsoft Excel." 

			+ Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);

 		Возврат;

	КонецПопытки;

	

	Если ПустаяСтрока(ВыгружаемыеКолонки) Тогда

		ТаблицаВыгрузки = Таблица.Скопировать();

	Иначе

		ТаблицаВыгрузки = Таблица.Скопировать(, ВыгружаемыеКолонки);

	КонецЕсли;

	

	Для Кол = 0 По ТаблицаВыгрузки.Колонки.Количество()-1 Цикл 

		Лист.Cells(1, Кол + 1).Value = ТаблицаВыгрузки.Колонки[Кол].Заголовок;

	КонецЦикла;

			

	Попытка

		

		Для Стр = 0 По ТаблицаВыгрузки.Количество()-1 Цикл

			

			Для Кол = 0 По ТаблицаВыгрузки.Колонки.Количество()-1 Цикл

				

				Если ТипЗнч(ТаблицаВыгрузки[Стр][Кол]) = Тип("Число") Тогда

					// Установним формат для типа Число

					//Лист.Cells(Стр + 2, Кол + 1).NumberFormat = "0,00";

					Лист.Cells(Стр + 2, Кол + 1).Value = ТаблицаВыгрузки[Стр][Кол];

				Иначе 

					// Для всех других типов установим формат "Текстовый"

					//Лист.Cells(Стр + 2, Кол + 1).NumberFormat = "@";

					Лист.Cells(Стр + 2, Кол + 1).Value = Строка(ТаблицаВыгрузки[Стр][Кол]);

				КонецЕсли;

				

			КонецЦикла;

		

		КонецЦикла;

		

		ExcelПриложение.DisplayAlerts = False;

		Книга.SaveAs(ПолноеИмяФайла); 

		ExcelПриложение.ActiveWorkbook.Close();

 		ExcelПриложение.Quit();

		

		Сообщить("Файл выгружен успешно: "  + ПолноеИмяФайла);

		

	Исключение

		

		Сообщить("Ошибка записи данных файла :" + ПолноеИмяФайла);

		Сообщить(ОписаниеОшибки());

		Попытка

			ExcelПриложение.Quit();

		Исключение

		КонецПопытки;

		

	КонецПопытки;

	

КонецПроцедуры

   

 Файл = "C:\files\demo.mdb" ;

   //СтрокаПодключения = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + Файл + "; Extended Properties=""Excel 8.0;HDR=NO;""";

    СтрокаПодключения  =   "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + Файл + ";""";

    Connection = Новый COMОбъект("ADODB.Connection");

    Попытка

        Connection.Open(СтрокаПодключения);

    Исключение

        Сообщить(ОписаниеОшибки());

        Возврат;

    КонецПопытки;

        Command = Новый COMОбъект("ADODB.Command");



    Command.ActiveConnection = Connection;

    Command.CommandText = "S_elect * FROM Table1";

    Command.CommandType = 1;

    RecordSet = Новый COMОбъект("ADODB.RecordSet");

    RecordSet = Command.Execute();

    стр ="";

      Пока RecordSet.EOF() = 0 Цикл

            для н=0 по  Recordset.Fields.Count -1 цикл

            стр = стр + " " + Recordset.Fields(н).Value;

         КонецЦикла;

      Сообщить(стр);

             стр ="";

        RecordSet.MoveNext(); 

      КонецЦикла;

   RecordSet.Close();

    Connection.Close();   

 Акцесс = СоздатьОбъект("ADODB.CONNECTION");

Попытка

     СтрокаПодключения="Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mybase.mdb;Uid=Admin;Pwd=";

     Акцесс.Open(СтрокаПодключения);

Исключение

     Сообщить("Все плохо:"+ОписаниеОшибки());

     Возврат;

КонецПопытки;

Команда = СоздатьОбъект("ADODB.Command");

Команда.ActiveConnection=Акцесс;

ТекстСелект = "S_elect * FROM tblCustoms";

НаборЗаписей = СоздатьОбъект("ADODB.RecordSet");

Команда.CommandText=ТекстСелект;

Попытка

     НаборЗаписей=Команда.Execute;

Исключение

     Сообщить("Обломись:"+ОписаниеОшибки());

КонецПопытки;

Попытка

     НаборЗаписей.MoveFirst();

Исключение //нет записей в рекордсете

     НаборЗаписей.Close();

     Возврат;

КонецПопытки;

Пока НаборЗаписей.EOF()=0 Цикл

     ИНН = НаборЗаписей.Fields("INN").Value;

     //ну и т.д.

     НаборЗаписей.MoveNext();

КонецЦикла;

НаборЗаписей.Close();



// Для тех, у кого в базе Акцесс создана рабочая группа (есть файлик mdw), строка подключения будет такая: 

СтрокаПодключения="Driver= Microsoft Access Driver (*.mdb)};systemDB=C:\wg.mdw;Dbq=C:\mybase.mdb;Uid=Admin;Pwd=";

 Процедура Выполнить() 

//фасВладелец = СтрЗаменить(фасВладелец," ","_"); 

   Спр = СоздатьОбъект("Справочник.ТоварыВПрайсе"); 

   Спр.ИспользоватьВладельца(ФасВладелец); 

   dbe = СоздатьОбъект("dao.DBEngine.36"); 

   wksp = dbe.Workspaces(0); 

   db = 0; 

   Если ФС.СуществуетФайл(КаталогИБ()+"Pric_list.mdb")=0 Тогда               // 

       db = wksp.CreateDataBase(КаталогИБ()+"Pric_list.mdb",";LANGID=0x0419;Cp=1251;Country=0");             //   

       db.Execute("Create table [" + Строка(фасВладелец) + "]                                                                                             

       |(Rec_ind integer, 

       |Код text,                                                                                                           

       |Артикул text, 

       |Цена integer, 

       |Товар text, 

       |Единица text, 

       |Val text);" 

       ); 

       db.Execute("Create index Rec_ind on ["+Строка(фасВладелец)+"] (Rec_ind);"); 

   Иначе 

       db= wksp.OpenDataBase(КаталогИБ()+"Pric_list.mdb"); 

       Попытка 

           rs = db.OpenRecordset(Строка(фасВладелец)); 

       Исключение 

           Сообщить("Создается новая таблица"); 

       КонецПопытки; 

       Если ПустоеЗначение(rs)= 1 Тогда 

           db.Execute("Create table [" + Строка(фасВладелец) + "]                                                                                             

           |(Rec_ind integer, 

           |Код text, 

           |Артикул text, 

           |Цена integer, 

           |Товар text, 

           |Единица text, 

           |Val text);" 

           ); 

           db.Execute("Create index Rec_ind on ["+Строка(фасВладелец)+"] (Rec_ind);"); 

       КонецЕсли;     

       db.Execute("Delete * From ["+Строка(фасВладелец)+"];");                                                         

   КонецЕсли;   

   rs = db.OpenRecordset(Строка(фасВладелец)); 

   Y = 1; 

   Спр.ВыбратьЭлементы(); 

   Пока Спр.ПолучитьЭлемент() = 1 Цикл 

       лсЕдиницы = ""; 

       Если Спр.асТовар.апТип=Перечисление.ТипТовара.Услуга Тогда 

           лсЕдиницы = ""; 

       ИначеЕсли Спр.асТовар.апТип=Перечисление.ТипТовара.Весовой Тогда 

           лсЕдиницы = "г"; 

       ИначеЕсли Спр.асТовар.апТип=Перечисление.ТипТовара.Штучный Тогда 

           лсЕдиницы = "шт."; 

       КонецЕсли; 

       Если Спр.ЭтоГруппа() = 0 Тогда 

           rs.AddNew(); 

           rs.Rec_ind = Y; 

           rs.Код= Спр.асТовар.ПолныйКод(); 

           rs.Артикул =  Спр.асТовар.сАртикул; 

           rs.Цена = Спр.чЦена; 

           rs.Товар=Спр.асТовар.сПолнНаименование; 

           rs.Единица =  лсЕдиницы; 

           rs.Val = Спр.асВалюта.Код; 

           rs.Update(); 

           Y=Y+1; 

       КонецЕсли; 

   КонецЦикла; 

   db.Close();   

   Сообщить("Выгрузка завершена"); 

КонецПроцедуры

 

Процедура ACCESS()

     dbe=CreateObject("DAO.DBEngine.36");

     wksp=dbe.Workspaces(0);

     db=0;

     // в ковычках имя фаила с расширением MDB

     Если ФС.СуществуетФайл(КаталогПользователя()+"sr.mdb")=0 Тогда

          // создание файла базы данных с русским порядком сортировки

          db=wksp.CreateDataBase(КаталогПользователя()+"mars_sr.mdb",";LANGID=0x0419;CP=1251;COUNTRY=0");

          // DDL - запрос на создание таблицы

          // описание языка DDL (подмножество SQL) смотрите в хелпе по MS Access

          // не пытайтесь делать это с другими форматами - DDL через DAO поддерживается только для MDB

          //Создадим еще таблицу

          db.Execute("CREATE TABLE   BANKS

          |(REC_IND INTEGER,

          |BANKCODE INTEGER,

          |BANKNAME  TEXT  ,

          |ModifiedFlg BIT,

          |ChangeSeqFlg BIT);"

          );

          // индекс на нужные поля

          db.Execute("CREATE INDEX REC_IND ON BANKS (REC_IND);");

     Иначе

          // просто открываем базу данных в разделенном режиме

          db=wksp.OpenDataBase(КаталогПользователя()+"sr.mdb");

          // и очищаем имеющиеся данные

          db.Execute("DELETE * FROM BANKS;");

    КонецЕсли;

    // rs-это как раз сама таблица, куда мы будем добавлять записи

    rs=db.OpenRecordset("BANKS");

    // добавление записи

    rs.AddNew();

    // присвоение значений полям

    rs.REC_IND            =     "1";

    rs.BANKCODE       =     "34";

    rs.BANKNAME       =    "Инвест";

    rs.ModifiedFlg        =     "1";

    // запомним запись

    rs.Update();

    // и так далее ...

    db.Close();  // закрытие базы данных

КонецПроцедуры

 //подключение

Conn= Новый COMОбъект("ADODB.Connection");

Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Параметры.ИмяФайла+";

|Extended Properties=""Excel 8.0;"+?(Параметры.ЗаголовкиКолонокИменаСтолбцовExcel,"HDR=NO;","")+"IMEX=1;""";

//Conn.ConnectionTimeout=0;

//Conn.CursorLocation=3;

Conn.Open();



//************Текст запроса

ТекстЗапроса="S_elect

                |   *

                |FROM [Лист1$]

//              |INNER  JOIN

//              |       ON

//             |WHERE

//              |GROUP BY

//              |       ORDER BY

                |";

Результат=Conn.Execute(ТекстЗапроса);   

 

//Реквизит "Листы" - неопределённого типа

//Реквизит "Файл" - строковой реквизит, в котором хранится путь к excel-файлу



Процедура ЗаполнитьЛисты()

	

	ЭлементыФормы.Листы.СписокВыбора.Очистить();

	Таблица = ПолучитьCOMОбъект(Файл);

	

	Для Н = 1 По Таблица.Sheets.Count Цикл

		ТекущийЛист = Строка(Таблица.Sheets(Н).Index) + ". " + Таблица.Sheets(Н).Name;

		ЭлементыФормы.Листы.СписокВыбора.Добавить(ТекущийЛист);

	КонецЦикла;

	ЭлементыФормы.Листы.Значение = ТекущийЛист;

	

КонецПроцедуры



Процедура КнопкаВыполнитьНажатие(Кнопка)

	

	Если ЭлементыФормы.Листы.Значение = "" Тогда

		Предупреждение("Выберите лист", 5);

		Возврат;

	КонецЕсли;



	Таблица = ПолучитьCOMОбъект(Файл);

	Индекс = Число(Сред(ЭлементыФормы.Листы.Значение, 1, Найти(ЭлементыФормы.Листы.Значение, ". ") - 1));//извлекаем порядковый номер из текущего значения списка выбора

	Лист = Таблица.Sheets(Индекс);//получаем лист по порядковому номеру



	//теперь обращаемся к значениям в ячейках по своему усмотрению



	Строка = 1;

	Столбец = 4;



	КодНоменклатуры = Лист.Cells(Строка, Столбец).Value);

	Номенклатура = Лист.Cells(Строка, Столбец + 1).Text);

	

КонецПроцедуры

   

 #НаКлиенте

Процедура ИмпортИзВнешнегоФайла(Команда)

     //Выбор и загрузка файла.

     Если НЕ  ПодключитьРасширениеРаботыСФайлами() Тогда

          УстановитьРасширениеРаботыСФайлами();

     КонецЕсли;

 

     Если  ПодключитьРасширениеРаботыСФайлами() Тогда

          Режим =  РежимДиалогаВыбораФайла.Открытие;

          ДиалогОткрытияФайла = Новый  ДиалогВыбораФайла(Режим);

          ДиалогОткрытияФайла.ПолноеИмяФайла = "";

          ДиалогОткрытияФайла.МножественныйВыбор = Ложь;

          Фильтр = "Текст(*.xls)|*.xls";

          ДиалогОткрытияФайла.Фильтр = Фильтр;

          ДиалогОткрытияФайла.Заголовок = "Выберите файл для импорта";

          Если  ДиалогОткрытияФайла.Выбрать() Тогда

               Объект.МедицинскиеРаботники.Очистить();

               ДанныеНачинаютсяС = 1;

              Если  Не ВвестиЧисло(ДанныеНачинаютсяС, "Данные начинаются со строки", 2,  0) Тогда

                    Возврат;

              КонецЕсли;

              МассивФайлов = ДиалогОткрытияФайла.ВыбранныеФайлы;

              ПомещаемыеФайлы = Новый Массив;

              Для  Каждого Файл Из МассивФайлов Цикл

                   ТекФайл = Новый Файл(Файл);

                   Описание = Новый ОписаниеПередаваемогоФайла(Файл, "");

                   ПомещаемыеФайлы.Добавить(Описание);

              КонецЦикла;

 

              ПомещенныеФайлы = Новый Массив;

 

              Если  ПоместитьФайлы(ПомещаемыеФайлы, ПомещенныеФайлы, , Ложь, УникальныйИдентификатор) Тогда

                   //Запуск импорта

                   ИмпортироватьФайлИзВременногоХранилищаВТЗ(ПомещенныеФайлы, ДанныеНачинаютсяС);

              КонецЕсли;

         Иначе

              Предупреждение("Файл(ы) не  выбран!");

         КонецЕсли;

     Иначе

          Предупреждение(НСтр("ru ='Данная возможность недоступна, так как не подключено расширение работы с файлами.'", "ru"));

     КонецЕсли;

КонецПроцедуры //ИмпортИзВнешнегоФайла()   

 #НаСервере

Процедура ИмпортироватьФайлИзВременногоХранилищаВТЗ(МассивФайлов,  ДанныеНачинаютсяС)

    ДокументОбъект =  РеквизитФормыВЗначение("Объект");

 

    //Обход файлов, записанных  во временное хранилище

    Для Каждого  ЭлементМассива Из МассивФайлов Цикл

        ФайлИзХранилища =  ПолучитьИзВременногоХранилища(ЭлементМассива.Хранение);

        ВременныйФайл = ПолучитьИмяВременногоФайла("xls");

       //Сохранение во временнный файл на диске

       ФайлИзХранилища.Записать(ВременныйФайл);

 

       //Импорт

       Док =  ПолучитьCOMОбъект(ВременныйФайл);

       ФИОУчастника = Док.Sheets(1).Cells(ДанныеНачинаютсяС, 2).Value;

       Пока СокрЛП(ФИОУчастника) ="" Цикл

           //  Добавление строки с файла в документ

          НоваяСтрока = ДокументОбъект.МедицинскиеРаботники.Добавить();

          НоваяСтрока.Фио = ФИОУчастника;

          НоваяСтрока.Учреждение = Док.Sheets(1).Cells(ДанныеНачинаютсяС, 7).Value;

          НоваяСтрока.Адрес = Док.Sheets(1).Cells(ДанныеНачинаютсяС, 3).Value;

          НоваяСтрока.Телефон = Док.Sheets(1).Cells(ДанныеНачинаютсяС, 4).Value;

          НоваяСтрока.ЭлПочта = Док.Sheets(1).Cells(ДанныеНачинаютсяС, 5).Value;

          НоваяСтрока.Образование = Док.Sheets(1).Cells(ДанныеНачинаютсяС, 6).Value;

          ДанныеНачинаютсяС = ДанныеНачинаютсяС + 1;

          ФИОУчастника = Док.Sheets(1).Cells(ДанныеНачинаютсяС, 2).Value;

      КонецЦикла;

      Сообщить("Импорт завершён");

      Док.Application.Quit();

    КонецЦикла;

    ЗначениеВРеквизитФормы(ДокументОбъект, "Объект");

КонецПроцедуры  //ИмпортироватьФайлИзВременногоХранилищаВТЗ()   

 ' Установить соединение с сервером 1С

Set v81 = CreateObject("V81.Application")

res = v81.Connect("Srvr=Server1C;Ref = db1C;Usr=User1C;Pwd=Password1C")

' Передать управление внешней обработке по генерации Отчета Анализ Заказов

res = v81.ExternalDataProcessors.Create("C:\1C\Service\rep_email.epf").ThisObject.Report()

v81.Exit(false)



' Дать возможность 1С закрыть все открытые файлы и выгрузиться из памяти

WScript.Sleep(5000)



' Вызвать VBS скрипт отправки почты по E-Mail

Dim WshShell

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run "C:\1C\ Service\emailer.vbs"    

 'Отправить сообщение с помощью локальной службы SMTP

Const cdoSendUsingPickup = 1

'Отправить сообщение с помощью сети (SMTP через сеть)

Const cdoSendUsingPort = 2

Const cdoAnonymous = 0

Const cdoBasic = 1

Const cdoNTLM = 2



Set objMessage = CreateObject("CDO.Message")

' Тема сообщения и адрес отправителя

objMessage.Subject = "Ежедневный отчет Анализ заказов поставщикам"

objMessage.From = """Генератор отчетов"" "

' Получатели письма указываются через " ; "

objMessage.To = "email@domain.org; recv@domain.net; last@domain.ru"

' Содержимое тела письма.

objMessage.TextBody = "JSC AUTO SERVICE. Please find Orders reporting in attachment." & vbCRLF & _

"------------------------------------------" & vbCRLF & _

"Best regards, Auto report service" & vbCRLF & _

"Support line: it@domian.ru" & vbCRLF



' Добавляем файл - вложение для отправки отчета по EMail

objMessage.AddAttachment "C:\1C\Service\ЗаказыПоставщику.xls"



' Секция настроек SMTP сервера для отправки почты.

objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2



' Имя или IP адрес SMTP Server

objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.domain.ru"



' Тип используемой авторизации, NONE, Basic (Base64 encoded), NTLM

objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic



' Авторизация на SMTP server

objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "report@domain.ru"

' Пароль SMTP server

objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "youpassword"



' Порт SMTP Server port (обычно 25, но может быть и другим)

objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

' Использование SSL для соединения (False или True)

objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

' Время ожидания соединения с почтовым сервером

objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

' Сохранить настройки CDO для отправки сообщения

objMessage.Configuration.Fields.Update



' Отправить созданное почтовое сообщение с вложением отчета в формате XLS по указанному адресу

objMessage.Send    

 Процедура ReportNow() Экспорт

 // Вызывается из vbscript, выполняет работы с отчетом.

 ОткрытьОтчетПоИмени("АнализЗаказовПоставщикам");

КонецПроцедуры   

 Процедура ОткрытьОтчетПоИмени(НазваниеОтчета) Экспорт



// получаем отчет и открываем форму

// для построения отчета по названию отчета

Отчет = Отчеты[НазваниеОтчета].Создать();

Форма = Отчет.ПолучитьФорму(, , );

Форма.Открыть();



// Выполнить настройку отчета по умолчанию

Отчет.УстановитьНачальныеНастройки();



// Добавить требуемый отбор по поставщику

ТекОтбор = Отчет.УниверсальныйОтчет.ПостроительОтчета.Отбор.ДоговорКонтрагентаВладелец;

ТекОтбор.Использование = Истина;

ТекОтбор.Значение = Справочники.Контрагенты.НайтиПоНаименованию("Поставщик");

ТекОтбор.ВидСравнения = ВидСравнения.Равно;



// Добавляем специфичное для нас измерение в отборе - например, "осталось отгрузить"

// в данном случае из отчета уйдут позиции, по которым все получено.

Отчет.УниверсальныйОтчет.ПостроительОтчета.Отбор.Добавить("ОсталосьОтгрузитьЕдиницОтчетов");

ТекОтбор1 = ОтчетОстатки.УниверсальныйОтчет.ПостроительОтчета.Отбор.ОсталосьОтгрузитьЕдиницОтчетов;

ТекОтбор1.Использование = Истина;

ТекОтбор1.Значение = 0;

ТекОтбор1.ВидСравнения = ВидСравнения.Больше;



// Состав отдельных ключевых показателей

// для каждого отчета можно посмотреть в конфигураторе

Отчет.СостояниеОтгрузкиПоЗаказу = истина;

Отчет.НеОтгружено = Истина;

Отчет.ОтгруженоЧастично = Истина;



// После завершения настроек нажмем программно кнопку "Сформировать"

Отчет.СформироватьОтчет(ФормаОтчета.ЭлементыФормы.ПолеТабличногоДокументаРезультат);



// Сформировать путь и имя файла для сохранения отчета

мПутьШаблон="C:\1C\Service";

мФайлШаблон="ЗаказыПоставщику.xls";

ИмяФайла = мПутьШаблон + "\" + мФайлШаблон;



// Полученные в отчете цифры и данные сохраним в файл Excel

Если Не ИмяФайла = Неопределено Тогда

Форма.ЭлементыФормы.ПолеТабличногоДокументаРезультат.СохранятьСвойстваОтображения = Истина;

Форма.ЭлементыФормы.ПолеТабличногоДокументаРезультат.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.XLS97);

КонецЕсли;



// Закрыть форму отчета после завершения работы

ФормаОтчета.Закрыть();

КонецПроцедуры    

 Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)

Отказ = истина;

ОткрытьОтчетПоИмени("АнализЗаказовПоставщикам");

КонецПроцедуры   

 // Выбор файла Microsoft Excel

Procedure FileNameStartChoice(Element, StdProcessing)

	

	StdProcessing = False;

	DialogFile = New FileDialog(FileDialogMode.Open);

	DialogFile.Filter = "Файлы Microsoft Excel (*.xls)|*.xls";

	DialogFile.DefaultExt = "xls";

	If DialogFile.Choose() Then

		FileName = DialogFile.FullFileName;

	EndIf;

	

EndProcedure // FileNameStartChoice()

// Получить список листов текущей книги

Function GetSheets(ExcelApplication)

		

	ListS_electSheet = New ValueList;

	

	ListS_electSheet.Add(0, "Все листы");

	

	NumberSheet = 0;

	For FirstSheet = 1 To ExcelApplication.Worksheets.Count Do 

		

		NumberSheet = NumberSheet + 1;

		ListS_electSheet.Add(

							 NumberSheet, ExcelApplication.WorkSheets(NumberSheet).Name

							);

		

	EndDo;	

	

	Return ListS_electSheet; 

	

EndFunction // GetSheets()



// Преобразование XLS в MXL

Procedure ButtonExecuteClick()

	

	If IsBlankString(FileName) Then

		DoMessageBox("Не указано имя файла");

		Return;

	EndIf;	

	

		Try

		ExcelApplication = GetCOMObject(FileName); // Excel.Application

	Except

		DoMessageBox("Ошибка чтения файла: " + FileName + " возможно защищен паролем.");

		Return;

	EndTry;	

	

	S_electSheet = 0;

	S_electSheet = GetSheets(ExcelApplication).ChooseItem("Выберите лист", S_electSheet); 

	

	If S_electSheet = Undefined Then

		Return;

	EndIf;

	

	S_electNumberSheet1 = S_electSheet.Value; 

	S_electNumberSheet2 = S_electNumberSheet1;

	If S_electNumberSheet1 = 0 Then

		S_electNumberSheet1 = 1;

		S_electNumberSheet2 = ExcelApplication.Worksheets.Count	

	EndIf;

	

	frmProgressBar = GetForm("FormProgressBar");

	frmProgressBar.Caption = "Обрабатывается файл: " + FileName;

	frmProgressBar.Controls.ProgressBarAll.MaxValue = S_electNumberSheet2;

	frmProgressBar.Controls.ProgressBarAll.Value = 0; 

	

	For NumberSheet = S_electNumberSheet1 To S_electNumberSheet2 Do

		

		frmProgressBar.Open();

		

		SprDoc = New SpreadsheetDocument;

	

		Try

			WorkSheet = ExcelApplication.Sheets(NumberSheet).UsedRange;

		Except

			DoMessageBox(ErrorDescription());

			Return;

		EndTry;

		

		AllStrings 	= WorkSheet.Rows.Count; 	// Всего строк

		AllColumns 	= WorkSheet.Columns.Count; 	// Всего колонок

		AllCells	= AllStrings * AllColumns; 	// Все ячейки

		

		frmProgressBar.Controls.InfoProgressBarAll.Value = "Обрабатывается лист № " +

		                                                    NumberSheet + " из " +

															S_electNumberSheet2;

															   

		frmProgressBar.Controls.ProgressBarAll.Value = frmProgressBar.Controls.ProgressBarAll.Value + 1; 

		

		If AllCells < 2 Then

			Continue; // Пустой лист

		EndIf;

		

		frmProgressBar.Controls.ProgressBarCur.MaxValue = AllStrings;

		frmProgressBar.Controls.ProgressBarCur.Value = 0; 

		

		For CurrentString = 1 To AllStrings Do

			

			For CurrentColumn = 1  To AllColumns Do

				

				frmProgressBar.Controls.InfoProgressBarCur.Value = "Обрабатывается строка №: " +

				                                                   TrimAll(CurrentString) +

																   " из " + AllStrings +

																   ", колонка №: " +

																   TrimAll(CurrentColumn) +

																   " из " + AllColumns;

				

				Try

					CurrentCell = WorkSheet.Cells(

					                               CurrentString,

												   CurrentColumn

												  );

					SlcCell 	= SprDoc.Area(

					                           CurrentString,

					                           CurrentColumn,

											   CurrentString,

											   CurrentColumn

											  );

					

					SlcCell.RowHeight 	= CurrentCell.RowHeight; 

					SlcCell.ColumnWidth = CurrentCell.ColumnWidth; 

					

					// Горизонтальное положение

					SlcCell.HorizontalAlign = mListHorizontalAlign.Get(

					                                                    Format(CurrentCell.HorizontalAlignment, "NG=0")

																	   );

																	   

					// Вертикальное положение																	   

					SlcCell.VerticalAlign 	= mListVerticalAlign.Get(

					                                                  Format(CurrentCell.VerticalAlignment, "NG=0")

																	 );

																	 

					// Размещение текста																	 

					SlcCell.TextPlacement = ?(

					                           CurrentCell.WrapText = 0,

											   SpreadsheetDocumentTextPlacementType.Auto,

											   SpreadsheetDocumentTextPlacementType.Wrap

											  );

					

					FontCell = CurrentCell.Font;

					

					// Цвет фона

					SlcCell.BackColor 	= mColorRGB(

													 CurrentCell.Interior.Color

													);

					

					// Цвет текста

					SlcCell.TextColor 	= mColorRGB(

													 FontCell.Color

													);

					

					

					SlcCell.Font = New Font(

					                         FontCell.Name, 

					                         Number(FontCell.Size),

					                         ?(Number(FontCell.Bold) = 0,

											 False, True),

											 ?(Number(FontCell.Italic) = 0,

											 False, True),

											 ?(Format(Number(FontCell.Underline),"NG=0") = "-4142",

											 False, True),

											 ?(FontCell.Strikethrough, // Зачеркнутый шрифт

											 True, False)

											);

					

					SlcCell.Text = CurrentCell.Value;

					

					// Рамка

					Try

						SlcCell.LeftBorder 		= mStyleBorder(CurrentCell, 7);

						SlcCell.TopBorder 		= mStyleBorder(CurrentCell, 8);

						SlcCell.RightBorder 	= mStyleBorder(CurrentCell, 10);

						SlcCell.BottomBorder 	= mStyleBorder(CurrentCell, 9);

					Except

					EndTry;

					

					SlcCell.Details = CurrentCell.Formula;

					

					// Объединение ячеек

					If (CurrentCell.MergeCells <> 0) and

					   (Find(CurrentCell.MergeArea.Rows.Address(,, 2),

					    CurrentCell.Address(,, 2)) = 1) Then

						

						SlcCell = SprDoc.Area(

						                       CurrentString,

						                       CurrentColumn,

											   (CurrentString + CurrentCell.MergeArea.Rows.Count - 1),

											   (CurrentColumn + CurrentCell.MergeArea.Columns.Count - 1)

											  );

						SlcCell.Merge();

						

					EndIf;

						

				Except

					

					Message(ErrorDescription());

					

				EndTry;	

								

			EndDo;

			

			frmProgressBar.Controls.ProgressBarCur.Value = frmProgressBar.Controls.ProgressBarCur.Value + 1; 

			UserInterruptProcessing(); // Прерывание пользователя Ctrl+Break



		EndDo;

		

		SprDoc.Show("" + TrimAll(FileName) + ", лист " + NumberSheet,"");

		

	EndDo;	

	

	frmProgressBar.Close();

		

	ExcelApplication = "";

	

EndProcedure // ButtonExecuteClick()

   

 Процедура ОткрытьТабличныйДокументВExcel(ТабДокумент,ИмяФайла) Экспорт

   ИмяФайла = Строка(ИмяФайла) + ".xls";

   Каталог = КаталогВременныхФайлов();

   ПолныйПутьКФайлу = Каталог + ИмяФайла;    

   Попытка

       ТабДокумент.Записать(ПолныйПутьКФайлу,ТипФайлаТабличногоДокумента.XLS);

       Сообщить("Записан новый файл " + ПолныйПутьКФайлу);

       ЗапуститьПриложение(ПолныйПутьКФайлу);

   Исключение

       СообщитьОбОшибке(ОписаниеОшибки());

   КонецПопытки;    

КонецПроцедуры   

 Процедура ОсновныеДействияФормыЭкспорт(Кнопка)

  Попытка

    Попытка



      // Загрузка объекта 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С в Excel " + СтрокаЛиста);

    КонецЦикла;



    // Сохраним созданную книгу в файл xls

    Книга.SaveAs(имяФайла);



    // Обязательно закроем соединение с COM объектом для освобождения памяти

    ExcelПриложение.Quit();



    Сообщить("Файл выгружен успешно: " + имяФайла );



  Исключение

    // Обработка ошибок экспорта данных из 1С в Excel

    Сообщить("Ошибка записи данных файла :" + имяФайла);

    Сообщить(ОписаниеОшибки());

    Попытка

      ExcelПриложение.Quit();

    Исключение

    КонецПопытки;

  КонецПопытки;

КонецПроцедуры   

 Процедура ЧтениеXLSФайла(Элемент)



  Если ПустаяСтрока(ИмяФайла) Тогда

    Предупреждение("Для запуска обработки необходимо предварительно выбрать файл Microsoft Excel.");

    Возврат;

  КонецЕсли;



  Попытка

    // Загрузка Microsoft Excel

    Состояние("Загрузка Microsoft Excel...");

    ExcelПриложение = Новый COMОбъект("Excel.Application");

  Исключение

    Сообщить("Ошибка при загрузке Microsoft Excel." + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);

    Возврат;

  КонецПопытки;



  Попытка

    // Открытие файла Microsoft Excel

    Состояние("Открытие файла Microsoft Excel...");

    ExcelФайл = ExcelПриложение.WorkBooks.Open(ИмяФайла);

  Исключение

    Сообщить("Ошибка открытия файла Microsoft Excel." + ИмяФайла + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);

  КонецПопытки;



  Попытка

    // Обработка файла Microsoft Excel

    Состояние("Обработка файла Microsoft Excel...");

    // Читаем данные первого листа книги

    ExcelЛист = ExcelФайл.Sheets(1);



    // Определить количество строк и колонок выбранного листа книги Excel

    xlCellTypeLastCell = 11;

    ExcelПоследняяСтрока = ExcelЛист.Cells.SpecialCells(xlCellTypeLastCell).Row;

    ExcelПоследняяКолонка = ExcelЛист.Cells.SpecialCells(xlCellTypeLastCell).Column;

  Исключение

    Сообщить("Ошибка открытия листа №1 Microsoft Excel." + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);

    // Закрыть COM соединение для экономии памяти

    ExcelПриложение.Quit();

  КонецПопытки;



  // Создание описателя типов для таблицы значений

  КЧ = Новый КвалификаторыЧисла(15,2);

  КС = Новый КвалификаторыСтроки(50);

  Массив = Новый Массив;

  Массив.Добавить(Тип("Строка"));

  ОписаниеТиповС = Новый ОписаниеТипов(Массив, , КС);

  Массив.Очистить();

  Массив.Добавить(Тип("Число"));

  ОписаниеТиповЧ = Новый ОписаниеТипов(Массив, , ,КЧ);



  // Очистить предыдущие значения

  ТаблицаДокумента.Очистить();

  ТаблицаДокумента.Колонки.Очистить();



  // Создать колонки табличного документа

  ТаблицаДокумента.Колонки.Добавить("Номер",ОписаниеТиповС,"Номер",5);

  ТаблицаДокумента.Колонки.Добавить("Артикул",ОписаниеТиповС,"Артикул",11);

  ТаблицаДокумента.Колонки.Добавить("Описание",ОписаниеТиповС,"Описание",25);

  ТаблицаДокумента.Колонки.Добавить("Цена",ОписаниеТиповЧ,"Цена",6);



  // Последовательное чтение строк с выбранного листа

  Для Строка = 1 По ExcelПоследняяСтрока Цикл



    // Обработка нажатия Ctrl + Break

    ОбработкаПрерыванияПользователя();



    // Добавить данные в табличную часть экранной формы

    Стр=ТаблицаДокумента.Добавить();

    Стр.Номер = Строка;

    Попытка

      Стр.Артикул = ExcelЛист.Cells(Строка, 1).Value;

      Стр.Описание = ExcelЛист.Cells(Строка, 2).Value;

      Стр.Цена = ExcelЛист.Cells(Строка, 3).Value;

    Исключение

      // Не редко происходит ошибка конвертации отдельной ячейки документа

      Сообщить("Ошибка чтения строки файла Microsoft Excel." + Строка + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);

    КонецПопытки;

    // Отобразить информацию о ходе выполнения обработки

    Состояние("Обработка файла Microsoft Excel : "

      + "строка " + Строка + " из " + ExcelПоследняяСтрока);



  КонецЦикла;



  // Закрыть COM соединение для экономии памяти

  ExcelПриложение.Quit();



  // Отобразить результаты загрузки в форме элемента

  ЭлементыФормы.ТаблицаДокумента.Значение = ТаблицаДокумента;

  ЭлементыФормы.ТаблицаДокумента.СоздатьКолонки();



КонецПроцедуры // ЧтениеXLSФайла(Элемент)