Блочное чтение файла Excel без сторонних библиотек - C++ Builder - Ответ 6888168

void __fastcall TForm1::Button1Click(TObject *Sender)
{
//Открыли Ексель
  Variant app, books, book, sheet, Rang, vCell;
  app = CreateOleObject("Excel.Application");
  app.OlePropertySet("Visible",true);
  books = app.OlePropertyGet("Workbooks");
  books.OleProcedure("Add");
  book = books.OlePropertyGet("Item",1);
  sheet = book.OlePropertyGet("WorkSheets",1);
//Сформировали и записали вариантный массив из StringGrid
  String S;
  const int bounds[4] = {0, StringGrid1->RowCount, 0, StringGrid1->ColCount};
  Variant vData = VarArrayCreate(bounds, 3, varVariant);
  for(int i = 0; i < StringGrid1->RowCount; i++)
   for(int j = 0; j < StringGrid1->ColCount; j++)
    {
      if((StringGrid1->Cells[j][i]).IsEmpty()) S = "";
      else S = StringGrid1->Cells[j][i];
      vData.PutElement(S, i, j);
    }
  Rang = sheet.OlePropertyGet("Range",sheet.OlePropertyGet("Cells",1,1),
         sheet.OlePropertyGet("Cells",StringGrid1->RowCount,StringGrid1->ColCount));
  Rang.OlePropertySet("WrapText", false);
  Rang.OlePropertySet("Value",vData);
//Оформляем ширину столбцов
  for(int i = 0; i < StringGrid1->ColCount; i++)
   {
     Variant Clmn = sheet.OlePropertyGet("Cells", 1, i + 1).OlePropertyGet("EntireColumn");
     Clmn.OleFunction("AutoFit");
   }
}