Sub External_data()
 ' 
 ' External_data Макрос 
 ' Макрос записан 19.10.2004 (yakubov) 
 ' 

 ' 
    Application.WindowState = xlNormal
    ActiveWorkbook.Worksheets.Add
    With ActiveSheet.QueryTables.Add(Connection:= _
        "ODBC;DSN=BANK;UID=yakubov;APP=Microsoft® Query;WSID=CONVERSBANK146;DATABASE=UBS_WORK;Network=DBMSSOCN;Trusted_Connection=Yes" _
        , Destination:=Range("A1"))
        .CommandText = Array( _
        "SELECT ACCOUNTS.STRACCOUNT, ACCOUNTS.CURRENCY, SALTRN.SALDO, ' ', DICACC.MEANING, ACCOUNTS.NOTEACC, NAMECLI.KINDCLIENT, NAMECLI.ACCOPER, NAMECLI.NUMCLIENT, NAMECLI.MEANING, ACCOUNTS.CATEGORY, ACCOUNTS" _
        , _
        ".DATECLOSE, ACCOUNTS.KINDRATE, ACCOUNTS.NUMACCOUNT, ACCOUNTS.ID_EXECUT, DICACC.BAL3, ACCOUNTS.LICNUM, SALTRN.OBOROT_CR, SALTRN.OBOROT_DB" & Chr( 13 ) & "" & Chr( 10 ) & "FROM UBS_WORK.dbo.ACCOUNTS ACCOUNTS, UBS_WORK.dbo.DICACC DICAC" _
        , _
        "C, UBS_WORK.dbo.NAMECLI NAMECLI, UBS_WORK.dbo.SALTRN SALTRN" & Chr( 13 ) & "" & Chr( 10 ) & "WHERE (ACCOUNTS.DATEOPEN<={ts '2004-10-18 00:00:00'}) AND (ACCOUNTS.CATEGORY=DICACC.CATEGORY) AND (ACCOUNTS.NUMACCOUNT=SALTRN.NUMACCOUNT) A" _
        , _
        "ND (ACCOUNTS.NUMCLIENT=NAMECLI.NUMCLIENT) AND (SALTRN.DATE_TRN<={ts '2004-10-15 00:00:00'}) AND (SALTRN.DATE_NEXT>{ts '2004-10-15 00:00:00'}) AND (SALTRN.SALDO<>$0) AND (ACCOUNTS.DATECLOSE>{ts '2004-1" _
        , "0-15 00:00:00'})" & Chr( 13 ) & "" & Chr( 10 ) & "ORDER BY ACCOUNTS.CURRENCY, DICACC.BAL3, ACCOUNTS.LICNUM")
        .Name = "Запрос из BANK"
        .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