Экспорт одной строки в Excel из Access - C/C++ - Ответ 8379976

String fTPL = ExtractFilePath(Application->ExeName) + "template.xls";
  Variant app, books, book, sheet, Rang, vCell;
  app = CreateOleObject("Excel.Application");
  books = app.OlePropertyGet("Workbooks");
  books.OleFunction("Open", WideString(fTPL));
  book = books.OlePropertyGet("item",1);
  sheet = book.OlePropertyGet("WorkSheets",1);
  vCell=sheet.OlePropertyGet("Cells").OlePropertyGet("Item",1,1);
  vCell.OlePropertySet("Value",WideString(Header));
  const int bounds[4] = {0, ADOTable1->RecordCount, 0, ADOTable1->FieldCount};
  Variant vData = VarArrayCreate(bounds, 3, varVariant);
  ADOTable1->First();
  for(int row = 0; row < ADOTable1->RecordCount; ++row)
   {
     for(int column = 0; column < ADOTable1->FieldCount; ++column)
        vData.PutElement(ADOTable1->Fields->Fields[column]->AsVariant, row, column);
     ADOTable1->Next();
   }
  Rang = sheet.OlePropertyGet("Range",sheet.OlePropertyGet("Cells",4,1),
         sheet.OlePropertyGet("Cells", ADOTable1->RecordCount + 3, ADOTable1->FieldCount));
  Rang.OlePropertySet("Value",vData);
  app.OlePropertySet("DisplayAlerts",false);
  book.OleProcedure("SaveAs",WideString(fXLS));
  app.OleProcedure("Quit");
  ShowMessage("Готово!\nОтчет записан в файл " + fXLS);