чтение из Excel текста, состоящего из цифр

[somebody]

Hello All!

Читаем текстовые ячейки из Excel, используя COM, примерно так:

class ... extends SysExcelImport
...
COM cell;
COM cellsOnSheet;
...
currentWorkSheet = this.openWorkSheet(curSheetNo); // метод класса SysExcelImport
cellsOnSheet = currentWorkSheet.cells(); //Gets all cells on sheet
cell = new COM();
cell = COM::createFromVariant(cellsOnSheet.item(rowNo, colNo));

Проблема возникает, если текст в ячейке состоит полностью из цифр. Cell.value() и cell.value2() для таких значений возвращают тип COMVariantType::VT_R8, т. е. число с плавающей точкой, и .bstr() даёт пустую строку. А хотелось бы получить COMVariantType::VT_BSTR. Присваивание типа не проходит, т. е.

cv.variantType(COMVariantType::VT_BSTR);
cv = cell.value();

не помогает.

Могу, конечно, брать .double(), делать num2str, убирать разделители тысяч и '.00'. Но не уверен, что это универсальный метод. Возможно, я просто что-то не так делаю.
Кто-нибудь сталкивался с подобной проблемой? Как заставить читать именно текст?

[Petroff]

Цитата:

Изначально опубликовано somebody
Hello All!

...

Могу, конечно, брать .double(), делать num2str, убирать разделители тысяч и '.00'. Но не уверен, что это универсальный метод. Возможно, я просто что-то не так делаю.
Кто-нибудь сталкивался с подобной проблемой? Как заставить читать именно текст?

Я делаю именно так, как вы сказали:

...
if (this.cellValue(comWorkSheet, x, y).variantType() == COMVariantType::VT_R8)
filed1 = num2str(this.cellValue(comWorkSheet, x, y).double(), 1, 0, 1, 0);
else
field1 = this.cellValue(comWorkSheet, x, y).bstr();
...

Разумеется, метод не совсем универсальный, но работает без проблем.

[S.Kuskov]

Подниму тему.

Если значение ячейки состоит только из цифр, то почему-то после смены Excel'ем формата у ячейки с числового на текстовый, тип значения ячейки автоматически не преобразуется из COMVariantType::VT_R8 в COMVariantType::VT_BSTR.
Хотя визуально Excel начинает отображать это значение как текстовое: без дробной части и с выравниванием по левому краю! Правда без стандартного предупреждения в виде зелёненького уголочка "Число сохранено как текст". Если выполнить двойной щелчок по ячейке то такое предупреждение появится и тип значения сменится на COMVariantType::VT_BSTR.

При попытке программно прочитать такую ячейку возникает описанная ТС ситуация:

Цитата:

Сообщение от somebody

Проблема возникает, если текст в ячейке состоит полностью из цифр. Cell.value() и cell.value2() для таких значений возвращают тип COMVariantType::VT_R8, т. е. число с плавающей точкой, и .bstr() даёт пустую строку. А хотелось бы получить COMVariantType::VT_BSTR. Присваивание типа не проходит, т. е.

cv.variantType(COMVariantType::VT_BSTR);
cv = cell.value();

не помогает.

Может быть всё-таки есть какой-то способ програмно заставить ячейку обновить тип своего значения? А то преобразовывать double в строку, как-то не комильфо.

[Andrux]

Сделайте в Excel замену в цифровых ячейках символа "." на символ "," (ctrl+H). Установите формат ячеек - Общий. И читайте по типам: bStr, double, int

[Gustav]

Попробуйте принудительно "дернуть" значение ячейки после наложения на нее формата "Текстовый" (выражаюсь на VBA):

Range("A1").Value2 = "'" & Range("A1").Value2 (это известная операция добавление ведущего апострофа)

или так

Range("A1").Value2 = Range("A1").Value2 & "" (здесь просто пустая строка добавляется)

Во всяком случае, функция СУММ реагирует на такие изменения.

Ещё у ячейки есть свойство Range("A1").Text, но с ним надо осторожно, так как оно зависит от настроек отображения, например, от текущей ширины колонки.

[mazzy]

Цитата:

Сообщение от Andrux

Сделайте в Excel замену в цифровых ячейках символа "." на символ "," (ctrl+H).

Не надо!
Если уж корежить исходник, то добавьте апостроф перед текстом.
В Экселе апостроф в самом начале строки означает, что дальше пойдет текст.

но лучше исходник не корежить.

[gl00mie]

Цитата:

Сообщение от S.Kuskov

Если значение ячейки состоит только из цифр, то почему-то после смены Excel'ем формата у ячейки с числового на текстовый, тип значения ячейки автоматически не преобразуется из COMVariantType::VT_R8 в COMVariantType::VT_BSTR. Может быть всё-таки есть какой-то способ програмно заставить ячейку обновить тип своего значения?

Ох уж эти импорты... Не сочтите за саморекламу, но я лично в подобных ситуациях использую класс для преобразования значений между различными значимыми типами - и без разницы, какой там в файле формат у ячейки...

[mazzy]

Цитата:

Сообщение от gl00mie

класс для преобразования значений между различными значимыми типами

у людей как правило проблемы возникают с расчетными и корреспондетскими счетами.

20 цифр ексель выдает как нормализованное число (с мантиссой и степенью). В этом случае преобразователь не спасает.

