экспорт в Excel и округление.

[hyperborean]

При экспорте в Excel (Эксель) через Automation "Microsoft Excle 8.0 Object Library" числа округляются до двух знаков после нуля при условии, что в перемунную типа xlRange.Value передается число.
Однако, при использовании форматирования вида "# ##0,000##" (т.е. нам нужно 3-5 знаков после нуля и разделитель разрядов до нуля) и передачи текстового значения все получается отлично.

vValue(type variant)
dQuantity(type decimal)

БЫЛО:

vValue := dQuantity; //передается через параметр
xlRange.NumberFormat := '# ##0,00###';
xlRange.Value := vValue;

СТАЛО:

vValue=FORMAT(dQuantity); //передается через параметр
xlRange.NumberFormat := '# ##0,00###';
xlRange.Value := vValue;

[Голышев Михаил]

Вроде бы в "Microsoft Excel 11.0 Object Library" таких проблем не наблюдалось

[hyperborean]

в Ms Excel 11.0 действительно не сталкивался с такой проблемой.

[hyperborean]

Кстати, лучше использовать FORMAT(dQty, 0, 1);
Таким образом при цифрах более 1000 удастся избежать пробелов в группах разрядов. Но это уже RTFM.

[RedFox]

Цитата:

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

БЫЛО:

vValue := dQuantity; //передается через параметр
xlRange.NumberFormat := '# ##0,00###';
xlRange.Value := vValue;

СТАЛО:

vValue=FORMAT(dQuantity); //передается через параметр
xlRange.NumberFormat := '# ##0,00###';
xlRange.Value := vValue;

Немного не понял в чем влияние изменения кода, но FORMAT() определяет каким образом будет выводиться число.

[hyperborean]

Цитата:

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

Немного не понял в чем влияние изменения кода, но FORMAT() определяет каким образом будет выводиться число.

Именно в том как будет передаваться число. Оно передается в виде символов, а не в виде числа и не округляется автоматически движком Excel.

Более того правильнее будет писать FORMAT(dUnitPrice, 0, 1). Такая запись избежит ошибок при разбиении верхних разрядов пробелами. Также можно выгружать в шаблоны.

[smoyk]

Тема конечно старая, просто хотел оставить заметку, что наблюдаю такую проблему на 'Microsoft Excel 14.0 Object Library'. Ексель(?) округляет до двух знаков. Пробовал и до вывода значений ставить range.NumberFormat := '# ##0,000', и после...
Формат помог, правда так не понял, какие могут возникнуть проблемы при разбиении верхних разрядов пробелами, у меня тысячи выводятся нормально (при простом формате).
Спасибо человеку из гипербореи)