Показать сообщение отдельно
Старый 21.11.2003, 10:10   #2  
competitor is offline
competitor
Участник
 
10 / 10 (1) +
Регистрация: 17.03.2003
Код:
      SysExcelApplication    sysExcelApplication;
      SysExcelWorksheet      sysExcelWorksheet;
      SysExcelCell           sysExcelCell;
      int                    row,col,k;


      str                    path = "C:\\Customers.xls";

     ;
      sysExcelApplication = sysExcelApplication::construct();
      sysExcelApplication.workbooks().open(path);

      if(!sysExcelApplication.workbooks())
          throw error("Ошибка открытия файла!");

      SysExcelWorksheet  = sysExcelApplication.workbooks().item(1).worksheets().itemFromNum(1);

      if(!SysExcelWorksheet)
          throw error("Книга пустая");


      ttsbegin;

      custTable.selectForUpdate(true);

      for(row = 2; row <= 100;  row++)
      {
         sysExcelCell  = SysExcelWorksheet.cells().item(row,1);

         custTable.clear();
         custTable.AccountNum = num2str0(row,1);

         custTable.Name              = SysExcelWorksheet.cells().item(row,2).value().bStr();
         custTable.INN_RU            = SysExcelWorksheet.cells().item(row,3).value().bStr();
         /*************************************
          прочий код здесь
         **************************************/
         custTable.insert();

      }

      ttscommit;

      sysExcelApplication.workbooks().close();