Farklı xls dosyalarını tek bir shette alt alta birleştirme

[By.TRabZonLutm]

Ağ ortamnında kodu F8 tuşu ile adım adım çalıştırıp test edebilirsiniz. Başkada yapabileceğim birşey yok maalesef.

Dosya = Dir(Kaynak_Klasör & "\*.xls") olan bölümü Dosya = Dir(Kaynak_Klasör & "\*.xls*") olarak değiştirdim düzeldi hocam

Tek sıkıntı şu, mevcut durumda dizin seçmek çok zor bir sürü klasöre girip seçmek zorunda kalıyorum. Aşağıdaki görünümü aktif edemez miyiz, uygulamak istediğimiz klasöre çok daha hızlı erişilir. (Görsel örnektir)

 

[Korhan Ayhan]

Bu linkte sabit bir klasörün seçilebilmesi için seçenek önerisinde bulunulmuş. Bende (işyerinde) denediğimde çalışmadı. Sizde deneyin belki sizde çalışır.

klasör seçerek adresi textboxa alma

Merhaba Arkadaşlar Klasör çalışmasını sayın leventm'in hazırladığı bir dosyadan aldım. Ancak ben daha farklı bir şey yapmak istiyordum ve tahmin edeceğiniz gibi beceremedim. Yapmak istediğim sorgu formundaki "klasör aç" tuşuna bastığınızda "kaydetmek istediğiniz klasörü seçin" penceresi...

www.excel.web.tr

Alternatif olarak dosya yolu belli ise kod içine yol tanımı yapılarak direkt o klasörde işlem yaptırılabilir.

 

[By.TRabZonLutm]

Bu linkte sabit bir klasörün seçilebilmesi için seçenek önerisinde bulunulmuş. Bende (işyerinde) denediğimde çalışmadı. Sizde deneyin belki sizde çalışır.

klasör seçerek adresi textboxa alma

Merhaba Arkadaşlar Klasör çalışmasını sayın leventm'in hazırladığı bir dosyadan aldım. Ancak ben daha farklı bir şey yapmak istiyordum ve tahmin edeceğiniz gibi beceremedim. Yapmak istediğim sorgu formundaki "klasör aç" tuşuna bastığınızda "kaydetmek istediğiniz klasörü seçin" penceresi...

www.excel.web.tr

Alternatif olarak dosya yolu belli ise kod içine yol tanımı yapılarak direkt o klasörde işlem yaptırılabilir.

Dosya yolu sabit değil normalde ama daha kolay olacaksa o klasörde çalışırım hocam