Попытка

	Эксель 	= Неопределено;

	Книга 	= Неопределено;

	Лист 	= Неопределено;

	

	Состояние("Выполняется подключение к Excel");

	Попытка

		Книга 	= ПолучитьCOMОбъект(Файл, "Excel.Application");

		Эксель	= Книга.Application;

	Исключение

		Эксель	= Новый COMОбъект("Excel.Application");

		Книга 	= Эксель.WorkBooks.Open(Файл);

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

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

	Эксель.Visible	= Истина;

	

Исключение

	Сообщить("Не удалось подключить Excel." + Символы.ПС + ОписаниеОшибки());

	Возврат;

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

   

 Функция ПрочитатьЛистExcel(ТЗ = Неопределено, ЛистЭксель = Неопределено, НомерПервойСтроки = 1, НомерПервойКолонки = 1, ВсегоСтрок = 0, ВсегоКолонок = 0) Экспорт



Если ЛистЭксель = Неопределено Тогда

    ЛистЭксель = ПолучитьCOMОбъект(,"Excel.Application");

КонецЕсли;

Если ВсегоСтрок = 0 Тогда

    ВсегоСтрок = ЛистЭксель.Cells.SpecialCells(11).Row;

КонецЕсли;

Если ВсегоКолонок = 0 Тогда

    ВсегоКолонок = ЛистЭксель.Cells.SpecialCells(11).Column;

КонецЕсли;

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

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

    Для Счетчик = 1 По ВсегоКолонок Цикл

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

    КонецЦикла;

КонецЕсли;

Для Счетчик = НомерПервойСтроки По ВсегоСтрок Цикл

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

КонецЦикла;



Область = ЛистЭксель.Range(ЛистЭксель.Cells(НомерПервойСтроки,НомерПервойКолонки), ЛистЭксель.Cells(ВсегоСтрок,ВсегоКолонок));

Данные = Область.Value.Выгрузить();



Для Счетчик = 0 По ВсегоКолонок-1 Цикл

    ТЗ.ЗагрузитьКолонку(Данные[Счетчик], Счетчик);

КонецЦикла;

ЛистЭксель = Неопределено;

Возврат ТЗ;

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

 

Процедура ВыгрузкаВЭксель(Т) Экспорт

	Попытка

		XL = Новый COMОбъект ("Excel.Application");

	Исключение

		Сообщить("Ошибка создания Excel.Application");

		Возврат;

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

	XL.Visible = 1;

	wb = XL.Workbooks.Add();

	sh = wb.Worksheets.Add();

	Кол = Т.Колонки.Количество();

	Если Кол = 0 Тогда

		Возврат;

	КонецЕсли;             

	Для К = 1 По Кол Цикл

		Заг = Т.Колонки[К-1].Имя;

		sh.Cells(1,К).Font.Name = "Tahoma";

		sh.Cells(1,К).Font.Size = 10;

		sh.Cells(1,К).Font.FontStyle = "Bold";

		sh.Cells(1,К).FormulaR1C1 = Заг;

	КонецЦикла;

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

		Для К = 1 По Кол Цикл

			Зн = Стр[К-1];

			sh.Cells(Т.Индекс(Стр)+2, К).FormulaR1C1 = Строка(Зн);

		КонецЦикла;

	КонецЦикла;

	sh.Columns.AutoFit();	

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

 Попытка

 Эксель = СоздатьОбъект("Excel.Application");

Исключение

 Сообщить(ОписаниеОшибки() + " Программа Exсel не установлена на данном компьютере!");

 Возврат;

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

 Книга = Эксель.WorkBooks.Open(ПутьКФайлу);

//ПутьКФайлу - полный путь к файлу книги Excel.



//Выбор листа книги для работы с ним:

Лист = Книга.WorkSheets(НомерЛиста);

//или

Лист = Книга.WorkSheets(ИмяЛиста);

// где НомерЛиста - номер листа в книге, ИмяЛиста - имя листа в книге.



// Получение значения ячейки листа:

Значение = Лист.Cells(НомерСтроки, НомерКолонки).Value;

// где НомерСтроки, НомерКолонки - номер строки и номер колонки, на пересечении которых находится ячейка.

 Эксель.Quit(); 

 Попытка

 Эксель = СоздатьОбъект("Excel.Application");

Исключение

 Сообщить(ОписаниеОшибки() + " Программа Exсel не установлена на данном компьютере!");

 Возврат;

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



Книга = Эксель.WorkBooks.Add();

 Лист = Книга.WorkSheets(НомерЛиста);



// либо добавить в книгу новый лист, если необходимо:

Лист = Книга.Sheets.Add();

 Лист.Cells(НомерСтроки, НомерКолонки).Value = Значение;

// где НомерСтроки, НомерКолонки - номер строки и номер колонки, на пересечении которых находится ячейка.

 Попытка

 Книга.SaveAs(ПутьКФайлу);

Исключение

 Сообщить(ОписаниеОшибки()+" Файл не сохранен!");

 Возврат;

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

// где ПутьКФайлу - полный путь к файлу книги Excel (включая имя).

 //Создаем объект EXCEL

Эксель = СоздатьОбъект("Excel.Application"); 

Книга = Эксель.WorkBooks.Open(ФайлВыгрузки); 

Лист =Книга.Worksheets("Список сотрудников"); // Выбор листа

Книга.ActiveSheet.UnProtect();    //делаем шаблон незащищенным



// Заполняем лист

...................................

// Снимаем защиту с области ввода сумм



Для Перем = 1 По 10 Цикл

    // Прописываем, какие ячейки будут доступными  

    Книга.ActiveSheet.Cells(Перем, 2).Locked=0; 

КонецЦикла;



Книга.ActiveSheet.Protect();    // ставим защиту на лист

 // Данный код создает эксель, с одним листом и открывает в нем файл

	// далее тут же создается второй лист с нужным нам наименованием

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

	

