Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Open("C:\AisNalog\PrintJournal04.xlsx")
Set oSheet = oBook.Worksheets.Item( 1 )
Dim ConnectionString As String


ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=sspi;Initial Catalog=Taxes01;Data Source=NN-DB01;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=RODINAM;Use Encryption for Data=False;Tag with column collation when possible=False"
Dim sqlstring As String
Dim qt As Object

sqlstring = "select top 1000 * from fn1812"
Set qt = oSheet.ListObjects( 1 ).QueryTable(Connection:=ConnectionString, _
         Destination:=oSheet.Range("A1"), Sql:=sqlstring)
qt.Refresh False

oExcel.Visible = True

 Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Open("C:\AisNalog\PrintJournal04.xlsx")
Set oSheet = oBook.Worksheets.Item( 1 )
Dim ConnectionString As String


ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=sspi;Initial Catalog=MYDataBase;Data Source=MyServer;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=MyID;Use Encryption for Data=False;Tag with column collation when possible=False"
Dim sqlstring As String
Dim qt As Object

sqlstring = "select top 1000 * from fn1812"
Set qt = oSheet.ListObjects( 1 ).QueryTable(ConnectionString, oSheet.Range("A5"), sqlstring)

qt.Refresh False 

With ActiveSheet.ListObjects.Add(SourceType:= 0 , Source:=Array( _
        "OLEDB;Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Data Source=ServerName;Use Procedure for Prepare=1;Auto Tra" _
        , _
        "nslate=True;Packet Size=4096;Workstation ID=MyHOstName;Use Encryption for Data=False;Tag with column collation when possible=False;" _
        , "Initial Catalog=MyDbName"), Destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdTable
        .CommandText = Array("""MyDbName"".""dbo"".""MyTableName""")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        '.PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod =  0 
        .PreserveColumnInfo = True
        .SourceConnectionFile = _
        "C:\Documents and Settings\dsgvsdsd\Ìîè äîêóìåíòû\Ìîè èñòî÷íèêè äàííûõ\serverName DBName TableName.odc"
        .ListObject.DisplayName = "Òàáëèöà_servername_dbname_tablename"
        .Refresh BackgroundQuery:=False
    End With

      oExcel = CreateObject("Excel.Application")
        oBook = oExcel.WorkBooks.Open("C:\Book1.xlsx")
        oSheet = oBook.WorkSheets.Item( 1 )

        Dim ConnectionString As String


        ConnectionString = "OLEDB;Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Data Source=MYSTATION2\SQLEXPRESS;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=MYSTATION2;Use Encryption for Data=False;Tag with column collation when possible=False;Initial Catalog=Filial2"
        Dim sqlstring As String
        Dim qt As Object

        sqlstring = "select * from ruTable1"
        qt = oSheet.ListObjects.Add(SourceType:= 0 , Source:=ConnectionString, Destination:=oSheet.Range("A1")).QueryTable
        With qt
            .CommandText = "exec exGetDateFromTable"
            .Refresh(False)
        End With

        oExcel.Visible = True