Set con = VBA.CreateObject("adodb.Connection")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=NO"""
SORGU1 = "Select * from " & ThisWorkbook.FullName & ".[Sayfa4$] "
sorgu2 = "Select Rapor$.[Fatura No] AS FISFATNO2 from D:\GidenFatura.xlsx.[Rapor$] "
sorguEX = "SELECT * FROM (" & SORGU1 & ")A LEFT JOIN (" & sorgu2 & ") B ON A.FISFATNO=B.FISFATNO2"
Set RS = con.Execute(sorguEX)
For X = 1 To RS.Fields.Count
Cells(1, X + 20) = RS.Fields(X - 1).Name
Next
Range("U2").CopyFromRecordset RS
RS.Close
con.Close
with this codes i worked :)