[fofka]

Доброго всем дня.
Для облегчения работы потребовалось сделать импорт данных из Excel в базу данных Access (.mdb). И практически сразу возник вопрос, при открытии файла Excel выдает ошибку Невозможно найти устанавливаемый ISAM. Файл для импорта открываю так

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

var   OpenDialog : TOpenDialog;   FName1, FName2: string;   fullFileName : string;   Form1: TForm1;   implementation   {$R *.dfm} procedure TForm1.BitBtn1Click(Sender: TObject); begin    ADOConnection1.Connected:=False;    Windows.MessageBeep(MB_ICONINFORMATION);    OpenDialog:= TOpenDialog.Create(self);    OpenDialog.InitialDir := '';    OpenDialog.Filter := 'Microsoft Excel 2003 (*.xls)|*.xls';     if OpenDialog.Execute then       begin      FName1 := OpenDialog.FileName;      LabeledEdit1.Text:=ExtractFileName(FName1);    ADOConnection1.ConnectionString:=   'Provider=Microsoft.ACE.OLEDB.12.0;' +   'Data Source='+LabeledEdit1.Text +';' +   'Extended Properties=Excel Files;'+   'DriverId=1046;'+   'MaxBufferSize=2048;'+   'PageTimeout=5';    ADOConnection1.Connected:=True;  end; end;

При этом, если в ADOConnection1.ConnectionString сразу указать путь к файлу для импорта, как тут http://basicsprog.ucoz.ru/blog/2011-10-02-9, то ошибки нет, файл открывается и в базе (mdb) я вижу импортированные данные, и не важно есть в пути к файлу кириллица или нет. Меня такой подход не устраивает, хочется что бы была возможность указать самому файл. Использую Delphi 7. Microsoft Office 2010. Начал уже на офис, грешить, но если с путем к файлу указанном в exe работает, то офис тут не виноват. В прицепе как работаю с файлами, без импорта данных. В чем может быть проблема? Заранее благодарю за совет.

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

Ну и правильно ругается.

Код:

1	Extended Properties=Excel Files

Не понял, откуда вы такое в строке подключения выкопали?
Замените на:

Код:

1	Extended Properties=Excel 12.0

В принципе не должно быть проблем, хотя вы и пытаетесь открыть файл более ранней версии Экселя, но если все-же не откроется, то придется вам для Экселя 2003 и 2007 разные строки подключения делать. В примере там все это есть.

[fofka]

Страдалецъ, нет разницы. Указал

Код:

1	Extended Properties=Excel 12.0

, то же самое Невозможно найти устанавливаемый ISAM.
Вот строка подключения ADOConnection1.Connected выбрана непосредственно в Delphi

Код:

1

Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="DSN=Excel Files;DBQ=d:\Мои документы\Delphi программы\Работа с ADO\Импорт с Excel\Мой проект\2.xls;DefaultDir=d:d:\Мои документы\Delphi программы\Работа с ADO\Импорт с Excel\Мой проект;DriverId=1046;MaxBufferSize=2048;PageTimeout=5;"

Так все работает. Но почему?! Ни че не понимаю! Все делал вроде как указано в примере. А не работает.

[Freeman]

В провайдере разница.

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

Код:

1 2 3 4 5 6 7 8

Const   Excel2007Connection = 'Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=%s'; Var   AdoConnection: TAdoConnection; begin  AdoConnection := TAdoConnection.Create(nil);  AdoConnection.ConnectionString := Format(Excel2007Connection, ['d:\Мои документы\Delphi программы\Работа с ADO\Импорт с Excel\Мой проект\2.xls']);  AdoConnection.Open;

[fofka]

Страдалецъ, Благодарю за помощь. Все заработало. Сделал как Вы подсказали и все пошло. Импорт данных работает. Для подключения Excel взял Ваш код, а импорт из примера.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

implementation    Const   Excel2007Connection = 'Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=%s';   {$R *.dfm}   procedure TForm1.BitBtn1Click(Sender: TObject); begin    ADOConnection1.Connected:=False;    Windows.MessageBeep(MB_ICONINFORMATION);    OpenDialog:= TOpenDialog.Create(self);    OpenDialog.InitialDir := '';    OpenDialog.Filter := 'Microsoft Excel 2003 (*.xls)|*.xls';     if OpenDialog.Execute then       begin      FName1 := OpenDialog.FileName;      LabeledEdit1.Text:=ExtractFileName(FName1);     ADOConnection1.ConnectionString := Format(Excel2007Connection, [''+LabeledEdit1.Text +'']);     ADOConnection1.Connected:=True;     try    AdoVer:=ADOConnection1.Provider;    AdoConnection1.Connected:=true;     except    ADOConnection1.Connected:=false;    showmessage('ООшибка подключения.'+ #13 +    'Ожидаемая версия"' + AdoVer + '"провайдера отличается от текущей');    Application.Terminate;   end;  end; end;

Прицепил рабочий проект. Мало ли кому сгодится.