Спасает апостроф перед цифрами, если есть возможность править исходник.

[S.Kuskov]

Цитата:

Сообщение от Andrux

Сделайте в Excel замену в цифровых ячейках символа "." на символ "," (ctrl+H). Установите формат ячеек - Общий. И читайте по типам: bStr, double, int

К сожалению смена формата ячейки на общий ведёт себя также как и описанная выше смена формата на текстовый, т.е. не даёт никаких результатов. Тип ячейки так и остаётся COMVariantType::VT_R8.

[S.Kuskov]

Цитата:

Сообщение от gl00mie

Не сочтите за саморекламу, но я лично в подобных ситуациях использую класс для преобразования значений между различными значимыми типами - и без разницы, какой там в файле формат у ячейки...

Т.е. это то же самое преобразование Double в Str, только внутри вспомогательного класса?

[gl00mie]

Цитата:

Сообщение от mazzy

у людей как правило проблемы возникают с расчетными и корреспондетскими счетами. 20 цифр ексель выдает как нормализованное число (с мантиссой и степенью).

Выдает в качестве строки в COMVariant при чтении значения ячейки из кода или же в качестве того, что будет отображено для значения ячейки в самом Excel? Мы все еще про импорт говорим?..

Цитата:

Сообщение от S.Kuskov

Т.е. это то же самое преобразование Double в Str, только внутри вспомогательного класса?

Если угодно, да, то же самое: на входе импорта получается неизвестно откуда взявшийся файл с неизвестно как отформатированными ячейками (к слову, откуда возникло предположение, что файл можно менять?), а на выходе - значение нужного мне типа. Соотв. слой абстракции реализован один раз и потом работает "без лишнего шума и пыли", и никто мне не парит мозг из-за того, что пользователям вздумалось числовые данные отформатировать как текст, или из-за того, что Excel в очередной раз не к месту отличился умом и сообразительностью, преобразовав текст в число.

[S.Kuskov]

Цитата:

Сообщение от Gustav

Попробуйте принудительно "дернуть" значение ячейки после наложения на нее формата "Текстовый" (выражаюсь на VBA):

Range("A1").Value2 = "'" & Range("A1").Value2 (это известная операция добавление ведущего апострофа)

или так

Range("A1").Value2 = Range("A1").Value2 & "" (здесь просто пустая строка добавляется)

Если это делать на стороне аксапты, то получается что в качестве аргумента функции COM.Value2() я должен передать результат конкатенации его же значения с апострофом или пустой строкой, которое я и немогу получить. Замкнутый круг получается
"Чтобы продать что-нибудь ненужное, нужно сначала купить что-нибудь ненужное, а у нас денег нет"

Цитата:

Сообщение от Gustav

Ещё у ячейки есть свойство Range("A1").Text, но с ним надо осторожно, так как оно зависит от настроек отображения, например, от текущей ширины колонки.

К сожалению и это свойство не работает если фактически тип у ячейки значения COMVariantType::VT_R8

На самом деле непонятно откуда Excel берёт информацию о типе ячейки, потому что отображает он её корректно в текстовом виде, а хранит получается что как число

[Gustav]

Цитата:

Сообщение от S.Kuskov

Если это делать на стороне аксапты, то получается что в качестве аргумента функции COM.Value2() я должен передать результат конкатенации его же значения с апострофом или пустой строкой, которое я и немогу получить. Замкнутый круг получается

Да, пожалуй... А попробуйте сделать это через MS Script Control ( Поговорим об MS Script Control ). Это получится так же, как и на VBA в самом Excel. И можно даже и саму строку получить уже как настоящую строку из Script Control'а.

[AndyD]

Цитата:

Сообщение от S.Kuskov

На самом деле непонятно откуда Excel берёт информацию о типе ячейки, потому что отображает он её корректно в текстовом виде, а хранит получается что как число

Там все хитро, но суть в том, что строковые значения хранятся в отдельной от ячеек области - Shared Strings. В самих же ячейках, при этом, сохраняется ссылка на значение в этой области (по факту - индекс в массиве строк)

Нестроковые значения хранятся непосредственно в ячейках и их тип определяется самими данными.

Когда меняется формат ячейки, значение в ней хранящееся не переносится в эту область, а остается в ячейке (по сути, меняется лишь отображение этих данных, что хорошо видно на примере дат).

Если тип ячейки текстовый или указан перед данными апостроф, то вносимое значение всегда будет сохраняться в разделяемой области.

PS
Для получения текстового значения ячейки независимо от типа хранимых в ней данных можно пользоваться функцией Text() вместо Value() или Value2()

[Gustav]

Цитата:

Сообщение от AndyD

Для получения текстового значения ячейки независимо от типа хранимых в ней данных можно пользоваться функцией Text() вместо Value() или Value2()

Цитата:

Сообщение от Gustav

Ещё у ячейки есть свойство Range("A1").Text, но с ним надо осторожно, так как оно зависит от настроек отображения, например, от текущей ширины колонки.

http://www.excelworld.ru/forum/3-48-27402-16-1349248973

[AndyD]

Цитата:

Сообщение от Gustav

http://www.excelworld.ru/forum/3-48-27402-16-1349248973

Увеличить ширину колонки перед считыванием.
И нехай подавится