Добрый день. Читаю файл *.xls при помощи процедуры:

       //OpenOffice Calc//////////////////////////////////////////////////////////////////////////////////////////////
       Попытка
                ServiceManager = Новый COMОбъект("com.sun.star.ServiceManager");
       Исключение
                Предупреждение(ОписаниеОшибки() + Символы.ПС + "программа OpenOffice\LibreOffice не установлена на данном компьютере!");
       Возврат Неопределено;
       КонецПопытки;
       Desktop = ServiceManager.createInstance("com.sun.star.frame.Desktop");
       Свойства = ServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue");
       Свойства.Name = "AsTemplate";
       Свойства.Value = Истина;
       Args = Новый COMSafeArray("VT_VARIANT", 2);
       Args.SetValue(0, Свойства);
       Свойства1 = ServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue");
       Свойства1.Name = "Hidden";
       Свойства1.Value = Истина;
       Args.SetValue(1,Свойства1);
       Document = Desktop.LoadComponentFromURL(ПривестиФайлКУРЛ(ПутьКФайлу), "_blank", 0, Args);
       Sheets = Document.getSheets();
       Sheet = Sheets.getByIndex(текЛист-1);
       локТабЗнач = Новый ТаблицаЗначений;
       begCol = 0;
       begRow = 0;
       endCol = Sheet.Data.GetLength(6) - 1;
       endRow = Sheet.Data.GetLength() - 1;
       нКол = 0;
       локТабЗнач.Колонки.Очистить();

       КС = Новый КвалификаторыСтроки(50);
       Массив = Новый Массив;
       Массив.Добавить(Тип("Строка"));

       ОписаниеТиповСтрока = Новый ОписаниеТипов(Массив, , КС);

       Пока нКол <= endCol Цикл
            ИмяКол = "К"+Строка(нкол+1);
            локТабЗнач.Колонки.Добавить(ИмяКол,ОписаниеТиповСтрока);
            нКол = нКол + 1;
       КонецЦикла;
       Range = Sheet.getCellRangeByPosition(begCol, begRow, endCol, endRow);
       МассивКом = Новый COMSafeArray("VT_VARIANT", Range.Columns.Count, Range.Rows.Count);
       МассивКом = Range.getDataArray();
       тмпПростойМассив = МассивКом.Выгрузить();
       Для каждого массив из тмпПростойМассив Цикл
             ит = 0;
             НовСтрока = локТабЗНач.Добавить();
             Для каждого ЭлементМассива из массив цикл
                   НовСтрока[ит] = ЭлементМассива;
                   ит = ит + 1;
             КонецЦикла;
       КонецЦикла;
       Возврат локТабЗнач;
Всё считывает. Но есть некоторые ячейки, которые в 1 столбике имеют "100 грн." или "100 евро." Например. как изменить обработку так, что бы можно было считывать формат каждой ячейки и получать цену с "грн"/"евро" в итоге, так как чейчас считывается только 100.
Сразу скажу. Вынужденно считываю файл именно так, так как сисадмин не хочет категорически устанавливать Эксель.
Спасибо.

Еще можно попробовать упороться и прочитать Excel как xml.
В УХ есть обработка которая так делает

http://catalog.mista.ru/public/225624/ как пример

Можете дать ссылку? Такая обработка считает формат ячейки?

У меня в файле даты в формате Денежный. Эта обработка такой тип данных считает как число.

Упс, цены в денежном формате.

Допилку ннапильником никто не отменял.
точки входа есть, идея есть, дальше - самостоятельно.

Спасибо. На том сайте я уже была. Обработку на почту так и не прислали ((((

http://catalog.mista.ru/public/300092/ Вот еще идея.
А зачем обработка? там весь код в статье, просто копируешь в свою, добавляешь реквизит при необходимости и все

Весь код из статьи в модуль формы обработки, 1 реквизит и 1 кнопку уж сообразить как добавить - не думаю что сверх задача

А даже реквизитов не надо, надо только процедуру ПриОткрытии связать с событием формы

Спасибо. Туплю. Просто сижу разбиаю код, но как определить денежный формат ячейки ну хоть убей не пойму((( Как строку?

Начни с малого.
Сделай 3 ячейки с разными форматами.
Там есть определение формата ячейки и номер ее.
И посмотри что в каком случае.

Ок. Как вариант. Просто сейчас вся разработка ведётся локально на компе, а потом уже будем переносить на сервер для всех. Вот сижу - разбираю код.
Спасибо

(13) Тем и хорош метод чтения через платформенные механизмы XML или DOM - Ты не зависишь от окружения.

А вот с отлаженной дома обработкой через COM - на работе может быть сюрприз)

НЕ заметила. Этот метод работает для файлов *.xlsx, а у меня *.xls. Поэтому перешла по ссылке на http://catalog.mista.ru/public/120961/. Тут программного кода нет, только скачать обработку можно.

(16) с xls - будут проблемы.

подключение по ADO ипортирует данные, но ничего не знает о формате...

http://catalog.mista.ru/public/163642/ тут можно вроде словить денежный формат. Через либереофис.

Глупый вопрос, а есть гарантии, что админ захочет поставить Libre?

У нас у всех он уже стоит))))

Админ принципиально его всем ставит. Ну не любит от Эксель. Сказал - выкручивайся сама как хочешь ((((

Ну и конвертани libre xls в xlsx
(22) Скорее лицензий нет и денег на них тоже, а подставлятся он не хочет

Конвертировать всё время нет возможности. Прайс делают в другом месте и тянут автоматом. Так что с файлом исх ничего сделать не получается. Он вообще линукс обожает. Всё остальное для него - кошмар(((( Майкрософт тихо ненавидит. Ладно, спасибо. Часть кода у меня уже есть. Идеи как поймать формат тоже - буду пробовать разобраться с тем что с вашей помощью нашла. Спасибо, что хоть направление указали.