Это старая версия документа!

Чтение Excel в Таблицу значений (через подключение к COM-Excel

&НаКлиенте
Процедура ОткрытьФайл(Команда)
		
	ОчиститьСообщения();
	
	СтандартнаяОбработка	=	Ложь;
	
	ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
	ДиалогОткрытияФайла.ПолноеИмяФайла		= "";
	ДиалогОткрытияФайла.МножественныйВыбор	= Ложь;
	ДиалогОткрытияФайла.Заголовок			= НСтр("ru = 'Выберите файл'; uk = 'Виберіть файл'");
	ДиалогОткрытияФайла.Фильтр				= "Файлы MS Excel|*.xls;*.xlsx";
	ДиалогОткрытияФайла.Показать(Новый ОписаниеОповещения("ПоказатьДиалогВыбораФайлаЗавершение", ЭтотОбъект, Новый Структура("ДиалогОткрытияФайла", ДиалогОткрытияФайла)));
	
КонецПроцедуры

&НаКлиенте
Процедура ПоказатьДиалогВыбораФайлаЗавершение(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт
	
	Если (ВыбранныеФайлы <> Неопределено) Тогда
		ИмяФайла = ВыбранныеФайлы[0];
	Иначе 
		Возврат;
	КонецЕсли;
	
	Excel = ПодключитьсяКЭкселю();
	Если Excel = Неопределено Тогда 
		Возврат; 
	КонецЕсли;	
	
	Книга = Excel.WorkBooks.Open(ИмяФайла);
	Лист = Книга.WorkSheets(1);
	
	ВсегоКолонок 	= Лист.Cells(1,1).SpecialCells(11).Column;
	ВсегоСтрок 		= Лист.Cells(1,1).SpecialCells(11).Row;	
	
		
	ТабЗначений.Очистить();
	
	для Строка = excel_СтрокаНачала по ВсегоСтрок цикл
		
		новстрока					=	ТабЗначений.Добавить();
		
		новстрока.НомерПП       	=	Формат(Лист.Cells(Строка, 1).Value, "ЧГ=");
			
	КонецЦикла;
	
	ОтключитьсяОтЭкселя(Excel, ИмяФайла);
			

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

&НаКлиенте
Функция ПодключитьсяКЭкселю()
	
	Excel	=	Неопределено;
	Попытка
		Excel = Новый COMОбъект("Excel.Application");
	Исключение
		Сообщить("Ошибка при открытии файла с помощью Excel! Возможно не устанволен Эксель на этом ПК");
		Сообщить(ОписаниеОшибки());
		
		Excel.DisplayAlerts = 0; 
		Excel.ActiveWorkbook.Close();
		Excel.DisplayAlerts = 1;
		Excel.Application.Quit();
		Excel = Неопределено;
		Возврат Excel;
	КонецПопытки;
	
	Возврат Excel;
	
КонецФункции

&НаКлиенте
Процедура ОтключитьсяОтЭкселя(Excel,ИмяФайла)
	
	Если Excel <> Неопределено Тогда 

		
		Excel.DisplayAlerts = 0; 
		Excel.ActiveWorkbook.Close();
		Excel.DisplayAlerts = 1;
		Excel.Application.Quit();
		Excel = Неопределено;
		
		
	КонецЕсли;
	
КонецПроцедуры