With ActiveSheet.QueryTables.Add(Connection:= _
        "ODBC;DSN=Файлы Excel;" _
          & "DBQ=D:\Temp\склад с данными.xls;" _
          & "DefaultDir=D:\Temp;" _
          & "DriverId=790;MaxBufferSize=2048;PageTimeout=5;" _
          , Destination:=Range("B1"))
        .CommandType = xlCmdSql
        .CommandText = "SELECT Table2.[код детали], Table1.колличество " _
          & "FROM [D:\Temp\список кодов деталей].Table2 Table2 " _
          & "LEFT OUTER JOIN [D:\Temp\склад с данными].Table1 Table1 " _
          & "ON Table2.[код детали] = Table1.[код детали]"
        .Refresh BackgroundQuery:=False
    End With