Импортирую данные из файла Excel. У файла не проставлен аттрибут "только чтение".

Dim Cnn As ADODB.Connection

Dim tmp_RS As ADODB.Recordset

Set Cnn = New ADODB.Connection
Cnn.Open "DRIVER={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DriverId=790;FirstRowHasNames=Yes;TypeGuessRows=5;ImportMixedTypes=Text;ReadOnly=True;" & _
 "DBQ=" & файл_для_импорта & ";"
Set tmp_RS = New ADODB.Recordset
strSQL = "SELECT txt_NFSCode_SU_Constr AS Obj_Code, '' AS Branch, txt_StatusHomeInSUFD_Tr_Constr as Activation_Date, '' AS Life_Length " & _
    " FROM [бла-бла$] WHERE num_Year_Tr_Constr='2015/1' OR num_Year_Tr_Constr='2015/2';"
Debug.Print strSQL
tmp_RS.Open strSQL, Cnn, adOpenStatic, adLockReadOnly, adCmdText

И рекордсет замечательно открывается.

Таперь открываю файл_для_импорта у себя в Excel и запускаю скрипт заново.
Получаю ошибку: "Несоответствие типов данные в условии отбора."

Microsoft Excel Driver воспринимает поле num_Year_Tr_Constr как дату. (В файле там действительно 2 первые строки текстовые, а потом год 2010, который воспринимается драйвером как 07.02.1905).

Теперь закрываю файл, ставлю ему аттрибут "Только чтение", открываю его заново, вуаля, все работает.

Понятно, что можно пользователю в скрипте запретить открывать экселевский файл_для_импорта, но это не всегда удобно.

Господа, у кого-нибудь есть знания по проблеме?
При запуске драйвера указал ImportMixedTypes=Text, что по-идее должно заставить драйвер читать все данные как текст, но вот так не происходит.

P/S/
Скрипт запускается из Excel, офис 2007, win7

http://www.sql.ru/forum/1149625/import-dannyh-iz-excel-interesnyy-gluk-ili-ficha