🚀 go-pugleaf

Hi,
If Excel installed you can use late binding for it.
Type Variant can wrap IDispatch interface. 
Some sample you can find in BCB Help (near Variant help).

Also follow sample for BCB5:
Note for BCB6 developers: Before building projects set Registers variables in None in page Advanced Compiler (Project options). This way the problem BCB5-BCB6 incompatibility (type Variant) is solved. 

//---------
#include <objbase.h>

//...
//...

CoInitialize(NULL);
Variant covFalse((short)false);
Variant vExcel;

Function WorkbooksP("Workbooks");
Function OpenF("Open");
Variant WorkBooks;
Variant WorkBook;

PropertyGet WS("ActiveSheet");

Function SaveAsF("SaveAs");
Function CloseF("Close");
Function QuitF("Quit");
Function NewWorkBook("Add");
PropertyGet GetActiveSheet("ActiveSheet");
bool FieldCanBeString[10]={1,1,1,1,0,0,0,0,0,0};

  vExcel=Variant::CreateObject("Excel.Application");
  vExcel.Exec(PropertySet("Visible") << Variant((short)true));

  WorkBooks=vExcel.Exec(WorkbooksP);

  WorkBook=WorkBooks.Exec(NewWorkBook);
  Variant WorkSheet=WorkBook.Exec(GetActiveSheet);

Table1->Active=true;
int RC=Table1->RecordCount;
Table1->First();
for(int i=1; i <= RC; ++i)
{
   for(int j=0; j < Table1->Fields->Count; ++j)
    {
        PropertySet Cells("Cells");
        if(!FieldCanBeString[j])continue;
        WorkSheet.Exec(Cells << i << j+1 << Table1->Fields->Fields[j]->AsString);
    }
Table1->Next();
}

Table1->Active=false;
  WorkBook.Exec(SaveAsF << "c:\\1.xls");
  WorkBook.Exec(CloseF << covFalse);
  vExcel.Exec(QuitF);

CoUninitialize();


Vladimir.