Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

20 Ocak 2010 Çarşamba

Bring More Information From the 65536th Row



'Module1

‘Bring more information from the 65536th row


Option Explicit
Dim Adet As Double
Dim i As Single, j As Single
Dim TxtDosya As String
Dim YeniSayfa As New Worksheet

Sub SatırSayısındanFazlaDışVeriAlma()
On Error GoTo Hata
TxtDosya = "C:\VeriTabanı.txt"
j = 0
Set YeniSayfa = Worksheets.Add
j = j + 1
YeniSayfa.Name = "Veriler_" & j
Close #1
Open TxtDosya For Input As #1
Adet = VBA.LOF(1)
Do While Not VBA.EOF(1)
i = i + 1
Line Input #1, InputData
Cells(i, 1) = InputData
If (i > 65535) Then
Set YeniSayfa = Worksheets.Add
j = j + 1
YeniSayfa.Name = "Veriler_" & j
i = 0
End If
Loop
Hata:
Close #1
Set YeniSayfa = Nothing
End Sub

Blog Arşivi

Bu gadget'ta bir hata oluştu

Bu Blogda Ara

Contributor

Contributor
Mustafa ULUSARAÇ İstanbul, TÜRKİYE
free counters
T. C. Central Bank Indicative Exchange Rates
Currency Exchange Rate Widget,Currency Converter Widget
Borsa İstanbul