|
0
below10
15.05.07
✎
15:40
|
При загрузке в 1С из XLS я использую TOpenOffice.Bridge вот текст:
Попытка
ТаблицаЦен.Очистить();
OO= новый COMОбъект("TOpenOffice.Bridge");
OO.Open(ИмяФайла);
й = 2;
Значение= OO.Worksheets(1).Cells(й,1).Value;
Пока Значение <> "" Цикл
Товар= Справочники.Номенклатура.НайтиПоКоду(Формат(Значение,"ЧГ=0"));
ЦенаЗП= OO.Worksheets(1).Cells(й,3).Value; ЦенаП= OO.Worksheets(1).Cells(й,4).Value; ЦенаР= OO.Worksheets(1).Cells(й,5).Value;
Если НЕ Товар.Пустая() Тогда
НоваяСтрока = ТаблицаЦен.Добавить();
НоваяСтрока.Номенклатура = Товар.Ссылка;
ПриИзмененииНоменклатуры(НоваяСтрока); НоваяСтрока.Цена0= Число(СтрЗаменить(ЦенаЗП,"р.",""));
НоваяСтрока.Валюта0= ВыбВалюта;
НоваяСтрока.Цена1= Число(СтрЗаменить(ЦенаП,"р.",""));
НоваяСтрока.Валюта1= ВыбВалюта;
НоваяСтрока.Цена2= Число(СтрЗаменить(ЦенаР,"р.",""));
НоваяСтрока.Валюта2= ВыбВалюта;
Иначе
Сообщить("НЕ НАЙДЕНА НОМЕНКЛАТУРА ПО КОДУ " + Значение);
КонецЕсли;
й = й + 1;
Значение= OO.Worksheets(1).Cells(й,1).Value;
КонецЦикла;
OO.Close();
OO=0;
Исключение
Сообщить("ОШИБКА ЧТЕНИЯ В EXCEL-ФАЙЛА:"+ОписаниеОшибки());
КонецПопытки;
Все работает,но открывается сама компонента TOpenOffice.Bridge и файл XLS...
Можно ли как-нибудь этого избежать?
|
|
