Ado Nesnesi left join hk.

[tamer42]

Merhaba,

Aşağıdaki kodla ADO nesnesi "left join" operatörü ile belirli bir kritere göre eşlenen verileri getirmekte,
sonuç sayfası "A" sütunundaki ("STOK ADI") verileri referans alarak; Sabit sayfasındaki eşlenen verileri bularak sonuç sayfasına getirmekte;

Bu kod aynı çalışma kitabında çalışırken bir sorun yok, gayet güzel çalışıyor,
benim sorum: Sonuç sayfası mevcut çalışma kitabında Sabit sayfası kapalı duran başka bir çalışma (MyFile) kitabında olduğu zaman kodları nasıl düzenlemek gerekir?

Sub left_duseyara()

Set con = CreateObject("ADODB.Connection")

yol = ThisWorkbook.FullName

con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
yol & ";extended properties=""Excel 12.0;hdr=yes"""

sorgu = "select sabit.[TÜR],sabit.[BİRİM] from[sonuç$] sonuç" & _
" left join [sabit$] sabit" & _
        " on sonuç.[STOK ADI] = sabit.[STOK ADI]"

Set rs = con.Execute(sorgu)

Range("B2").CopyFromRecordset rs

End Sub

ilginize şimdiden teşekkürler,
iyi hafta sonları

 

[Korhan Ayhan]

Linki incelemenizi tavsiye ederim.

Soru - Düşeyara (VBA ile Dış Kaynaktan)

Değerli üstadlar; Excel içinde düşeyara gerek formülle, gerek makro ile yapabilmekteyim. Merak ettiğim VBA yolu ile "Hedef Excel" e "Kaynak Excel" den düşeyara ile veri çektirebilir miyiz?

www.excel.web.tr