sayfa limiti 65536

[ser]

merhaba...
excelde veri alırken metin dosyasi tek calisma sayfasina sıgmayacak kadar
çok veri içeriyor

65536 satir aliyor en fazla bunu daha fazla nasil yaparim veya 2. sayfaya
kalan verileri taşırım.

[ser]

cok tesekkur ederim. sayfa limitinden sonra fazlaliklarin 2. 3. 4. varsa
diger sayfalara gecmesini sitiyorum.

bir de aldigim bir.txt verisi tab ile ayrilmis 2,3 sutunlu olabilir.

bu konudada yardimci olursaniz sevinirim.

serkand

"Sitare Yıldız İŞTAR" <bil...@mynet.com>, haber iletisinde şunları
yazdı:OkH1vhlf...@TK2MSFTNGP02.phx.gbl...
> Merhaba,
> Ekli dosyayı inceleyiniz.
> Saygılar.
>
> --
> ----------------------------------------------------------------------------------------------------------
> "Kara ve deniz geçit vermeyebilir. Sen havayı dene. Yeterki çözüm ara.
> Çözüm bulunur." Daedalus Efsanesi
>
>
>
>
> "ser" <serka...@yahoo.com>, iletisinde şunu yazdı,
> news:O8iksdkf...@TK2MSFTNGP05.phx.gbl...

[Haldun Alay]

Text dosyasının içeriği devamlı değişiyorsa, bu text dosyasını 65536
satırlık ayrı dosyalara bölebilirsiniz. İşlem tamamlandıktan sonra oluşan
her bir dosyayı ayrı ayrı Excel sayfalarına alabilirsiniz. Bunun için
aşağıdaki kodu kullanın.
Const fName="C:\test.txt" satırı ile dosya adını belirtiyorsunuz. Kod
çalıştıktan sonra, text dosyası ile aynı dizinde (dosyadaki satır sayısına
bağlı olarak) .part1.txt, .part2.txt uzantılı dosyalar oluşacak. Bunları
birer birer Excel ile açabilirsiniz.

Sub DosyaParcala()
Const fName = "C:\test.txt" ' Burada tam dosya yolunu ve adını belirtin.
Const targetName = ".part%n.txt"
Dim i As Double, tmp As String
Dim fs As Object
Dim tFile As Object
Dim sFile As Object
Dim sLine As String
Set fs = CreateObject("Scripting.FileSystemObject")
Set sFile = fs.GetFile(fName).OpenAsTextStream
i = 1
tmp = Replace(targetName, "%n", i)
Set tFile = fs.CreateTextFile(Replace(fName, ".txt", tmp))
Do
If sFile.Line Mod 65536 = 1 And sFile.Line <> 1 Then
tFile.Close
i = i + 1
tmp = Replace(targetName, "%n", i)
Set tFile = fs.CreateTextFile(Replace(fName, ".txt", tmp))
End If
sLine = sFile.ReadLine
tFile.WriteLine sLine
Loop Until sFile.AtEndOfStream = True
sFile.Close
tFile.Close
Set sFile = Nothing
Set sFile = Nothing
Set fs = Nothing
End Sub

--
Haldun Alay

"ser" <serka...@yahoo.com>, haber iletisinde şunları
yazdı:%23X6Opgu...@TK2MSFTNGP06.phx.gbl...

[ser]

her iki arkadasa da tesekkur ederim.
sizin yapmis oldugunuz 1 kolon icindi. cok guzel artik kolonlara bolerek
import ederim. fakat txt dosyam unicode oldugu için bir cok yazi
goruntulenemiyor..

"Sitare Yıldız İŞTAR" <bil...@mynet.com>, haber iletisinde şunları

yazdı:e3xZRV$fJHA...@TK2MSFTNGP05.phx.gbl...
> Merhaba,
> Text dosyanızın C sürücüsünde ve adının "1.txt" olduğunu varsayarak,
> 65536
> satırdan fazlasını diğer sayfaya alır. Sayfa yoksa yeni sayfa oluşturur.

>
> "bir de aldigim bir.txt verisi tab ile ayrilmis 2,3 sutunlu olabilir."

> diyorsunuz. Bu konu benim gibi amatörleri aşar. Belki Sayın Alay yardımcı
> olabilir. Biz de öğreniriz.
> Saygılar.