Быстрое чтение большого массива данных с Excel в C++Builder - C++ Builder - Ответ 9163548

Variant
      v_Var_Excel,         
      v_Var_Books,         
      v_Var_Book,         
      v_Var_Sheets,       
      v_Var_Sheet,        
      v_Var_Cells,        
      v_Var_Cell,
v_RangeDataHelp
v_RangeData; 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
// запускаем Excel
ExcelInit("ИМЯ_Файла.xls",1);
 
int i_TimeStart = GetTickCount();
 
Variant v_RangeDataHelp ,v_RangeData ;
v_RangeDataHelp = v_Var_Sheet.OlePropertyGet("Range","A1:R3500");
v_RangeData = v_RangeDataHelp.OlePropertyGet("Value");
 
Label1->Caption = "Time: " + FloatToStr((float)(GetTickCount()- i_TimeStart)/1000.0)+" c";
 
//Освобождается память и закрывается Excel
v_RangeDataHelp.Clear();
v_RangeData.Clear();
ExcelClose();
CleaningMemory();
}
 
void __fastcall ExcelInit(AnsiString as_File, int i_Number_Sheet)
{
  // Попытка запуска Excel
  try {
        //Пытаемся запустить Exel
        v_Var_Excel = CreateOleObject("Excel.Application");
        b_Excel_Start = true;
  } catch (...) {
        Application->MessageBox("Невозможно открыть Microsoft Excel!"
        "Возможно Excel не установлен на компьютере.",
        "Ошибка",MB_OK+MB_ICONERROR);
        b_Excel_Start = false;
        return;
  }
  try {
        if(as_File!=""){
                v_Var_Excel.OlePropertyGet("WorkBooks").OleProcedure("Open", as_File.c_str()); //Пытаемся открыть указанный файл
                b_Excel_Start = true;
        }
        else{
                b_Excel_Start = false;
                return;
        }
        //Открываем лист книги с которым будем работать
        v_Var_Sheet = v_Var_Excel.OlePropertyGet("Worksheets",i_Number_Sheet);
  } catch(...) {
        Application->MessageBox("Ошибка открытия книги Microsoft Excel!",
                                         "Ошибка",MB_OK+MB_ICONERROR);
        return;
  }
}
 
void __fastcall ExcelClose()
{
  v_Var_Excel.OlePropertyGet("WorkBooks").OleProcedure("Close");
  v_Var_Excel.OleProcedure("Quit");
}
 
void __fastcall CleaningMemory()
{
  v_Var_Excel.Clear();
  v_Var_Books.Clear();
  v_Var_Book.Clear();
  v_Var_Sheets.Clear();
  v_Var_Sheet.Clear();
  v_Var_Cells.Clear();
  v_Var_Cell.Clear();
}

v_RangeData = v_RangeDataHelp.OlePropertyGet("Value");