Kuzya2007Dim sCon As String, FieldName As String, FilePath As String
Dim rs As Object, cn As Object
Set rs = CreateObject("ADODB.Recordset")
Set cn = CreateObject("ADODB.Connection")
FilePath = ActiveWorkbook.FullName
FieldsName = True

If FieldsName Then FieldName = "Yes" Else FieldName = "No"
Select Case CLng(Split(Application.Version, ".")(0))
Case Is < 12
sCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FilePath _
& ";Extended Properties=""Excel 8.0;HDR=" & FieldName & ";IMEX=1"";"
Case Is >= 12
sCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & FilePath _
& ";Extended Properties=""Excel 12.0;HDR=" & FieldName & ";IMEX=1"";"
End Select

cn.Open sCon

StrSQL = "SELECT * FROM [Лист1$A1:I100] as A "
Set rs = cn.Execute(StrSQL)
For i = 0 To rs.Fields.Count - 1
msg = rs.Fields(i).Value
Next

так работает а если

StrSQL = "SELECT Будинок FROM [Лист1$A1:I100] as A "
Пише ошибку
--
Де може будь моя ошибка ?
За ранее благодарен
Колонка на Лист1$ существуе
а какое значение у FieldName ?

и что это за ИФ по строковому значению ???

lu0я боюсь спросить. НО! какой смысл в запросе
???
а что так удивило ?
запрос - источник для рекордсета..
авторStrSQL = "SELECT * FROM [Лист1$A1:I100] as A "
Set rs = cn.Execute(StrSQL)
чё такова-то ??