NotePad'deki verileri Excel'e sheet sheet Aktarma

[shiva]

Merhabalar,

Elimde 300bin satılrlık bir notepad(text) verisi bulunmakta. Bu veriyi excel'e ayrı ayrı sheetlerde atmak istiyorum.

(Dosya C:/deneme kalsörünün içinde)

Bununla ilgili daha önce Sayın Leventm bana yardımcı olmuştu ancak pcme image atıldığı ve sitede arama yapmama rağmen bulamadığım için tekrar post açtım.
Mükerrer oldu ise şimdiden özür,

Yardımlarınız için şimdiden teşekkürler.
Herkese iyi çalışmalar.


Engin

 

[shiva]

Cevaplara ulaştım

Sub GetTxtData2()
'Raider ®
    Dim MyFile As String
    MyFile = "C:\Test.txt"
    j = 0
    Set NewSh = Worksheets.Add
    j = j + 1
    NewSh.Name = "TextSheet-150" & j
    Open MyFile For Input As #1
        Do While Not EOF(1)
            i = i + 1
                Line Input #1, InputData
                    Cells(i, 1) = InputData
                        If i > 65535 Then
                            Set NewSh = Worksheets.Add
                            j = j + 1
                            NewSh.Name = "TextSheet-150" & j
                            i = 0
                        End If
        Loop
    Close #1
    Set NewSh = Nothing
End Sub

 

[Haluk]

Aşağıdaki linkte yer alan dosya da yararlı olabilir...

http://www.excel.web.tr/showthread.php?t=39934