Sub Макрос1()
'
' Макрос1 Макрос
'

'
    With ActiveSheet.ListObjects.Add(SourceType:= 0 , Source:=Array( _
        "OLEDB;Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Data Source=Test;Use Procedure for Prepare=1;Auto Transl" _
        , _
        "ate=True;Packet Size=4096;Workstation ID=TEST;Use Encryption for Data=False;Tag with column collation when possible=False;Initia" _
        , "l Catalog=Terminals"), Destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdTable
        .CommandText = Array("""Terminals"".""dbo"".""Errors""")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod =  0 
        .PreserveColumnInfo = True
        .SourceConnectionFile = _
        "D:\Документы\Мои источники данных\Test Errors.odc"
        .ListObject.DisplayName = "Таблица_Test_ Errors"
        .Refresh BackgroundQuery:=False
    End With
End Sub

Sub Макрос3()
'
' Макрос3 Макрос
'

'
    With
    Private Const strConnectionString As String = "OLEDB;Provider=SQLOLEDB.1;Password=111;Persist Security Info=True;User ID=sa;Data Source=test;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=TEST;Use Encryption for Data=False;Tag with column collation when possible=False;Initial Catalog=Terminals"
    Dim conn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    conn.ConnectionString = strConnectionString
    conn.Open
    rst.Open "SELECT [TerminalID],[Name] FROM [Terminals].[dbo].[Terminals]"
    Sheet1.Range("A1").CopyFromRecordset rst
    rst.Close
    conn.Close
    Set rst = Nothing
    Set conn = Nothing
        
    End With
End Sub

Sub Макрос1()

  
    Private Const strConnectionString As String = "OLEDB;Provider=SQLOLEDB.1;Password=111;Persist Security Info=True;User ID=sa;Data Source=test;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=TEST;Use Encryption for Data=False;Tag with column collation when possible=False;Initial Catalog=Terminals"
    Dim conn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    conn.ConnectionString = strConnectionString
    conn.Open
    rst.Open "SELECT [TerminalID],[Name] FROM [Terminals].[dbo].[Terminals]"
    Sheet1.Range("A1").CopyFromRecordset rst
    rst.Close
    conn.Close
    Set rst = Nothing
    Set conn = Nothing
        


End Sub