way$ = Application.GetOpenFilename 'C:\DOCUMENTS AND SETTINGS\2009-03-26.xls
way2$ = Mid(way,  1 , InStrRev(way, "\"))
    With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC;DSN=Oaeeu Excel;DBQ= " & way & ";Def"), _
        Array("aultDir=" & way2 & ";DriverId=790;MaxBufferSize=2048;Pag"), _
        Array("eTimeout=5;")), Destination:=Range("v1"))
        .CommandText = Array( _
        "SELECT `Лист1$`.F1, `Лист1$`.F2, `Лист1$`.F5, `Лист1$`.F6" & Chr( 13 ) & "" & Chr( 10 ) & _
        "FROM `Лист1$` `Лист1$`")
        .Name = "Запрос из Файлов Excel"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = True
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod =  0 
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With
End Sub