vba sql запрос

Ответ от Makfromkz[гуру]
примерно так:
Dim cnn As New ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.Path & "TTT.xls;" & _
"Extended Properties=""Excel 8.0;"""
Dim sSQL As String, rst As ADODB.Recordset
sSQL = "Select * from Баланс$] where F1>20202"
Set rst = cnn.Execute(sSQL)
While Not rst.EOF
MsgBox rst.Fields("F1") ' вот тут перебирая записи ты можешь обращаться кполям выборки и помещать куда захочешь
rst.MoveNext
Wend