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

Katılım
9 Mayıs 2006
Mesajlar
2
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

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
Kod:
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
 
Üst