VPF::Ole DB - Форум программистов

AngelDominantes

Дата 8.2.2011, 12:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 29.5.2009

Репутация: нет
Всего: нет

Доброго времени суток, столкнулся с необходимостью чтения инфы с экселя, до этого с OLe не работал, приведу след фрагмент кода который открывает файл Екселя и считывает инфу:

Код


void __fastcall TForm1::ExcelInit(AnsiString File)
{
 try {
   App=Variant::GetActiveObject("Excel.Application");
  } catch(...) {

     try { App=Variant::CreateObject("Excel.Application"); } catch (...) {
      Application->MessageBox("Невозможно открыть Microsoft Excel!"
      "Возможно Excel не установлен на компьютере.","Ошибка",MB_OK+MB_ICONERROR);
 }
  }
  try {
     App.OlePropertyGet("WorkBooks").OleProcedure("Open",File.c_str());
     Sh=App.OlePropertyGet("WorkSheets",1);
  } catch(...) {
    Application->MessageBox("Ошибка открытия книги Microsoft Excel!",
                                         "Ошибка",MB_OK+MB_ICONERROR);
  }
}/* ExcelInit() */
//---------------------------------------------------------------------------
void __fastcall TForm1::fromExcelCell()
{
 int i=1,j,s;
 char FIO[50],buf[20];
 Variant cur,result;
    try{
        do{
         cur = Sh.OlePropertyGet("Cells",i,1);
         result =  cur.OlePropertyGet("Value");
         strcpy(FIO,(char*)result.VOleStr);
                ...............................................

Собсвтенно 1-ая функция файл открывает и тут все работает как надо, во 2 ой же функции необходимо получить значение ячейки имнно в char, последняя строка дает аракадарбу. Каким образом можно решить вопрос?

Это сообщение отредактировал(а) AngelDominantes - 8.2.2011, 12:25

xvr

Дата 8.2.2011, 12:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 7046
Регистрация: 28.8.2007
Где: Дублин, Ирландия

Репутация: 60
Всего: 223

Цитата(AngelDominantes @ 8.2.2011, 12:24

)

strcpy(FIO,(char*)result.VOleStr);

Ой, за чтоже вы его так smile

Код


strcpy(FIO,VarToStr(result).c_str());

PS. Какой у вас Builder? Если 2010, то там строки будут в Unicode, простой strcpy не пройдет

Добавлено через 1 минуту и 12 секунд
PPS. То, что вы делаете, к OLE DB не имеет никакого отношения

AngelDominantes

Дата 8.2.2011, 13:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 29.5.2009

Репутация: нет
Всего: нет

Цитата(xvr @ 8.2.2011, 12:39)

Цитата(AngelDominantes @ 8.2.2011, 12:24

)

strcpy(FIO,(char*)result.VOleStr);

Ой, за чтоже вы его так smile

Код


strcpy(FIO,VarToStr(result).c_str());

PS. Какой у вас Builder? Если 2010, то там строки будут в Unicode, простой strcpy не пройдет

Добавлено @ 12:40
PPS. То, что вы делаете, к OLE DB не имеет никакого отношения

Спасибо

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C/C++: Общие вопросы \| Следующая тема »