1 Sub Sbor_dannih_1()
2 Dim Conn As New ADODB.Connection, This_WB As Workbook
3 Set This_WB = ThisWorkbook
4 Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Extended Properties=""Excel 8.0; HDR=Yes;""; Data Source=" & This_WB.FullName
5 Sheets("Zapros").Range("C6").CopyFromRecordset _
6 Conn.Execute(" SELECT e.f_name, d.name FROM [Employee$] e  INNER JOIN [Department$] d ")
7 Conn.Close
8 End Sub

Conn.Execute(" SELECT e.f_name, d.name FROM [Employee$] e INNER JOIN [Department$] d on e.dept_id=d.dept_id")

Conn.Execute(" SELECT e.f_name, d.name FROM [Employee$] e INNER JOIN [Department$] d on e.dept_id=d.dept_id")