|
|
Всем привет.
Опять я к вам с проблемами(
Что имеем.. Имеем Ексель докумен в котором хранятся показания с измерительных приборов.
Процедура пвИмяФайлаНачалоВыбора(Элемент, СтандартнаяОбработка)
// Выбираем фаил
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
ДиалогОткрытияФайла.ПолноеИмяФайла = "";
Фильтр = "Excel(*.xlsx|*.xlsx";
ДиалогОткрытияФайла.Фильтр = Фильтр;
ДиалогОткрытияФайла.МножественныйВыбор = Ложь;
ДиалогОткрытияФайла.Заголовок = "Выберите Excel фаил для импорта";
Если ДиалогОткрытияФайла.Выбрать() Тогда
пвИмяФайла = ДиалогОткрытияФайла.ПолноеИмяФайла;
КонецЕсли;
КонецПроцедуры
Процедура ОсновныеДействияФормыЗагрузить(Кнопка)
Данные.Очистить();
// Чтение файла Excel.
Ексель = Новый COMОбъект("Excel.Application");
ЕксельКниги = Ексель.Workbooks;
ЗагружаемыйФаил = ЕксельКниги.Open(пвИмяФайла);
Лист = ЗагружаемыйФаил.Sheets(1);
//Заполнение табличного поля.
Для ИндексСтроки = 5 по 725 Цикл
Строка = Данные.Добавить();
Ячейка = Лист.Cells(ИндексСтроки, 1);
Строка["Дата"] = Ячейка.Value;
Ячейка = Лист.Cells(ИндексСтроки, 2);
Строка["ВременнойПериод"] = Ячейка.Value;
Ячейка = Лист.Cells(ИндексСтроки, 3);
Строка["Показания1"] = Ячейка.Value;
Ячейка = Лист.Cells(ИндексСтроки, 4);
Строка["Показания26"] = Ячейка.Value;
Ячейка = Лист.Cells(ИндексСтроки, 5);
Строка["Показания21"] = Ячейка.Value;
Ячейка = Лист.Cells(ИндексСтроки, 6);
Строка["Показания43"] = Ячейка.Value;
Ячейка = Лист.Cells(ИндексСтроки, 7);
Строка["Показания14"] = Ячейка.Value;
Ячейка = Лист.Cells(ИндексСтроки, 8);
Строка["ПоказанияБрикет"] = Ячейка.Value;
Ячейка = Лист.Cells(ИндексСтроки, 9);
Строка["ПоказанияРобот"] = Ячейка.Value;
КонецЦикла;
ЗагружаемыйФаил.Application.Quit();
КонецПроцедуры
Написал вот такой вот код, что он делает. Он читает фаил икселя и заполняет табличную часть.
Но мне надо эти данные из файла иксель перегнать в фаил формата xml, со следующей структурой входного файла.
http://s04.radikal.ru/i177/1201/b0/a0f62a9be34b.jpg
Подскажите кто знает как описать вс это именно в такую структуру? |
|
1С Управление производственным предприятием
