Процедура тестИмяФайла () Экспорт
	ИмяФайла = глОсновнойКаталог + "Файлы/MultipleSheets.xls";
	Конвертер = СоздатьОбъект ("КонвертерExcel");
	Книга = Конвертер.Открыть (ИмяФайла);
	ПроверитьРавенство (Книга.ИмяФайла, ИмяФайла);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестЛисты () Экспорт
	ИмяФайла = глОсновнойКаталог + "Файлы/MultipleSheets.xls";
	Конвертер = СоздатьОбъект ("КонвертерExcel");
	Книга = Конвертер.Открыть (ИмяФайла);
	Листы = Книга.Листы;
	ПроверитьРавенство (ТипЗначенияСтр (Листы), "КоллекцияЛистовЗагрузчикаExcel");
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестЗагрузитьЛист () Экспорт
	ИмяФайла = глОсновнойКаталог + "Файлы/MultipleSheets.xls";
	Конвертер = СоздатьОбъект ("КонвертерExcel");
	Книга = Конвертер.Открыть (ИмяФайла);
	
	Лист = Книга.ЗагрузитьЛист ("Раз");
	ПроверитьРавенство (ТипЗначенияСтр (Лист), "ТабличныйДокумент");
	ПроверитьРавенство (Лист.Область (1, 1).Текст, "Первый лист");
	
	Лист = Книга.ЗагрузитьЛист ("Два");
	ПроверитьРавенство (ТипЗначенияСтр (Лист), "ТабличныйДокумент");
	ПроверитьРавенство (Лист.Область (1, 1).Текст, "Второй лист");
	
	Лист = Книга.ЗагрузитьЛист ("Три");
	ПроверитьРавенство (ТипЗначенияСтр (Лист), "ТабличныйДокумент");
	ПроверитьРавенство (Лист.Область (1, 1).Текст, "Третий лист");
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестПараметры () Экспорт
	ИмяФайла = глОсновнойКаталог + "Файлы/MultipleSheets.xls";
	Конвертер = СоздатьОбъект ("КонвертерExcel");
	Книга = Конвертер.Открыть (ИмяФайла);
	Параметры = Книга.Параметры;
	ПроверитьРавенство (ТипЗначенияСтр (Параметры), "ПараметрыКнигиExcel");
	
	ВсеВПорядке = 0;
	Попытка
		Книга.Параметры = 0;
	Исключение
		ВсеВПорядке = 1;
	КонецПопытки;
	
	Проверить (ВсеВПорядке);
КонецПроцедуры
