Çözüldü İki Ayrı Kapalı dosyadan Veri Çekme Hatası

[okan32]

Hayırlı Cumalar Arkadaşlar.
Klasörde iki ayrı veri çekilecek dosyam bulunmaktadır. bu iki kapalı dosyadan verileri çekmek istiyorum. Çok uğraşmama rağmen yapamadım hata veriyor. yapmak istediğim gerekli açıklamaları dosya içerisinde yaptım. Yardımlarınız için şimdiden teşekkür ederim.

 

[Erdem Akdemir]

Merhaba,

Bağlantı yolunda belirtilen dosya yok. Bu kısmı düzelterek deneyin.

 Con.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & ThisWorkbook.Path & "\kaynak.xls"

 

[okan32]

Sayın kuvari ilginiz için teşekkür ederim. Ama benim iki tane kapalı dosyam var burada ise tek dosya yolu yazabiliyorum. İki dosya yolunu nasıl yazabilirim.

 

[Erdem Akdemir]

MaasBanka dosyasından aşağıdaki gibi veri alabilirsiniz.

Sub Veri_çek()
    Dim Con As Object, Rs As Object, Sorgu As String
    Set Con = CreateObject("AdoDB.Connection")
    Set Rs = CreateObject("AdoDB.RecordSet")
    Con.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & ThisWorkbook.Path & "\MaasBanka.xls" & _
    ";Extended Properties=""Excel 12.0;Hdr=yes"""
    
  
    Sorgu = "Select [PERSONEL AD-SOYAD], [PERSONEL UNVANI], [PERSONEL TC KİMLİK NO],[IBAN NUMARASI],[TUTAR] From [Sayfa1$A9:N10000]"
       Rs.Open Sorgu, Con, 1, 3
    Range("A4").CopyFromRecordset Rs
    Rs.Close: Con.Close
    Sorgu = vbNullString: Set Rs = Nothing: Set Con = Nothing
End Sub

 

[Erdem Akdemir]

İki dosyaya tek bir bağlantı ile erişemezsiniz.

Con.close yaparak tekrar bağlantı kurmanız gerekecek.

 

[Haluk]

Eğer verilerin alınacağı 2 tablodaki alanlar (sütunlar) eşit sayıda olsaydı SQL sorgusunda UNION ile tabloları birleştirip, tek sorguda veriler alınabilirdi.

Durum böyle olmadığı için kuvari'nin dediği gibi 2 ayrı sorgu yapılması gerekiyor.

.

 

[okan32]

Çoooook Teşekkür ederim kuvari bey ve Haluk Bey verdiğiniz kodda düzenleme yaparak problemi çözdüm

 

[Erdem Akdemir]

Eğer verilerin alınacağı 2 tablodaki alanlar (sütunlar) eşit sayıda olsaydı SQL sorgusunda UNION ile tabloları birleştirip, tek sorguda veriler alınabilirdi.

Durum böyle olmadığı için kuvari'nin dediği gibi 2 ayrı sorgu yapılması gerekiyor.

.

Haluk bey merhaba,

Farklı excel dosyalarındaki verileri farklı bağlantılar ile erişerek sorguda birleştirme imkanı oluyor mu? Bana olmaz gibi geliyor.

 

[Erdem Akdemir]

Çoooook Teşekkür ederim kuvari bey verdiğiniz kodda düzenleme yaparak problemi çözdüm

Kolay gelsin.

 

[okan32]

Kuvari bey iki ayrı sorgu oluşturdum ve birliştirerek oldu.

 

[Haluk]

Haluk bey merhaba,

Farklı excel dosyalarındaki verileri farklı bağlantılar ile erişerek sorguda birleştirme imkanı oluyor mu? Bana olmaz gibi geliyor.

Veri alınacak tabloların yapısı uygunsa, UNION kullanarak tek bir bağlantı, tek bir sorgu ile yapılabilir ......

Örnek dosya ektedir,

.

 

[okan32]

İlginiz ve vermiş olduğunuz bilgiler için çok teşekkür ederim Haluk Bey

 

[Erdem Akdemir]

Veri alınacak tabloların yapısı uygunsa, UNION kullanarak tek bir bağlantı, tek bir sorgu ile yapılabilir ......

Örnek dosya ektedir,

.

Haluk bey güzel bir örnek oldu.Elinize sağlık.

 

[Erdem Akdemir]

Haluk Bey,

Bu kodlama yöntemi ile sadece Union 'mı yapabiliyoruz.
Left join'i denedim ama olmadı.

 

[Haluk]

Sonuçta SQL sorgusunda VBA'nin izin verdiği, doğru ve mantıklı komutlar kullanılırsa istediğiniz bir çok şeyi yapabilirsiniz. "Left Join" ve diğerleriyle ilgili olarak; aşağıdaki linkte yer alan mesajlar arasında Zeki Gürsoy'un 48 No'lu mesajındaki dosyayı inceleyebilirsiniz.

https://www.excel.web.tr/threads/kapali-sayfalardan-belirtilen-kosulla-goere-veri-aktarmak.174964/

.

 

[Erdem Akdemir]

Haluk bey sağolun.
İlgili dosyayı daha önce incelemiştim.
Left join yapmak biraz daha zor gibi geliyor yapısı itibari ile.
Belki Zeki bey bu yazdıklarımızı okur ve varsa çözüm sunar.

 

[Haluk]

@Zeki Gürsoy mutlaka daha güzel örnekler verir çünkü kendisi bu konularda oldukça iyidir. Ama şimdilik, az önce hazırladığım ekli dosyaları inceleyebilirsiniz.

Burada yapılan iş özetle; Report.xlsm dosyasındaki kod (SQL - Left Join) ile, kapalı durumdaki Source1.xlsx dosyasındaki Ad, Soyad, Tel, Adres verilerinin tamamıyla birlikte, Source2.xlsx dosyasındaki mevcut verilerden Source1.xlsx dosyasındaki Ad ile eşleşen E-Mail, TC No ve Referans verileri listelenmektedir.

.

 

[Erdem Akdemir]

Haluk bey çok iyi düşünmüşsünüz.
Mükemmel bir çözüm, elinize sağlık.
Bu iki çözümü'de ADO meraklıları arşivlemeliler.

 

[Haluk]

Tekrar merhaba;

Bu kez; yukarıda 17 No'lu mesajdaki SQL - Left Join kullanılan sorgulamayı/raporlamayı biraz daha geliştirdim.

Ekli Report2.xlsm dosyasındaki kodla, 17 No'lu mesajda belirtilen Source1.xlsx ve Source2.xlsx dosyalarındaki verilere ilave olarak, bu kez Source3.xlsx dosyasındaki dosyasındaki mevcut verilerden Source1.xlsx dosyasındaki Ad ile eşleşen Anne Adı ve Baba Adı verileri de listelenmektedir.

Özet olarak; Report2.xlsm dosyasına yazılan kodla, diğer 3 adet dosyada Source1.xlsx dosyasındaki Ad ile eşleşen tüm veriler listelenebilmektedir.

.

 

[Erdem Akdemir]

Haluk bey elinize sağlık.
Kod değil efsane.