Guru do Excel e Power BI

Public c As New ADODB.Connection

Sub Selecionar_dados_sql_where()
    '   PRECISA HABILITAR A REFERENCIA MICROSOFT ACTIVEX DATA OBJECTS x.xx LIBRARY
    Dim banco, banco2 As ADODB.Recordset
    Dim sql As String 'STRING DE COMANDO
    Dim sql2 As String
    
    'O COMANDO PARA SELECIONAR DADOS É O SELECT
    sql = "SELECT * from SUPPLIERS" & _
    " WHERE  SETOR = 'LOGISTICA'" 'A CLÁUSULA WHERE BUSCA APENAS
    'TODOS FUNCIONÁRIOS DO SETOR DE LOGISTICA
    
    'SELECIONA O BANCO
    sql2 = "USE Northwind"
    
    Set banco = New ADODB.Recordset
    Set banco2 = New ADODB.Recordset
    
    'CONEXÃO ABERTA
    nConectar
    
    'TRATAMENTO DE ERROS
    On Error GoTo erro
    
    'OPERAÇÃO EXECUTADA
    banco2.Open sql2, c
    banco.Open sql, c
    
    Dim xls As Excel.Worksheet
    Set xls = Sheets("plan1")
    
    xls.Range("A1").CopyFromRecordset banco
    
    'DESCONECTAR E LIMPAR MEMORIA
    Desconectar
    Set banco = Nothing
    Set banco2 = Nothing
    Exit Sub
    'CASO HAJA ERRO
erro:
    MsgBox Err.Description
    cx.Desconectar
    Set banco = Nothing
    Set banco2 = Nothing
    
End Sub

Public Sub nConectar()
    Dim s As String
    
    s = "PROVIDER=SQLOLEDB;" 'UTILIZADA QUANDO A AUTENTICAÇÃO É VIA USUÁRIO WINDOWS
    s = s & "DATA SOURCE=NOME_DO_PC\SQLEXPRESS;DATABASE=;TRUSTED_CONNECTION=YES"
    's = s & " INTEGRATED SECURITY=sspi;"
    
    c.Open s
    
End Sub

Public Sub Desconectar()
    c.Close
End Sub