Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
232to236
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
232to236
232to236
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Daten Importieren

Daten Importieren
24.03.2003 16:41:37
Matthias
Hallo

ich habe eine Datei (Test.dat), die aus 10.000.000 (in Worten 10 Millionen) zeilen besteht.

Da Excel nur über 65000 Zeilen pro Blatt lesen kann, suche ich
eine Möglichkeit wie man die anderen Zeilen in die Blätter
Tabelle2, Tabelle3, etc. bis Tabelle411, automatisch importiert.

Wahrscheinlich werde ich jedoch mit Tabelle101 anfangen, dann
kann man die Blätter sortieren und erhält die richtige reihenfolge.

Bitte um hilfe bzw. gedankenanstösse.

Alternativ hierzu würde ich sonst gerne wissen, wie man bei VBA
so programmiert, dass eine datei nur 65000 Zeilen lang ist und
dann eine neue begonnen wird.

vielen Dank.

mfg
matthias

p.s. Programmcode VBA

Sub lotto()
Dim z1 As Integer
Dim z2 As Integer
Dim z3 As Integer
Dim z4 As Integer
Dim z5 As Integer
Dim z6 As Integer
Dim v1 As Integer
Dim v2 As Integer
v1 = 1
v2 = 49
Dim ff As Integer
ff = FreeFile
Open "test.dat" For Output As ff
For z1 = v1 To v2
For z2 = v1 To v2
For z3 = v1 To v2
For z4 = v1 To v2
For z5 = v1 To v2
For z6 = v1 To v2
If z1 < z2 Then
If z2 < z3 Then
If z3 < z4 Then
If z4 < z5 Then
If z5 < z6 Then
Print #ff, z1; z2; z3; z4; z5; z6
End If
End If
End If
End If
End If
Next
Next
Next
Next
Next
Next

Close

End Sub


1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Daten Importieren
24.03.2003 16:50:10
Heidrun

Hhallo Matthias,

in den Beispielen von Hans habe ich unten stehenden Code gefunden.

Damit müßtest Du eigentlich Dein Problem lösen können.

Tschau
Heidrun


Subject: Textdatei mit 250.000 Zeilen anlegen und importieren
Problem: Es soll zuerst ein Textdatei mit 250.000 Zeilen angelegt werden, die dann in mehrere Arbeitsblätter zu importieren ist.
Lösung: Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

Sub Txt2Sheets()
Dim lRow As Long
Dim iWks As Integer
Application.ScreenUpdating = False
FileCopy "c:\test.txt", "c:\test1.txt"
For lRow = 1 To Fix(250000 / 65536) + 1
iWks = iWks + 1
Application.StatusBar = "Importiere " & iWks & ". Blatt..."
Workbooks.OpenText _
Filename:="c:\Test1.txt", _
Origin:=xlWindows, _
StartRow:=1, _
DataType:=xlFixedWidth, FieldInfo:=Array(0, 1)
With ThisWorkbook
ActiveSheet.Move after:=.Worksheets(.Worksheets.Count)
ActiveSheet.Name = "Blatt" & iWks
End With
Call DeleteText
Next lRow
Kill "c:\test1.txt"
Application.StatusBar = False
Application.ScreenUpdating = True
Worksheets("Tabelle1").Select
MsgBox "Job erledigt!"
End Sub

Private Sub DeleteText()
Dim lCounter As Long
Dim sTxt As String
Open "c:\test1.txt" For Input As #1
Open "c:\test2.txt" For Output As #2
Do Until EOF(1)
lCounter = lCounter + 1
Line Input #1, sTxt
If lCounter > 65536 Then
Print #2, sTxt
End If
Loop
Close
Kill "c:\test1.txt"
Name "c:\test2.txt" As "c:\test1.txt"
End Sub

Sub CreateText()
Dim lCounter As Long
Open "c:\test.txt" For Output As #1
For lCounter = 1 To 250000
If lCounter Mod 10000 = 0 Then
Application.StatusBar = "Lege Zeile " & lCounter & " an..."
End If
Print #1, "Zeile " & lCounter
Next lCounter
Close
Application.StatusBar = False
MsgBox "Textdatei wurde angelegt!"
End Sub


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige