sqlstring = "select * from ...."

connString = _ подключение к листу № 1 


With ActiveSheet.QueryTables.Add(Connection:=connString, _
     Destination:=Range("H1"), SQL:=sqlstring)

      .Refresh
          
End With

Sub port()

Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset

Dim strCnnString As String
Dim strSource As String

strSource = ThisWorkbook.FullName
    
Set cnn = New ADODB.Connection


cnn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Datas"
cnn.Open

sqlquery = "select * From stat "
    
Set rst = cnn.Execute(sqlquery)
Range("H1").CopyFromRecordset rst
    
    
cnn.Close

Set rst = Nothing
Set cnn = Nothing

End Sub

cnn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Datas"

datas = ActiveWorkbook.Path & "\" & ThisWorkbook.Name
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & datas

Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset

Dim strCnnString As String
Dim strSource As String

strSource = ThisWorkbook.FullName
    
Set cnn = New ADODB.Connection

datas = ActiveWorkbook.Path & "\" & ThisWorkbook.Name
fPath = ActiveWorkbook.Path

cnn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=DBQ=" & datas & ";DefaultDir=" & fPath & " ;Driver={Microsoft Excel Driver (*.xls)};DriverId=790;FIL=excel 8.0;FILEDSN=" & datas & ".dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;ReadOnly=0;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"

cnn.Open

sqlquery = "select * From stat"
    
Set rst = cnn.Execute(sqlquery)
Range("H1").CopyFromRecordset rst
    
    
cnn.Close

Set rst = Nothing
Set cnn = Nothing