Я уже работаю с Excel, вот небольшая библиотека
//---------------------------------------------------------------------------
//Работа с Excel
//---------------------------------------------------------------------------
//Создаем объект по указанному файлу
TExcel::TExcel(AnsiString Path)
{
this->Path = Path;
//Загружаем форму
myExcel = NULL;
allWorkbooks = NULL;
myWorkbook = NULL;
myWorksheet = NULL;
myRange = NULL;

try
{
//Загрузка Excel
try
{
myExcel = Variant::GetActiveObject("excel.application");
}
catch( ... )
{
myExcel = Variant::CreateObject("excel.application");
}
OpenFile = true;

allWorkbooks = myExcel.OlePropertyGet("Workbooks");
Procedure Open("Open");

allWorkbooks.Exec(Open << Path);

myWorkbook = myExcel.OlePropertyGet("ActiveWorkbook");
myWorksheet = myWorkbook.OlePropertyGet("ActiveSheet");
}
catch( ... )
{
//Форма не найдена, или ошибочна. Оставляем
MyThrow::Throw("Не могу найти форму по умолчанию!");
}
}
//---------------------------------------------------------------------------
//Освобождаем файл
//С запросом о сохранении данных
TExcel::~TExcel()
{
if(OpenFile)
{
Close();
}
};
//---------------------------------------------------------------------------
//Закрытие файла с запросом
void TExcel::Close()
{
try
{
Procedure prClose("Close");

myWorkbook.Exec(prClose);
}
catch(Exception* E)
{
Application->ShowException(E);
}
OpenFile = false;
};
//---------------------------------------------------------------------------
//Закрытие файла с сохранением или без него
void TExcel::Close(bool SaveFile)
{
try
{
Procedure Close("Close");

myWorkbook.Exec(Close << SaveFile);
}
catch(Exception* E)
{
Application->ShowException(E);
}

OpenFile = false;
};
//---------------------------------------------------------------------------
//Заносим данные в Excel
void TExcel::SetValue(AnsiString Col, AnsiString Row, AnsiString Value)
{
PropertyGet Range("Range");
PropertySet SetValue("Value");
PropertySet SetFormula("Formula");

//Запись данных
Range.ClearArgs();
SetValue.ClearArgs();
myRange = myWorksheet.Exec(Range << (Col + Row));
myRange.Exec(SetValue << Value);
};
//В стиле R1C1
void TExcel::SetValue(int Col, int Row, AnsiString Value)
{
PropertyGet Cells("Cells");
PropertySet SetValue("Value");
PropertySet SetFormula("Formula");

//Запись данных
Cells.ClearArgs();
SetValue.ClearArgs();
myRange = myWorksheet.Exec(Cells << Col << Row);
myRange.Exec(SetValue << Value);
};
//---------------------------------------------------------------------------
//Читаем данные из Excel
AnsiString TExcel::GetValue(AnsiString Col, AnsiString Row)
{
PropertyGet Range("Range");
PropertyGet GetValue("Value");
PropertyGet GetFormula("Formula");

//Чтение данных
Range.ClearArgs();
myRange = myWorksheet.Exec(Range << (Col + Row));
return myRange.OlePropertyGet("Value");
};
//В стиле R1C1
AnsiString TExcel::GetValue(int Col, int Row)
{
PropertyGet Cells("Cells");
PropertyGet GetValue("Value");
PropertyGet GetFormula("Formula");

//Чтение данных
Cells.ClearArgs();
myRange = myWorksheet.Exec(Cells << Col, Row);
return myRange.OlePropertyGet("Value");
};
//---------------------------------------------------------------------------
//Устанавливает указанную страницу
void TExcel::WorkSheet(AnsiString Sheet)
{
PropertyGet Sheets("Sheets");

Sheets.ClearArgs();
myWorksheet = myWorkbook.Exec(Sheets << Sheet);
}
//---------------------------------------------------------------------------
//Устанавливает указанную страницу
void TExcel::WorkSheet(int Sheet)
{
PropertyGet Sheets("Sheets");

Sheets.ClearArgs();
myWorksheet = myWorkbook.Exec(Sheets << Sheet);
}
//---------------------------------------------------------------------------
//Печать
void TExcel::Print()
{
// Procedure PrintOut("PrintOut");

// myWorkbook.Exec(PrintOut);
Run("PrintDocument");
};
//---------------------------------------------------------------------------
//Выполняет макрос с заданным именем
void TExcel::Run(AnsiString Macros)
{
Procedure RunMacros("Run");

myExcel.Exec(RunMacros << Macros);
};
//---------------------------------------------------------------------------

Когда использую данную компоненту если зати в редактирование (у меня Excel) после выхода остается не выгруженным Excel и лезут прочие глюки. Что делать?
Кстати если просто загрузить и выйти, то все ок.

//Работа с Excel
class TExcel
{
private:
//Загрузка Excel
Variant myExcel;
Variant allWorkbooks;
Variant myWorkbook;
Variant myWorksheet;
Variant myRange;

//Путь к файлу
AnsiString Path;
//Файл открыт и в Destroy надо его закрыть
bool OpenFile;
public:
//Создаем объект по указанному файлу
TExcel(AnsiString Path);
//Освобождаем файл
//С запросом о сохранении данных
~TExcel();

//Заносим данные в Excel
void SetValue(AnsiString Col, AnsiString Row, AnsiString Value);
//В стиле R1C1
void SetValue(int Col, int Row, AnsiString Value);
//Читаем данные из Excel
AnsiString GetValue(AnsiString Col, AnsiString Row);
//В стиле R1C1
AnsiString GetValue(int Col, int Row);
//Устанавливает указанную страницу по названию или номеру строницы
void WorkSheet(AnsiString Sheet);
void WorkSheet(int Sheet);
//Возращаем путь к загруженному файлу
AnsiString GetPath(){return Path;};
//Печать
void Print();
//Выполняет макрос с заданным именем
void Run(AnsiString Macros);

//Закрыть файл
//Закрытие файла с запросом
void Close();
//Закрытие файла с сохранением или без него
void Close(bool SaveFile);
};
//---------------------------------------------------------------------------