Soru Klasör Altındaki XLSX Dosyalarını Şartlı Birleştirme

[bulentkars]

Arkadaşlar Merhaba,

C:\DOSYALAR\ Klasörü içerisinde birden fazla aynı formatta xlsx formatında excel çalışma dosyaları var. Ben Ana dosya sayfasında 2 seçeneğe göre alt alta kopyalamak istiyorum. Örnek dosyalar ekte yardımcı olabilirseniz sevinirim. Şimdiden Teşekkürler

 

[halit3]

Aşağıdaki linkdeki dosyayı indir ve formu aç

1-klasördeki dosyaları bul düğmsine tıkla ve dosyaların bulunduğu klasörü seç
2-Açılan Liste kutusundan seçili sutunlardan veri al komut düğmesine tıkla

dosyalari_birlestir.rar dosyasını indir - download

dosyalari_birlestir.rar dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[bulentkars]

Halit Bey Merhaba

Sanırım bu kod ile tüm sayfaları alt alta kopyalıyor. Benim istediğim seçeneğe göre tümünü veya sonunda nokta olan verileri birleştirmek.

 

[halit3]

Arkadaşlar Merhaba,

C:\DOSYALAR\ Klasörü içerisinde birden fazla aynı formatta xlsx formatında excel çalışma dosyaları var. Ben Ana dosya sayfasında 2 seçeneğe göre alt alta kopyalamak istiyorum. Örnek dosyalar ekte yardımcı olabilirseniz sevinirim. Şimdiden Teşekkürler

Dosyada seçenekler ile ilgili iki adet komut düğmesi sırasıyla tıkla ve sonuçları gözle
1 nolu mesajınızda alt alta kopyalamak istediğiniz yazıyor. Dosyadaki kod tam bunu yapıyor.
diğer taraftan klasördeki dosyalarla ilgili Log sayfası olan bütün dosyalardaki verileri aktarıyor.

 

[halit3]

dosyalari_birlestir_2.rar dosyasını indir - download

dosyalari_birlestir_2.rar dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s5.dosya.tc

dosya güncellendi

 

[bulentkars]

Halit Bey,

son dosyayı indiremiyorum. Sadece Ana Dosya.xlsm Dosyasını paylaşabilirseniz sevinirim. Teşekkürler

 

[halit3]

dosyalari_birlestir3.rar dosyasını indir - download

dosyalari_birlestir3.rar dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s5.dosya.tc

dosyayı yeniden yükledim ve güncelledim.

 

[bulentkars]

Halit Bey Merhaba,

Gece evdeki makinada açtım, klasör seçtiğimde listboxa seçtiğim dosyalar geliyordu ve birleştir dediğimde işlem yapıyordu. ancak işyerinde klasörü gösteriyorum. tamam dediğimde listboxa seçtiğim klasördeki dosyalar gelmiyor , ve sonuç vermiyor neden acaba

 

[halit3]

CommandButton7_Click
Komut düğmesinin

aranan_Uzanti = LCase(fL.GetExtensionName(Application.AddIns.Item(1).FullName))

yukarıdaki bölümü aşağıdaki ile değiştir

aranan_Uzanti = "xlam"

 

[halit3]

dosyalari_birlestir4.rar dosyasını indir - download

dosyalari_birlestir4.rar dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s5.dosya.tc

linkdeki dosya güncellendi

 

[bulentkars]

Halit Bey
İlginiz için çok teşekkür ederim. oldu fakat bazı dosyaları birleştirirken satır sayılarını mükerrer kopyalıyor.

 

[bulentkars]

Halit Bey,

Bir dosya Hafızada kalmış sanırım, sürekli geldiği için mükerer kayıt oluşuyor, dosya olmamamasına rağemn veriyor, kodun altına hafızadaki verilerin temizlenmesi için bir kod var mı acaba?

 

[halit3]

Arkadaşlar Merhaba,

C:\DOSYALAR\ Klasörü içerisinde birden fazla aynı formatta xlsx formatında excel çalışma dosyaları var. Ben Ana dosya sayfasında 2 seçeneğe göre alt alta kopyalamak istiyorum. Örnek dosyalar ekte yardımcı olabilirseniz sevinirim. Şimdiden Teşekkürler

Halit Bey
İlginiz için çok teşekkür ederim. oldu fakat bazı dosyaları birleştirirken satır sayılarını mükerrer kopyalıyor.

Halit Bey,

Bir dosya Hafızada kalmış sanırım, sürekli geldiği için mükerer kayıt oluşuyor, dosya olmamamasına rağemn veriyor, kodun altına hafızadaki verilerin temizlenmesi için bir kod var mı acaba?

1 Nolu mesajınızda alt alta kopyalamak istediğinizi yazmışsınız 11 ve 12 nolu mesajınızda da birleştirme den bahsediyorsunuz .
Bir açıklama yapayım.
Bu dosyadaki kodlar birleştirme yapmaz sadece verileri ado yöntemiyle kapalı dosyalardan açık olan dosyaya boş satırdan başlamak üzere getirir yani bir nevi kopyalama yapmaktadır.

 

[bulentkars]

Halit Bey,

Aslında aynı şeyden bahsediyoruz, Kopyalama ve birleştirme.. sonuç tamam sıkıntı yok program çalışıyor. sadece klasör altında olamayan daha önce açılan bir dosyanın verileri sanırım hafızada kalmış onları temizleyebilirsek sorun kalmayacak. teşekkürler

 

[halit3]

Halit Bey,

Aslında aynı şeyden bahsediyoruz, Kopyalama ve birleştirme.. sonuç tamam sıkıntı yok program çalışıyor. sadece klasör altında olamayan daha önce açılan bir dosyanın verileri sanırım hafızada kalmış onları temizleyebilirsek sorun kalmayacak. teşekkürler

Merhaba hafızada bilgi kalmıyor dosyada hangi veri varsa o verileri getirir kod dosyadan bilgileri aldıktan sonra dosyayı kapatıyor ve hafızayı boşaltıyor.
siz herhalde benim eklediğim dosyalardan bahsediyorsunuz bu dosyaların hepsi aynı dolayısıyla hep aynı veriler gelecektir kodları siz kendi dosyalarınızda deneyiniz.

kod burada dosyayı kapatıyor.
Kayit.Close
burada da içini boşaltıyor.
Set Kayit = Nothing