adoo+excel + arkusz

0

Witam, troszkę mam zaćmienie i nie mogę sobie poradzić z problemem :
w kodzie ponizej wybieram excela i arkusz który chcę otworzyć ale skąd mam wczytać arkusze do wyboru. pozdr AS

  connstr := 'Provider=Microsoft.Jet.OLEDB.4.0;' +
  'Data Source=' + Edit1.Text +  ';' +   // wybieram plik
  'Extended Properties=Excel 8.0 ;' +
  'Persist Security Info=False;';
   ADOConnection1.ConnectionString := connstr;
   ADOConnection1.Connected:=true;

   if Radiobutton1.Checked = true   // tu wybieram  arkusz bo wiem jaki jest ale jak wyświetlić istniejace
   then
    ADODataSet1.CommandText:='Parametry$'
   else
    ADODataSet1.CommandText:='Dane$' ;

   ADODataSet1.Active:=True;

   for i:=0 to DbGrid1.Columns.Count -1 do
   DBGrid1.Columns.Items[i].Width:=100;
0

Juz znalazłem http://delphi.about.com/od/database/l/aa090903b.htm swietny artykuł o excelu i Delphi

1 użytkowników online, w tym zalogowanych: 0, gości: 1