|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Загрузка данных из Excel 2003 и 2007 (2010))
Есть код который работает для 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; |
#2
|
|||
|
|||
решено, нашёл как
Код:
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; Последний раз редактировалось Admin, 01.05.2015 в 17:42. |
#3
|
||||
|
||||
Вам нужен установленный новый драйвер и соответствующая строка подключения. Насколько я помню с сайта мелкософта его можно скачать бесплатно.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. Последний раз редактировалось Страдалецъ, 01.05.2015 в 13:43. |