Excel sayfasına sığmayan bilgi

[tetrax]

merhaba sevgili arkadaşlar.

bir text dosyasından excel'e veri aktarmam gerekiyor.
ancak text dosyasında excel'in (2003) kabul edebildiğinin nerdeyse 10 katı kadar daha fazla satırda veri bulunuyor. (600.000 küsur)

text dosyasından verileri okuyup, sayfa kapasitesi doldukça kaydedip,
yeni bir sayfaya geçerek, kaldığı yerden okumaya devam eden,
o sayfada dolunca tekrar kaydedip, yine yeni bir sayfaya geçen .....

buna benzer bir makro yapılabilir mi ?

yoksa text dosyasını 10'a parçalayıp hepsini tek tek mi excel'e okutmak gerekiyor illa ki ?

eğer 2. şıktan başka çözüm yoksa bunu verilere zarar vermeden yapabilen bir program önerebilir misiniz ?

teşekkür ederim...

 

[Haluk]

Arama motorunu kullanın, aynı konu hakkında daha önce cevap yazmıştım.

http://www.excel.web.tr/showthread.php?t=39934&highlight=text+ado

 

[tetrax]

sevgili Haluk, çok teşekkür ederim.
arama işleminde sanırım doğru kelimeleri kullanmadım.
ilgin için tekrar teşekkür ederim...
iyi günler...

 

[ali1968]

Excel 'de 65 bin satırı aşan verileri açmaya yardımcı dosya

Sn. Arkadaşım;

65 satırı aşan sayıda veriye sahip bir metin dosyasını açmaya çalıştığımda RS.OPEN satırında hata verdi.
Sorun hakkında bilgi verebilir misiniz?

Saygılarımızla,

Ali KILIÇ


Sub ImportTxtFile()
Dim strFilePath As String, strFileName As String, strFullPath As String
Dim AdoCN As Object, RS As Object, FSO As Object
strFullPath = Application.GetOpenFilename("Text Dosyaları (*.txt),*.txt", , "Dosya seçin...")
If strFullPath = "False" Then Exit Sub
Application.ScreenUpdating = False
Set FSO = CreateObject("Scripting.FileSystemObject")
strFilePath = FSO.GetFile(strFullPath).ParentFolder.Path
strFileName = FSO.GetFile(strFullPath).Name
Set AdoCN = CreateObject("ADODB.CONNECTION")
AdoCN.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strFilePath & ";" & _
"Extended Properties=""text;HDR=No;FMT=Delimited"""
Set RS = CreateObject("ADODB.RECORDSET")
RS.Open "select * from " & strFileName, AdoCN, 3, 1, 1
While Not RS.EOF
Set NewSh = Sheets.Add(After:=Sheets(Sheets.Count))
NewSh.Name = "Ek-" & i + 1
ActiveSheet.Range("A1").CopyFromRecordset RS, 65536
i = i + 1
Wend
RS.Close
AdoCN.Close
Application.ScreenUpdating = True
Set RS = Nothing
Set AdoCN = Nothing
Set FSO = Nothing
End Sub