Dim Dosyam As String
Dosyam = "C:\Deneme.txt"
j = 0
Set NewSh = Worksheets.Add
j = j + 1
NewSh.Name = "TextSheet-" & j
Open Dosyam 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
Bu şekilde diğer sheet'e geçirebilirsiniz.
Ama UZATMAK gibi bir şey yapılamaz diye biliyorum.
İyi günler ben 2007 kullandığımdan öyle bir sorunum yok ama elimde aşağıdaki alıntı var.
Önce Denetim Araç Çubuğunu aktif hale getirin. Bu araç çubuğunun en sonunda
DİĞER DENETİMLER bulunmaktadır. Bu simgeye tıklayın ve Microsoft Office
Spreadsheet 9.0 veya 10.0 ya da 11.0 nesnesini seçin ve sayfanızın üzerine
çizin. Ya da aynı işlemi UserForm için de yapabilirsiniz.
Size tam olarak 262.144 satır ve bir çok da sütun sunulacaktır.
Daha az işlem yapabilme kısıtlaması ancak daha fazla satır ve sütun olanağı.
Bu arada satır sayılarının sektör sayılarıyla orantılı olduğuna dikkat
ediniz.
İlk önceleri sanırım 5.0 ve 7.0 da satır sayısı 16.384 idi.
97'de ise iki katı 32.768 oldu.
O zamndan bu zamana da bir öncekinin iki katı yani 65.536 oldu.
Bu nesnede ise kullandığımız sheetin 4 katı olan 262.144 olarak
görünmektedir.
Yani dikkat ederseniz bir mantık içerisinde artıyor satırlar.
İyi günler.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.