![]() |
![]() |
![]() |
|
Загрузка из open office в 1С | ☑ | ||
---|---|---|---|---|
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... Можно ли как-нибудь этого избежать? |
|||
1
ТелепатБот
гуру
15.05.07
✎
15:40
|
||||
2
ZyXEL
15.05.07
✎
15:41
|
у класса есть свойство Visible типа Boolean для XLS файла
|
|||
3
ZyXEL
15.05.07
✎
15:43
|
а вообще пиши напрямую общение с ОО. и сможешь сам всем управлять
|
|||
4
below10
15.05.07
✎
15:44
|
Что-то у меня не получается с Visible..может я делаю что не так?
|
|||
5
ZyXEL
15.05.07
✎
15:45
|
описание с сайта
Visible :Bool видимость основного окна приложения [$] [$] - функции-заглушки и объекты-затычки не реализованные в данной версии. Всегда возвращают пустую строку или 0 в зависимости от типа объекта. |
|||
6
below10
15.05.07
✎
15:49
|
Короче с Visible у меня ничего не выходит
|
|||
7
ZyXEL
15.05.07
✎
18:52
|
Кстати если закрывать ОО то и окна файла не увидишь..
|
|||
8
Ковычки
15.05.07
✎
20:51
|
а че ОО по оле некашерно ? нафих тебе левак разный...
|
|||
9
Ковычки
15.05.07
✎
20:52
|
а визибле скорее всего -1 либо через MSScriptControl
|
|||
10
ZyXEL
16.05.07
✎
09:40
|
(8) я думаю скорее не умеет чем некашерно..
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |