[ximic86]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

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]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

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;

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

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

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