Загрузить данные из файла Excel в StringGrid через OpenDialog

[Multiman]

Доброго времени суток!

Нужно загрузить данные из Excel файла в StringGrid через OpenDialog.

Из StringGrid в Excel получилось сделать:

{
 
WideString str;
TStringList *sl = new TStringList;
for(int i = 0 ; i<StringGrid1->RowCount ;++i)
{
for(int j = 0; j< StringGrid1->ColCount;++j)
str +=StringGrid1->Cells[j][i]+ "\t";
sl->Add(str);
str = "\r" ;
str = "";
}
if (SaveDialog1->Execute())
sl->SaveToFile(SaveDialog1->FileName + ".xls");
delete sl;
}

а вот как обратно сделать не знаю. Кто - нибудь может помочь?

В нете еще нарыл вот такой код:

{
Variant var_Excel, var_Sheet;
int Row_Counter = 0, Column_Counter = 0, Max_Column =10, Max_Row = 10;
 
var_Excel=CreateOleObject("Excel.Application");
var_Excel.OlePropertyGet("Application").OlePropertyGet("Workbooks").OleProcedure("Open" , "C:\999.xls" );
var_Excel.OlePropertySet("Visible",false);
var_Sheet = var_Excel.OlePropertyGet("ActiveSheet");
 
for (Row_Counter ; Row_Counter <= Max_Row ; Row_Counter++)
    {
      for (Column_Counter ; Column_Counter <= Max_Column  ; Column_Counter++)
          {
           StringGrid1->Cells[Column_Counter][Row_Counter] =
               var_Sheet.OlePropertyGet("Cells").OlePropertyGet("Item", Row_Counter + 1 , Column_Counter + 1);
          }
          Column_Counter = 0;
    }
var_Excel.OlePropertyGet("Application").OleProcedure("Quit");
var_Sheet = Unassigned;
var_Excel = Unassigned;
}

Выдает ошибку "Неверный тип переменной". Попробовал заменить

OleProcedure("Open" , "C:\999.xls" );

на

OleProcedure("Open" , OpenDialog1->FileName.c_str() );

тоже вылазит ошибка! Что не так с этим Excel??? Help!

Работаю в Embarcadero RAD Studio XE2 (c++ builder)