Re[4]: Как прочитать данные в Excelе из C++ Builder
От: Pavel XP  
Дата: 28.05.02 22:35
Оценка:
Здравствуйте FireWorm, Вы писали:

FW>ЛЮЮЮУУУУДИИИИИ!!!

FW>Так что с локализациями делать
FW>ПОМОГИТЕ, плиз советом, может кто-нить сталкивался

Не знаю поможет ли с немецкими, французкими,но у меня на английской 2к и русской win98 все прекрасно работает в таком виде.

Тут на основе шаблона создается файл с 6 листами, переименовывает их и на первый лист в ячейку А1 пишется строка "ааа",поминаем (пример это, все проверки пропущены)


   try {
      ExcelApplication->Connect();
      .... 
      ExcelApplication->SheetsInNewWorkbook[0] = 6;
      ExcelApplication->Workbooks->Add( TVariantInParam("e:\\пример1.xlt") );

      ExcelApplication->Visible[0] = True;
      ExcelWorkbook->ConnectTo(ExcelApplication->ActiveWorkbook);
      ExcelWorkbook->SaveAs("e:\\ddd.xls",
                 TNoParam(),TNoParam(),TNoParam(),TNoParam(),TNoParam(),
                xlNoChange/*XlSaveAsAccessMode*/,
                TNoParam(),TNoParam(),TNoParam(),TNoParam(),TDefLCID());

      ExcelWorksheet->ConnectTo(ExcelWorkbook->ActiveSheet);

      wchar_t name[10];
      for(int Index = 1;Index<=6;Index++)
      {
         swprintf(name,L"MC%3d",Index);
         ExcelWorksheetPtr r = ExcelWorkbook->Sheets->get_Item(Index);
         r->set_Name(TVariantInParam(name));
      }
      
      TVariantInParam str("aaa");
      TVariantInParam Cell1("A1");
      
      Excel_2k::RangePtr r = ExcelWorksheet->Get_Range(Cell1, TNoParam());
      r->set_Value(str); // для чтения ес-но getValue
    .....
    }
    catch( ....)
    {
    }


А вообще всю идею смотри на "королевстве дельфи" цикл статей "По просторам интеграции" части с 1-3.
Останется только превести код с синтаксиса Паскаля на с++.
Более детальную информацию можно подчерпнуть из файлов в директории include\vcl\excel_2k*.h и include\vcl\excel_97*.h.
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.