GetObject("Book2").Application

Variant excel = Unassigned; 
HWND hExcelWindow = NULL; 
bool __fastcall KillProcess(DWORD PID); 
bool __fastcall GetExcelPid(HWND hExWindow, LPDWORD pPid); 


//открываем нужную книгу, использую OpenDialog 
void __fastcall TMainForm::ButtonOpenExcelClick(TObject *Sender) 
{ 
  if (!OpenDialog->Execute()) return; 
  try 
  { 
    if (!VarIsEmpty(excel)) 
    { excel.OleProcedure("Quit"); excel = Unassigned; } 
    excel=CreateOleObject("Excel.Application"); 
    excel.OlePropertySet("Visible", true); 
    excel.OlePropertyGet("Workbooks").OlePropertyGet("Open",OpenDialog->FileName) 
    .OlePropertyGet("Worksheets").OlePropertyGet("Item", 1 ).OleProcedure("Activate"); 
// далее получаем Caption открытого окна Excel, затем с его помощью находим и 
// запоминаем хендл окна. В дальнейщем с его помощью мы определим PID процесса 
// excel.exe, запущеного именно нами! 
// Зачем нам завершать чужие процессы? 
 
    String ExcelCaption = excel.OlePropertyGet("Caption"); 
    hExcelWindow = FindWindow("XLMAIN", ExcelCaption.c_str()); 
  } 
  catch (Exception &exception) 
  { 
    Application->ShowException(&exception); 
  } 
} 


// Функция закрытия Excel 
void __fastcall TMainForm::ButtonCloseExcelClick(TObject *Sender) 
{ 
// Проверяем был ли открыт Excel 
  if (VarIsEmpty(excel)) return; 
// Выходим из Excel 
  excel.OleProcedure("Quit"); 
  excel = Unassigned; 
//Убиваем процесс excel.exe, если он еще весит в памяти 
  DWORD Pid; 
  if (GetExcelPid(hExcelWindow, &Pid)) 
    if (!KillProcess(Pid)) 
      Application->MessageBox("Error to close Excel.\n\ 
May be you have not debug privilege.", "MyProg", MB_OK + MB_ICONERROR); 
  hExcelWindow = NULL; 
} 


// Получаем PID процесса excel.exe 
bool __fastcall GetExcelPid(HWND hExWindow, LPDWORD pPid) 
{ 
// используем нащ хендл окна, полученый в самом начале при отрытие книги Excel 
   if (!hExWindow) return false; 
   char ClassName[ 100 ]; 
// Получаем PID нашего процесса 
   if (!GetWindowThreadProcessId(hExWindow, pPid)) return false; 
// На всякий случай проверяем является ли он действительно Excel, для этого 
// проверям класс процесса, он должен быть "XLMAIN" (получено экспериментальным путем) 
   if (GetClassName(hExWindow, ClassName,  99 ) ==  0 ) return false; 
   if (CompareStr("XLMAIN", ClassName) !=  0 ) return false; 
   return true; 
} 


// Функция для закрытия любого процесса по его PID'у 
bool __fastcall KillProcess(DWORD PID) 
{ 
  bool ReturnCode = false; 
  HANDLE hProcess = OpenProcess(PROCESS_TERMINATE, false, PID); 
  if (hProcess != NULL || hProcess != INVALID_HANDLE_VALUE) 
  { 
    if (TerminateProcess(hProcess, - 1 )) 
      ReturnCode = true; 
    CloseHandle( hProcess ); 
  } 
  return ReturnCode; 

GetObject("Book2").Application