kornet46rus
16.10.2015, 21:28
Короче пытаюсь сделать одну хреновину... Сразу напишу, чтоб не было, мол вот лошара, нубокодер и т.п., я только учусь и хочу научиться.
В общем суть задания сделать внешнюю обработку, которая загружает экселевский файл в табличную часть. Для того, чтобы проверить читает ли вообще эксель, нашел свойство, которое якобы, по описанию загоняет данные в массив. Но нефига не работает. Может поможет кто разобраться. Чисто для себя. Научиться с этим работать
роцедура ПутьНачалоВыбора(Элемент, СтандартнаяОбработка)
Диалог = Новый ДиалогВыбораФайла(РежимДи� �логаВыбораФайла.Открытие);
Диалог.Заголовок = "Выберите каталог";
Если Диалог.Выбрать() Тогда
ЭлементыФормы.Путь.Значени е = Диалог.ПолноеИмяФайла;
КонецЕсли;
КонецПроцедуры
Процедура ЗагрузитьНажатие(Элемент)
ТабличныйДокумент.Очистит� �();
//ТабличныйДокумент.Колонки. Очистить();
ЭлементыФормы.ТабличныйДо� �умент.Колонки.Очистить();
Попытка
ПодключениеЭксель = Новый COMОбъект("Excel.Application");
ПодключениеЭксель.WorkBooks.Open( Путь.Значение);
Книга = ПодключениеЭксель.WorkSheets(1);
//пытаюсь загнать в массив, чтоб проверить чтение файла
Массив = Книга.UsedRange.Value;
Состояние("Обработка данных Exel.....");
Исключение
Сообщение = Новый СообщениеПользователю();
Сообщение.Текст = "Ошибка загрузки!";
Сообщение.Текст = ОписаниеОшибки();
Сообщение.Сообщить();
КонецПопытки;
КонецПроцедуры
В общем суть задания сделать внешнюю обработку, которая загружает экселевский файл в табличную часть. Для того, чтобы проверить читает ли вообще эксель, нашел свойство, которое якобы, по описанию загоняет данные в массив. Но нефига не работает. Может поможет кто разобраться. Чисто для себя. Научиться с этим работать
роцедура ПутьНачалоВыбора(Элемент, СтандартнаяОбработка)
Диалог = Новый ДиалогВыбораФайла(РежимДи� �логаВыбораФайла.Открытие);
Диалог.Заголовок = "Выберите каталог";
Если Диалог.Выбрать() Тогда
ЭлементыФормы.Путь.Значени е = Диалог.ПолноеИмяФайла;
КонецЕсли;
КонецПроцедуры
Процедура ЗагрузитьНажатие(Элемент)
ТабличныйДокумент.Очистит� �();
//ТабличныйДокумент.Колонки. Очистить();
ЭлементыФормы.ТабличныйДо� �умент.Колонки.Очистить();
Попытка
ПодключениеЭксель = Новый COMОбъект("Excel.Application");
ПодключениеЭксель.WorkBooks.Open( Путь.Значение);
Книга = ПодключениеЭксель.WorkSheets(1);
//пытаюсь загнать в массив, чтоб проверить чтение файла
Массив = Книга.UsedRange.Value;
Состояние("Обработка данных Exel.....");
Исключение
Сообщение = Новый СообщениеПользователю();
Сообщение.Текст = "Ошибка загрузки!";
Сообщение.Текст = ОписаниеОшибки();
Сообщение.Сообщить();
КонецПопытки;
КонецПроцедуры