Чтение/Запись документа Excel 2007 без офиса, без внешних компонент. (с примером для 7.7, 8.1 и 8.2 на управляемых формах)

Функция Excel2007СписокЛистов(ВременныйКаталог);
	Листы = НайтиФайлы(ВременныйКаталог + "\xl\worksheets\", "sheet*.xml");
	Возврат Листы.Количество();
КонецФункции	

//создаем колонки
Колонки = ДеревоДанных.Строки.Найти("cols", "Объект", Истина);
сч = 0;	
Для Каждого Стр Из Колонки.Строки Цикл
 Если Стр.Объект <> "col" Тогда
 Продолжить;
 КонецЕсли;
		
 Лист.Колонки.Добавить(МассивБукв[сч]);
 сч = сч + 1;
 КонецЦикла;

//создаем колонки
Колонки = ДеревоДанных.Строки.Найти("dimension", "Объект", Истина);
Счетчик = 0;	
Для Каждого Стр Из Колонки.Строки Цикл
 Если Стр.Объект = "ref" Тогда
 Диапозон = Стр.Значение; 
 //поиск максимального значения колонки
 Счетчик=МассивБукв.Количество();
 Пока Счетчик>0 Цикл 
 Счетчик = Счетчик - 1;
 Если Найти(Диапозон, МассивБукв[Счетчик])>0 Тогда
 Для Индекс=0 По Счетчик Цикл					
 Лист.Колонки.Добавить(МассивБукв[Индекс]);
 КонецЦикла;	
 Счетчик = 0;
 КонецЕсли;	
 КонецЦикла;
 Прервать;
 КонецЕсли;
КонецЦикла;

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

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

 //поиск колонки
 СтрЗначение = Колонка.Строки.Найти("r", "Объект");
 Если СтрЗначение <> Неопределено Тогда
 ИмяКолонки = СтрЗначение.Значение;
 КонецЕсли;
 ИндексСтроки = Неопределено;
 Счетчик = МассивБукв.Количество();
 Пока Счетчик>0 Цикл 
 Счетчик = Счетчик - 1;
 Если Найти(ИмяКолонки, МассивБукв[Счетчик])>0 Тогда
 ИндексСтроки = Счетчик;
 Счетчик = 0;
 КонецЕсли;	
 КонецЦикла;
.........................

Функция ПолучитьЛистEXCEL_XML(ИмяФайлаExcel, НомерЛиста=1) Экспорт
	
	ИмяФайла = СокрЛП(ИмяФайлаExcel);
	Если Прав(НРег(ИмяФайла),4)<>".xlsx" Тогда 
		//ошибка
	КонецЕсли;
	
	пФайл = Новый Файл(ИмяФайла);
	Если Не пФайл.Существует() Тогда
		//ошибка
	КонецЕсли;
	
	СписокСтрок = Новый СписокЗначений;
	
	ВременныйКаталог = КаталогВременныхФайлов() + "NightReg";
	УдалитьФайлы(ВременныйКаталог);
	
	Зип = Новый ЧтениеZipФайла;
	Зип.Открыть(ИмяФайла);
	Зип.ИзвлечьВсе(ВременныйКаталог, РежимВосстановленияПутейФайловZIP.Восстанавливать);
	
	ФайлСтрок = ВременныйКаталог + "\xl\sharedStrings.xml";
	
	хмл = Новый ЧтениеXML;
	хмл.ОткрытьФайл(ФайлСтрок);
	
	Пока хмл.Прочитать() Цикл
		Если хмл.ТипУзла = ТипУзлаXML.Текст Тогда
			СписокСтрок.Добавить(хмл.Значение);
		КонецЕсли;
	КонецЦикла;
	
	хмл.Закрыть();
	
	ФайлЛиста = ВременныйКаталог + "\xl\worksheets\sheet"+НомерЛиста+".xml";
	Файл = Новый Файл(ФайлЛиста);
	Если НЕ Файл.Существует() Тогда
		//ошибка
	КонецЕсли;
	
	МассивБукв = Новый Массив;
	МассивБукв.Добавить("A");
	МассивБукв.Добавить("B");
	МассивБукв.Добавить("C");
	МассивБукв.Добавить("D");
	МассивБукв.Добавить("E");
	МассивБукв.Добавить("F");
	МассивБукв.Добавить("G");
	МассивБукв.Добавить("H");
	МассивБукв.Добавить("I");
	МассивБукв.Добавить("J");
	МассивБукв.Добавить("K");
	МассивБукв.Добавить("L");
	МассивБукв.Добавить("M");
	МассивБукв.Добавить("N");
	МассивБукв.Добавить("O");
	МассивБукв.Добавить("P");
	МассивБукв.Добавить("Q");
	МассивБукв.Добавить("R");
	МассивБукв.Добавить("S");
	МассивБукв.Добавить("T");
	МассивБукв.Добавить("U");
	МассивБукв.Добавить("V");
	МассивБукв.Добавить("W");
	МассивБукв.Добавить("X");
	МассивБукв.Добавить("Y");
	МассивБукв.Добавить("Z"); 
	//здесь можно расширить двухбуквенными значениями
	
	ДеревоДанных = Новый ДеревоЗначений;
	ДеревоДанных.Колонки.Добавить("Объект");
	ДеревоДанных.Колонки.Добавить("Значение");
	
	ЧтениеXML = Новый ЧтениеXML;
	ЧтениеXML.ОткрытьФайл(Файл);
	
	ТекЭлемент = Неопределено;
	ТекБаза = Неопределено;
	
	Пока ЧтениеXML.Прочитать() Цикл
		Если ЧтениеXML.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
			РежимЗагрузки = ЧтениеXML.Имя;
			
			Если ТекЭлемент = Неопределено Тогда
				ТекЭлемент = ДеревоДанных.Строки.Добавить();
				ТекЭлемент.Объект = РежимЗагрузки;
			Иначе
				ТекЭлемент = ТекЭлемент.Строки.Добавить();
				ТекЭлемент.Объект = РежимЗагрузки;					
			КонецЕсли;
			
		ИначеЕсли ЧтениеXML.ТипУзла = ТипУзлаXML.КонецЭлемента Тогда
			Если ТекЭлемент = Неопределено Тогда
				ТекЭлемент = Неопределено;
			Иначе
				ТекЭлемент = ТекЭлемент.Родитель;
			КонецЕсли;
		ИначеЕсли ЧтениеXML.ТипУзла = ТипУзлаXML.Текст Тогда
			ТекЭлемент.Значение = ЧтениеXML.Значение;
		КонецЕсли;
		
		Для сч = 0 По ЧтениеXML.КоличествоАтрибутов() - 1 Цикл
			Стр = ТекЭлемент.Строки.Добавить();
			Стр.Объект = ЧтениеXML.ИмяАтрибута(сч);
			Стр.Значение = ЧтениеXML.ЗначениеАтрибута(сч);
		КонецЦикла;
	КонецЦикла;
	
	ЧтениеXML.Закрыть();
	
	Лист = Новый ТаблицаЗначений;
	
	//создаем колонки
	Колонки = ДеревоДанных.Строки.Найти("dimension", "Объект", Истина);
	Счетчик = 0;	
	Для Каждого Стр Из Колонки.Строки Цикл
		Если Стр.Объект = "ref" Тогда
			Диапазон = Стр.Значение; 
			
			//поиск максимального значения колонки
			Счетчик=МассивБукв.Количество();
			Пока Счетчик>0 Цикл 
				Счетчик = Счетчик - 1;
				Если Найти(Диапазон, МассивБукв[Счетчик])>0 Тогда
					Для Индекс=0 По Счетчик Цикл					
						Лист.Колонки.Добавить(МассивБукв[Индекс]);
					КонецЦикла;	
					Счетчик = 0;
				КонецЕсли;	
			КонецЦикла;
			
			Прервать;
		КонецЕсли;
	КонецЦикла;
	
	//читаем строки
	СтрСтрок = ДеревоДанных.Строки.Найти("sheetData", "Объект", Истина);
	Для Каждого Строка Из СтрСтрок.Строки Цикл
		НоваяСтрока = Лист.Добавить();
		
		Для Каждого Колонка Из Строка.Строки Цикл
			Если Колонка.Объект <> "c" Тогда
				Продолжить;
			КонецЕсли;
			
			//поиск колонки
			СтрЗначение = Колонка.Строки.Найти("r", "Объект");
			Если СтрЗначение <> Неопределено Тогда
				ИмяКолонки = СтрЗначение.Значение;
			КонецЕсли;
			ИндексСтроки = Неопределено;
			Счетчик = МассивБукв.Количество();
			Пока Счетчик>0 Цикл 
				Счетчик = Счетчик - 1;
				Если Найти(ИмяКолонки, МассивБукв[Счетчик])>0 Тогда
					ИндексСтроки = Счетчик;
					Счетчик = 0;
				КонецЕсли;	
			КонецЦикла;
			
			ЗначениеЯчейки = Неопределено;
			
			СтрЗначение = Колонка.Строки.Найти("v", "Объект");
			Если СтрЗначение <> Неопределено Тогда
				ЗначениеЯчейки = СтрЗначение.Значение;
			КонецЕсли;
			
			СтрЗначение = Колонка.Строки.Найти("t", "Объект");
			Если СтрЗначение <> Неопределено И СтрЗначение.Значение = "s" И ЗначениеЯчейки <> Неопределено Тогда
				ЗначениеЯчейки = СписокСтрок.Получить(Число(ЗначениеЯчейки)).Значение;
			КонецЕсли;
			
			НоваяСтрока[МассивБукв[ИндексСтроки]] = ЗначениеЯчейки;
		КонецЦикла;
	КонецЦикла;
	
	Возврат Лист;
КонецФункции

//*******************************************
Функция архив_ПросмотрРекурс(Архив,Путь="",Сп)
// Функция просматривает содержимое файла Template.zip
// по всем вложенным папкам,
// и заполняет список путями ко всем файлам и папкам



// Исправляем некорректную работу с путями в Windows7
Если Путь <> "" Тогда
Путь=СтрЗаменить(Путь, Архив,""); // Убираем в переменной путь то, что уже записано в переменной Архив (дублирование)
Если Сред(Путь,1,1)="\" Тогда
Путь=Сред(Путь,2); // Если первым символом в пути является разделитель \, то его тоже уберем
КонецЕсли;
КонецЕсли;


Скрипт=СоздатьОбъект("MSScriptControl.ScriptControl");
Скрипт.language="javascript";
Шел=СоздатьОбъект("shell.application");

//Сообщить(Архив+""+Путь);
//Сообщить("Архив: "+Архив);
//Сообщить("Путь: "+Путь);
//Сообщить("-----------------------------------------");




Папка=Шел.namespace(Архив+""+Путь);
Скрипт.AddObject("Папка",Папка);
Вложения=Скрипт.Eval("new Enumerator(Папка.Items())");
Пока Вложения.atEnd(0)=0 Цикл

// Таже беда под Win 7. Будем "резать" длиные пути, используя промежуточную переменную //ПутьДляДобавления
ПутьДляДобавления=СтрЗаменить(Вложения.item(0).path,Архив,"");
Если Сред(ПутьДляДобавления,1,1)="\" Тогда
ПутьДляДобавления=Сред(ПутьДляДобавления,2);
КонецЕсли;
//Сп.ДобавитьЗначение(Вложения.item(0).path);
Сп.ДобавитьЗначение(ПутьДляДобавления);

//Сообщить("Добавлено в список: "+ Строка(Вложения.item(0).path));
Если Вложения.item(0).IsFolder=-1 Тогда
архив_ПросмотрРекурс(Архив,Вложения.item(0).path,Сп);
КонецЕсли;
Вложения.moveNext(0);
КонецЦикла;
КонецФункции
//*******************************************

Функция экзель_ПрочитатьСписокСтрок(ПутьКФайлу)
	Строки = СоздатьОбъект("СписокЗначений");
	ТекСтрока="";
	xml_ОткрытьФайл(ПутьКФайлу);
	Пока xml_Прочитать()=1 Цикл
		//будем добавлять строку по тегу /s
		//все что внутри тега будем объеденять
		Если xml_ИмяТега = "</t>" Тогда
			ТекСтрока=ТекСтрока+" "+СокрЛП(xml_Текст);
		КонецЕсли;
		Если xml_ИмяТега = "</si>" Тогда
			Строки.ДобавитьЗначение(ТекСтрока);
			ТекСтрока="";
		КонецЕсли;
	КонецЦикла;
	
	Возврат Строки;
КонецФункции

Функция экзель_ОткрытьЛист(НомерЛиста)
	
	ФайлЛиста = экзель_ВременныйКаталог + "xl\worksheets\sheet" + НомерЛиста + ".xml";
	Если ФС.СуществуетФайл(ФайлЛиста) = 0 Тогда
		Возврат 0;
	КонецЕсли;
	//КонвертироватьФайл(ФайлЛиста);
	xml_ОткрытьФайл(ФайлЛиста);
	
	экзель_Лист = СоздатьОбъект("ТаблицаЗначений");
	
	номСтр = 0;
	номКолонка = 0;
	
	Пока xml_Прочитать()=1 Цикл
		//Сообщить(xml_ИмяТега);
		Если xml_ИмяТега = "<row>" Тогда
			номСтр = номСтр + 1;
			номКолонка = 0;
			экзель_Лист.НоваяСтрока();
		ИначеЕсли xml_ИмяТега = "<c>" Тогда
			//это вариант когда есть буква, но значение не записано. чтобы не было пропуска
			Если (лев(стр,5)="""<c r") и (Найти(стр,"/")<>0) Тогда
				номКолонка = номКолонка + 1;
				Если экзель_Лист.КоличествоКолонок() < номКолонка Тогда
					экзель_Лист.НоваяКолонка("К" + номКолонка);
				КонецЕсли;
				экзель_Лист.УстановитьЗначение(номСтр, "К" + номКолонка, "");
				текБуква=xml_СписокАтрибутов.Получить("r");
				текБуква=лев(текБуква,1);
				теккод=КодСимв(текБуква);
				предыдущийКод=теккод;
				Продолжить;
			конецесли;	
			
			//а это вариант когда буква пропущена
			//надо сравнивать какая была буква ячейки перед этим и какая сейчас.
			//буква должна быть в теге "r"
			текБуква=xml_СписокАтрибутов.Получить("r");
			текБуква=лев(текБуква,1);
			теккод=КодСимв(текБуква);
			если теккод=65 Тогда
				//буква А. сбрасываем на начало
				предыдущийКод=теккод;
			иначе
				//не буква А. прописываем пропущенные
				для сч=предыдущийКод+2 по теккод Цикл
					номКолонка = номКолонка + 1;
					Если экзель_Лист.КоличествоКолонок() < номКолонка Тогда
						экзель_Лист.НоваяКолонка("К" + номКолонка);
					КонецЕсли;
					экзель_Лист.УстановитьЗначение(номСтр, "К" + номКолонка, "");
				КонецЦикла;	
				предыдущийКод=теккод;
			КонецЕсли;	
			//Сообщить(текБуква);
			//текущаяБуква=
			ТипЯчейки = xml_ПолучитьАтрибут("t");
			xml_Прочитать();
			Если xml_ИмяТега <> "<v>" Тогда
				Продолжить;
			КонецЕсли;
			xml_Прочитать();
			
			ЗначениеЯчейки = СокрЛП(xml_Текст);
			Если ТипЯчейки = "s" Тогда
				ЗначениеЯчейки = экзель_СписокСтрок.ПолучитьЗначение(Число(ЗначениеЯчейки) + 1, ЗначениеЯчейки);
			КонецЕсли;
			
			номКолонка = номКолонка + 1;
			Если экзель_Лист.КоличествоКолонок() < номКолонка Тогда
				экзель_Лист.НоваяКолонка("К" + номКолонка);
			КонецЕсли;
			
			экзель_Лист.УстановитьЗначение(номСтр, "К" + номКолонка, ЗначениеЯчейки);
		КонецЕсли;
	КонецЦикла;
	хз="";
	экзель_Лист.ВыбратьСтроку(хз);
	Возврат 1;
КонецФункции

Функция экзель_ОткрытьЛист(НомерЛиста)
	
	ФайлЛиста = экзель_ВременныйКаталог + "xl\worksheets\sheet" + НомерЛиста + ".xml";
	Если ФС.СуществуетФайл(ФайлЛиста) = 0 Тогда
		Возврат 0;
	КонецЕсли;
	//КонвертироватьФайл(ФайлЛиста);
	xml_ОткрытьФайл(ФайлЛиста);
	
	экзель_Лист = СоздатьОбъект("ТаблицаЗначений");
	
	номСтр = 0;
	номКолонка = 0;
	//если пропущена колонка А, то будем прописывать с этой
	предыдущийКод=63;
	Пока xml_Прочитать()=1 Цикл
		//Сообщить(xml_ИмяТега);
		Если xml_ИмяТега = "<row>" Тогда
			номСтр = номСтр + 1;
			номКолонка = 0;
			экзель_Лист.НоваяСтрока();
		ИначеЕсли xml_ИмяТега = "<c>" Тогда
			//это вариант когда есть буква, но значение не записано. чтобы не было пропуска
			Если (лев(стр,5)="""<c r") и (Найти(стр,"/")<>0) Тогда
				номКолонка = номКолонка + 1;
				Если экзель_Лист.КоличествоКолонок() < номКолонка Тогда
					экзель_Лист.НоваяКолонка("К" + номКолонка);
				КонецЕсли;
				экзель_Лист.УстановитьЗначение(номСтр, "К" + номКолонка, "");
				текБуква=xml_СписокАтрибутов.Получить("r");
				текБуква=лев(текБуква,1);
				теккод=КодСимв(текБуква);
				предыдущийКод=теккод;
				Продолжить;
			конецесли;	
			
			//а это вариант когда буква пропущена
			//надо сравнивать какая была буква ячейки перед этим и какая сейчас.
			//буква должна быть в теге "r"
			текБуква=xml_СписокАтрибутов.Получить("r");
			текБуква=лев(текБуква,1);
			теккод=КодСимв(текБуква);
			если теккод=65 Тогда
				//буква А. сбрасываем на начало
				предыдущийКод=теккод;
			иначе
				//не буква А. прописываем пропущенные
				для сч=предыдущийКод+2 по теккод Цикл
					номКолонка = номКолонка + 1;
					Если экзель_Лист.КоличествоКолонок() < номКолонка Тогда
						экзель_Лист.НоваяКолонка("К" + номКолонка);
					КонецЕсли;
					экзель_Лист.УстановитьЗначение(номСтр, "К" + номКолонка, "");
				КонецЦикла;	
				предыдущийКод=теккод;
			КонецЕсли;	
			//хз=0;
			//экзель_Лист.ВыбратьСтроку(хз);
			//Сообщить(текБуква);
			//текущаяБуква=
			ТипЯчейки = xml_ПолучитьАтрибут("t");
			xml_Прочитать();
			Если xml_ИмяТега <> "<v>" Тогда
				Продолжить;
			КонецЕсли;
			xml_Прочитать();
			
			ЗначениеЯчейки = СокрЛП(xml_Текст);
			Если ТипЯчейки = "s" Тогда
				ЗначениеЯчейки = экзель_СписокСтрок.ПолучитьЗначение(Число(ЗначениеЯчейки) + 1, ЗначениеЯчейки);
			КонецЕсли;
			
			номКолонка = номКолонка + 1;
			Если экзель_Лист.КоличествоКолонок() < номКолонка Тогда
				экзель_Лист.НоваяКолонка("К" + номКолонка);
			КонецЕсли;
			
			экзель_Лист.УстановитьЗначение(номСтр, "К" + номКолонка, ЗначениеЯчейки);
		КонецЕсли;
	КонецЦикла;
	Возврат 1;
КонецФункции