65536 dan çoksa diğer sheet ' e atsın istiyorum....

[yagiz74]

Merhaba Arkadaşlar
Benim şöyle bir sorum olacak, yardımcı olabilirseniz sevinirim.
SQL den (.txt) de olsa işimi görür. Veri aktarımı yaparken , 65536 'dan satırdan çok kayıt varsa bu satırları diğer sheet 'e atmasını istiyorum,nasıl yapabilirim...
Şimdiden teşekkürler...
[/b]

 

[Haluk]

Sub GetTxtData2()
'Raider ®
Dim MyFile As String
MyFile = "C:\Test.txt"
j = 0
Set NewSh = Worksheets.Add
j = j + 1
NewSh.Name = "TextSheet-" & 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-" & j
                        i = 0
                    End If
    Loop
Close #1
Set NewSh = Nothing
End Sub