Açık olan pencereden verileri birleştirme

[yusuf1284]

Birden fazla Kimlik Bilgisi Toplu Sorgulama dosyalarını ve Adres Bilgisi Toplu Sorgulama dosyalarını Birleştir dosyasında ilgili yere birleştirmek istiyorum yardımcı olur musunuz?

 

[Haluk]

Benzer bir konuya verdiğim cevabı kendinize uyarlayabilirsiniz....

Klasör içerisindeki 3 yardımcı kitaptan ana kitaba veri aktarımı

En son hata mesajında ne diyor arkadaşım ? .

www.excel.web.tr

.

 

[yusuf1284]

Baktım da anlamadım vaktin varsa yardımcı olur musun

 

[Haluk]

Linkteki konuda yer alan kodlar, sizin dosyalarınıza uyarlandı.

Dikkat etmeniz gereken husus; verilerin alınacağı dosyalardaki sayfalarda sizin 1. satırları sildim.

Kodların başında açıklamalar var, eğer başka bir dosyaya uygulayacaksınız orada bahsedilen referansı eklemeyi unutmayın. Nasıl ekleneceğini bilmiyorsanız, daha önceki mesajımda verdiğim linkteki konuyu inceleyin.....oradaki mesajlarımda nasıl yapıldığını anlatmıştım.

.

 

[yusuf1284]

Birleştirme yapmamış ama 2 tane ADRES BİLGİSİ TOPLU SORGULAMA dosyasını ADRES BİLGİSİ TOPLU SORGULAMA da birleştirmek istiyordum diğer verileride diğerinde örnek dosyada 499 a kadar almış yani bir dosyayı almış. diraz daha kurcalayayım normalde hemen anlarım kodlar çok farklı geliyor

 

[Haluk]

getData prosedüründe, aşağıda kırmızı ile belirtilen düzeltmeyi yapın....

    With RS
        .MoveLast
        .MoveFirst
    End With
   
    NoA = Sheets(destSheet).Range("A" & Rows.Count).End(xlUp).Row + 1
    Sheets(destSheet).Range("A" & NoA).CopyFromRecordset RS

.

 

[yusuf1284]

Elinize yüreğinize sağlık hocam hakkınızı helal edin çok meşgul ettim sizi cahilliğimden.
Bu sefer şöyle bir sorunum oldu .xlsx uzantılı dosyalarda oldu fakat bazı dosyalarım .xls (sistem otomatik çıktıyı böyle veriyor) uzantılı onları ekleyince şu kodda hata verdi

Set DB = daoDBEngine.OpenDatabase(strFile, False, False, "Excel 12.0; HDR=Yes; IMEX=1;")

 

[Haluk]

Hata mesajı nedir?

Bahsettiğiniz *.xls örnek dosyalarından ekleyin, duruma bakalım....

.

 

[yusuf1284]

Hata mesajı nedir?

Bahsettiğiniz *.xls örnek dosyalarından ekleyin, duruma bakalım....

.

İlgi alakanızdan dolayı teşekkür ederim.Bahsettiğim dosyada değişiklik yaptığımda kaydetme yapmıyor formatı farklı kaydediyor o dosyayı paylaşsam muhakak 1 kişinin verilerini paylaşmak zorunda kalacağım araştırayım biraz daha

 

[yusuf1284]

Dosya bu şekilde kapalı şekilde aynı klasörde bu dosyaların hepsini birleştirme yapma imkanı var mı