[ximic86]

Есть код который работает для Excel 2003 необходимо одновременно чтобы грузил и из других версий 2007 (2010)
Как подправить, подскажите

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
Var i,j: integer;//счетчики для цикла               //выравнивание строк
    ifild,jrows: integer; //сюда запишем количество строк и столбцов полученного запроса
twidth,maxwidth: integer;//длина текста и максимальная длина текста
          fname: string; //сюда будем записывать имя колонки


g:string;

begin
openDialog1 := TOpenDialog.Create(self);
  openDialog1.InitialDir := GetCurrentDir;
  openDialog1.Options := [ofFileMustExist];
  openDialog1.Filter := 'Файл Excel|*.xls';

  if openDialog1.Execute
  then //ShowMessage('File : '+openDialog.FileName)
   begin
adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '+ ExtractFileName(opendialog1.filename)+';Mode=Share Deny None;Extended Properties=Excel 4.0;Persist Security Info=False';
ADOQuery1.Open;

Админ: пользуемся тегами для оформления кода!

[ximic86]

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
Var i,j: integer;//счетчики для цикла               //выравнивание строк
    ifild,jrows: integer; //сюда запишем количество строк и столбцов полученного запроса
twidth,maxwidth: integer;//длина текста и максимальная длина текста
          fname: string; //сюда будем записывать имя колонки


g:string;

begin
openDialog1 := TOpenDialog.Create(self);
  openDialog1.InitialDir := GetCurrentDir;
  openDialog1.Options := [ofFileMustExist];
  openDialog1.Filter := 'Файл Excel|*.xls;*.xlsx|';

  if openDialog1.Execute
  then //ShowMessage('File : '+openDialog.FileName)
   begin
//adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '+ ExtractFileName(opendialog1.filename)+';Mode=Share Deny None;Extended Properties=Excel 4.0;Persist Security Info=False';
//ADOQuery1.Open;
adoconnection1.ConnectionString:='Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source='+ ExtractFileName(opendialog1.filename)+'';
ADOQuery1.Open;

Админ: еще раз напоминаю про оформление кода!

[Страдалецъ]

Вам нужен установленный новый драйвер и соответствующая строка подключения. Насколько я помню с сайта мелкософта его можно скачать бесплатно.