Процедура КопируемЕксел()	

	ДокExcel = Новый COMОбъект("Excel.Application");

	

	// этот кусок отвечает за создание чистого листа

	//ДокExcel.Application.Workbooks.Application.Workbooks.Add(1);

	//ДокExcel.Application.Workbooks.Application.ActiveSheet.Application.Workbooks.Open("d:\temp\file.xls");

	

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

	ДокExcel.Application.Workbooks.Application.Workbooks.Open("d:\temp\file.xls");

	ДокExcel.Application.Workbooks.Application.ActiveSheet.Name = "Отчет Общий";

	

	// создаем второй лист с наименованием "Отчет Региональный"

	ДокExcel.Application.Workbooks.Application.ActiveWorkbook.Worksheets.Add();

	ДокExcel.ActiveWorkbook.Sheets.Application.ActiveSheet.Name = "Отчет Региональный";

	

	

	xlLastCell = 11;

	Попытка

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

		Excel.WorkBooks.Open("d:\temp\Региональный.xls");

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

		ExcelЛист = Excel.Sheets(1);

	Исключение

		Сообщить("Ошибка. Возможно неверно указан номер листа книги Excel.");

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



	ActiveCell = Excel.ActiveCell.SpecialCells(xlLastCell);

	RowCount = ActiveCell.Row; // количество строк 

	ColumnCount = ActiveCell.Column; // колиество колонок

	

	Для Column = 1 По ColumnCount Цикл

		// Выставляем ширину колонок

		ДокExcel.Columns(Column).ColumnWidth = ExcelЛист.Columns(Column).ColumnWidth;

	КонецЦикла;



	Для Row = 1 По RowCount Цикл

		Для Column = 1 По ColumnCount Цикл

			

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

			ДокExcel.Cells(Row,Column).Value = ExcelЛист.Cells(Row,Column).Value;

			

			// Устанавливаем шрифт

			ДокExcel.Cells(Row,Column).Font.Size = ExcelЛист.Cells(Row,Column).Font.Size;

			ДокExcel.Cells(Row,Column).Font.Bold = ExcelЛист.Cells(Row,Column).Font.Bold; 

			

			// объединяем ячейки

			ДокExcel.Range(ExcelЛист.Cells(Row,Column).MergeArea.Address).Select(); 

			ДокExcel.Selection.Merge(); 

			

			// обводим ячейки рамкой

			ДокExcel.Range(ExcelЛист.Cells(Row,Column).MergeArea.Address).Borders.LineStyle = ExcelЛист.Cells(Row,Column).MergeArea.Borders.LineStyle; // рисуем рамку для одной ячейки или даипазона ячеек

			ДокExcel.Range(ДокExcel.Cells(Row,Column), ДокExcel.Cells(Row,Column)).Borders.LineStyle = ExcelЛист.Cells(Row,Column).MergeArea.Borders.LineStyle; // рисуем рамку для одной ячейки или даипазона ячеек

			ДокExcel.Range(ДокExcel.Cells(Row,Column), ДокExcel.Cells(Row,Column)).WrapText = Истина; // автоматический перенос больших строк  

			ДокExcel.Range(ДокExcel.Cells(Row,Column), ДокExcel.Cells(Row,Column)).VerticalAlignment = -4108; // Выравнивание по вертикали по центру  //ExcelЛист.Cells(Row,Column).VerticalAlignment;

			ДокExcel.Range(ДокExcel.Cells(Row,Column), ДокExcel.Cells(Row,Column)).HorizontalAlignment = - 4108; // Выравнивание по горизонтали по центру

			

		КонецЦикла;

	КонецЦикла;

	

	Excel.WorkBooks.Close();

	Excel = 0;

	ДокExcel.Visible=1; //Делаем Ексель видимым

	

	// Дополнительные параметры

	//Exel.WorkBooks(1).WorkSheets(1).Cells(1,1).Interior.ColorIndex=1;    //1= белый  фон

	//Exel.WorkBooks(1).WorkSheets(1).Cells(1,1).Font.ColorIndex=2;   //2= черный цвет шрифта

	//Exel.WorkBooks(1).WorkSheets(1).Cells(1,1).Font.Name= "Courier";   // указывает какой шрифт

	//Exel.WorkBooks(1).WorkSheets(1).Cells(1,1).Font.Size=12;     //размер шрифта

	//Exel.WorkBooks(1).WorkSheets(1).Cells(1,1).Font.Bold=1; либо (0); //т.е. истина либо лож - ?(обычный, жирный)

	//Exel.WorkBooks(1).WorkSheets(1).Cells(1,1).InsertIndent(2); //устанавливаем отступ (в данном случае на 2 символа)

	//Exel.WorkBooks(1).WorkSheets(1).Cells(1,1).ColumnWidth= 10;   // ширина колонки

	//Exel.WorkBooks(1).WorkSheets(1).Cells(1,1).Borders(5).LineStyle = -4142;   //очищаем все границы

	//Exel.WorkBooks(1).WorkSheets(1).Cells(1,1).Borders(7).LineStyle=1;   //добавили левую границу (7 - левая, 8 - верхняя, 9 - нижняя, 10 - правая )

	//Exel.WorkBooks(1).WorkSheets(1).Cells(1,1).VerticalAlignment = -4160; //выравнивание по левому краю

	//Exel.WorkBooks(1).WorkSheets(1).Cells(1,1).WrapText=1 (истина)   //устанавливаем перенос слов

	

	//Всего 56 цветов:

	//1- белый

	//2-черный

	//3-красный

	//5-синий

	//6-желтый

	//7-лиловый

	//10-зеленый

	//33-голубой

	//39-сиреневый

	//46-оранжевый

	

	//адрес ячейки:

	//.Address

	

	//Прямоугольная область ячеек:

	//Exel.WorkBooks(1).WorkSheets(2).Range("a1:b2");

	//Exel.WorkBooks(1).WorkSheets(2).Range("a1:b2").Copy();

	//Exel.WorkBooks(1).WorkSheets(2).Range("a11:b12").Select();

	//Exel.WorkBooks(1).WorkSheets(2).Paste();



	

	//Про Диаграммы:



	//Два варианта: 1-й если Диаграмма будет распологаться непосредственно на листе с данными, 2-й на отдельном листе.

	

	//Если Диаграмма распологается на листе с данными:

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

	

	//Chart = Excel.WorkBooks(1).WorkSheets(2).ChartObjects.Add(,,,);

	

	//Если все же на отдельном листе, то добавим Sheets наш элемент: *(СОДЕРЖИТ ЛИСТЫ ВСЕХ ТИПОВ)*

		

	//Excel.WorkBooks(1).Sheets.Add(,,1,-4109);

	//где:Add(ПЕРВЫЙ,ВТОРОЙ,1,-4109);

	//ПЕРВЫЙ- номер листа, перед которым будет НАШ лист;

	//ВТОРОЙ-номер листа, после которого будет НАШ лист;

	//1- количество создоваемых листов;

	//-4109 - рабочий лист ( -4109 = с диаграммой, -4167 = лист с данными)



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