Skip to main content

AccessTr.neT


Birden Çok Çalışma Kitabından Verileri Tek Dosyada Birleştirme

Birden Çok Çalışma Kitabından Verileri Tek Dosyada Birleştirme

#7
Rica ederiz.Alttaki kod Kayıt sütununun hangi sütunda olduğnu arar.Ben 2.ci satırda olduğunu farzettiğim için öyle yaptım.
.rows(2) bunu silip cells yalarsanız tüm satır ve sütunlarda arar Kayıt kelimesini.

Set bulSutunNo = wsa.Rows(2).Find(ws.Range("i2").Value, , , 1)

Alttaki içinde aynı durum bıda son satır buluyordu..Range("A:A") bunu silip .cells yazarsanız tüm her yerde arar.

Set bulSatirNo = wsa.Range("A:A").Find(ws.Range("A2").Value, , , 1)
Cevapla
#8
hız testi karşılaştırması, bu sefer Recordset daha hızlı çıktı
referanslara Microsoft ActiveX Data Objects 6.0 Library eklenmiştir
toplam 999999 Satır
süre saniye cinsinden
1 - Feraz Süre : 54,16406 Sn
2 - Recordset Süre : 19,10156 Sn
3 - Feraz Süre : 55,8125 Sn
4 - Recordset Süre : 20,65625 Sn
5 - Feraz Süre : 56,33594 Sn
6 - Recordset Süre : 22,21094 Sn
7 - Feraz Süre : 54,16406 Sn
8 - Recordset Süre : 19,10156 Sn
Cevapla
#9
(13/11/2020, 23:47)berduş yazdı: hız testi karşılaştırması, bu sefer Recordset daha hızlı çıktı
referanslara Microsoft ActiveX Data Objects 6.0 Library eklenmiştir
toplam 999999 Satır
süre saniye cinsinden
1 Feraz Süre 54,16406 Sn
2 Recordset Süre 19,10156 Sn
3 Feraz Süre 55,8125 Sn
4 Recordset Süre 20,65625 Sn
5 Feraz Süre 56,33594 Sn
6 Recordset Süre 22,21094 Sn
7 Feraz Süre 54,16406 Sn
8 Recordset Süre 19,10156 Sn
Img-grin
Hız olayı uzun sürmesi dosyaların açılıp kapanması ile alakalı abey Img-grin
Normalde evet Ado ile yapılıyor genelde bu işlemler lakin üye böyle istediğini düşünmüştüm.
Ayrıca excelde herzaman ado ya güvenilmez diye yazmıştım önceden.Hatta dün yine aynı durum başıma geldi tarih kısımlarını getirmiyordu benim kendi dosyamda ayarlayana kadar kırk takla attım Img-grin
İsterseniz gösterebilirimdr bu durumu.
Cevapla
#10
Aslında kapalı exceller hiç açtırmadan alttaki yöntemde denenebilir dizi ile birlikte kullanılıp.
Hız olayınıda test etmiş oluruz.Unutmazsam birde bu yöntemi yarın uygulayayım Img-grin

ExecuteExcel4Macro
Cevapla
#11
Feraz bey ben, "benim yontemim sizinkinden iyi " demek için paylaşmadım geçen sefer sizin paylaştığınız bir hiz testi vardı ön yuklemesiz ADO ile ilgili ben de ön yuklemeli olunca hızının belirgin bir sekilde artabileceğini gostermek için paylaştım. Deneyimlerinizin ADO ya güvenilemiyecegini gösterdiğini daha once de belirtmistiniz hatırlıyorum ama burada cift sayı islemleri yada tarih gibi cetrefilli bir durum olmadigindan kullanilabilecegini düşündüğüm icin paylastim o kadar.
Cevapla
#12
(14/11/2020, 00:04)berduş yazdı: Feraz bey ben, "benim yontemim sizinkinden iyi " demek için paylaşmadım geçen sefer sizin paylaştığınız bir hiz testi vardı ön yuklemesiz ADO ile ilgili ben de ön yuklemeli olunca hızının belirgin bir sekilde artabileceğini gostermek için paylaştım. Deneyimlerinizin ADO ya güvenilemiyecegini gösterdiğini daha once de belirtmistiniz hatırlıyorum ama burada cift sayı islemleri yada tarih gibi cetrefilli bir  durum olmadigindan kullanilabilecegini düşündüğüm icin paylastim o kadar.
Yok abey benim için sıkıntı.Hatta memnun oluruz Ado ile herzaman çözümler üretmenizi.Aklımda bile yoktu yarış felan Img-grin
Son satır ve sütun yerleri değişken oluyor diye anlamıştım sanki kapalı dosyada ilk mesajda.Ado ilede bunun için yaptınızmı abey.
Mesela kapalı dosyada birine sırano 2.satır oluken diğerinde üçüncü satır felan.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task