Автор | Сообщение |
|
| Администратор
|
Пост 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
|
|
|
Новых ответов нет
|
|