Есть код который работает для 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;
Админ: пользуемся тегами для оформления кода!