Чтение Excel-ячейки в Аксапте (2.5) через COM

[AKIS]

Здравствуйте все!

Проблема у меня на сей раз такая.

Хочу читать ячейки Excel-листа и заносить их в базу данных в зависимости от того, что прочитал (т.е. прямой импорт из Excel-а не работает )

PHP код:

{ int numrow = 2;
  str 10 sLineNum;
;
  ExApp = COM::getObject("Excel.Application");
  If(!ExApp)
   ExApp = new COM("Excel.Application");
  ExApp.Visible(False);
  Wbs = ExApp.Workbooks();
  Wb  = Wbs.Open(ExcelFileName);
  Wss = Wb.WorkSheets();
  Ws = Wss.Item(ExcelSheetName);
  while(cont)
  {
   // Line Number
   Rng = Ws.Range("A"+strltrim(strrtrim(num2str(numrow,5,0,0,0))));
   sLineNum = Rng.Value(); 


В результате все работает, но sLineNum оказывается пустым.
Пробовал туда писать (вызывать Value c аргументом) - все пишет прекрасно куда надо.
Пробовал присваивать значение Value переменной типа real - выдает ошибку типа.
Пробовал использовать Value2 вместо Value - ноль эмоций.
Пробовал послать все нах... - не посылается

С удовольствием приму конструктивные советы, а также указания на то, чего ж я-таки делаю неправильно.

Спасибо заранее!!!!

[Wamr]

Может Rng.Value() возвращает COMVariant а не int и надо его как-то пребразовать?

А чего в принципе добиваешься? Может надо просто сделать как в SysImport-е - получить cell и из него получить уже данные.

[Lazy_Tiger]

у меня получилось вот так
....
// Line Number
Rng = Ws.Range("A"+strltrim(strrtrim(num2str(i,5,0,0,0))));
func = new COMDispFunction(Rng, "Text", COMDispContext::PropertyGet);
varRet = new COMVariant(COMVariantInOut::Out_retVal);
varRet.bStr("");
func.call(varRet);
sLineNum = varRet.bStr();
info(sLineNum);
....

[AKIS]

Хм... У меня - тоже

Спасибо вам обоим

С меня как всегда бутылка