Builder+Excel

[Symple me]

Здравствуйте! Как считать информацию из открытого файла Excel?
Пробовала вот так:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  Variant  Application,Books,Book,Book1,Sheets,Sheet,Cells,Cell,Chart;
  Application=CreateOleObject("Excel.Application");
  Application.OlePropertySet("Visible",true);
  Books = Application.OlePropertyGet("Workbooks");
  WideString path1 = GetCurrentDir()+"\\Data.xls" ;
  Books.OleProcedure("Open",path1);
  Application.OlePropertySet("Visible", true);
  StringGrid2->Cells[0][0] = Application.OlePropertyGet("ActiveSheet").OlePropertyGet
  ("Cells", 1, "A").OlePropertyGet("Value");
  Application.OleProcedure("Quit");
}

Когда запускаю при закрытом Excel из Билдера корректно работает, а когда открываю Excel и кнопкой запускаю это приложение, выдает ошибку, потому что он ищет файл Data.xls в папке Мои Документы, а этот файл находится в папке с проектом.