1000 adet text dosyasının tek bir excel sayfası üzerinde açmak.

[umutozkans]

Elimizde 1000 adet text dosya var. Dosyaların hepsi bir klasörde bulunuyor. Hepsini tutup excele sürükleyip attığımızda 1000 adet ayrı ayrı sayfa açıyor. Oysa ben hepsini tek bir sayfada devam eden şekilde görmek istiyorum. Çünkü tüm veriler arasında arama yaptırmam gerekiyor. Bu arada benim 1 tane text dosyamda yaklaşık 50-100 satır var.Ne yapmam gerekiyor?

 

[Levent Menteşoğlu]

Bu text dosyalarından 2 adet örnek ekleyip birde bunların bulunduğu klasörünün yolunu verirmisiniz.

 

[umutozkans]

örnekleri ekledim. Klasör yolu: "C:\textdosyalar"

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub verial()
For Each dosya In CreateObject("Scripting.FileSystemObject").GetFolder("C:\textdosyalar").Files
say = WorksheetFunction.CountA([a:a]) + 1
ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\textdosyalar\" & dosya.Name, Destination:=Range("A" & say)).Refresh
Next
End Sub
 
Not: Text dosyalarındaki toplam veri sayısı 65536 yı geçerse kod hata verecektir. Bu durumda dosyaları iki ayrı klasörde toplayıp ikş ayrı sayfaya listeleyebilirsiniz.

 

[NoiR_DeSiRe]

Merhaba Sn Levent ;
aşağıdaki kodu uyguladığımda Compile Eror : Variable not defined...
hatası veriyor.

Sub verial()
For Each dosya In CreateObject("Scripting.FileSystemObject").GetFolder("C:\textdosyalar").Files

dosya kısmı giri renkte görülüyor...

klasörü aynen c:\textdosyalar olarak harızladım ancak text dosyalarımın formatı ekteki gibi..
Yardımlarınızı Bekliyorum...

 

[Levent Menteşoğlu]

Kodlarınızın en üstünde "Option Explicit" şeklinde bir tanımlama varsa bunu kaldırın.

 

[NoiR_DeSiRe]

Teşekkür etmekte biraz geciktiğim için özür...
İnanın çok harikasınız gecikmeli çok teşekkür ederim.