On-line: PSP, tnsr2, гостей 0. Всего: 2 [подробнее..]
АвторСообщение
Администратор




Пост N: 499
Зарегистрирован: 23.05.05
ссылка на сообщение  Отправлено: 18.05.07 16:09. Заголовок: Magic cell


Использую такую функцию для записи значения в ячейку документа Excel:

Function CellValue(oExcel, cName, xValue)
// -------------------------------------------------------------
// Установка значения xValue ячейки по имени cName в обьекте oExcel
// -------------------------------------------------------------
Local oNames := oExcel:Get('ActiveWorkBook'):Names
Local oCell
cName := OEMToAnsi(cName)
if ValType(xValue) == 'C'
xValue := OEMToAnsi(xValue)
endif
if oNames:Invoke('Item', cName) # nil
oExcel:Goto(cName)
oCell := oExcel:Get('ActiveCell')
if xValue # nil
oCell:Set('Value', xValue)
endif
endif
Return oCell

однажды заметил, что не занеслось число 12 в ячейку (это был НДС в налоговой накладной):

n67 := 12
CellValue(Doc, 'Sum67', n67)

Начал разбираться, и выяснилось, что константа 12 не заносится в ячейку
Любай другая: 13, 14, 12.5 - пожалуйста

Проверьте плз, это у меня одного так ?
xHarbour. последний релиз и последние сырцы с CVS


Спасибо: 0 
Профиль
Новых ответов нет


Тему читают:
- участник сейчас на форуме
- участник вне форума
Все даты в формате GMT  3 час. Хитов сегодня: 84
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет