Aus Textdatei in Excel einlesen
Fritz
Ich sehe gerade - nix los heute seit gestern 18 Uhr und'n paar zerquetschten. Ist ja 1. Mai.
Dennoch, vielleicht leidet ja noch jemand unter präseniler Bettflucht wie ich und excelt noch herum. Deshalb die folgende Bitte um Unterstützung und den anderen noch einen schönen erholungsschlaf vom 1. Mai.
Die folgenden Makros habe ich von Hans Herber's CD und versucht, sie an meine Bedürfnisse anzupassen.
Dazu habe ich die Kommata als Zellentrennzeichen durch "//" ersetzt und einige kleine andere Änderungen vorgenommen.
Das Auslesen in die Textdatei funzt, nur beim Einlesen in die Tabelle gibt es Schwierigkeiten.
Das Makro liest die ersten drei Datensätze richtig ein, dann wird plötzlich ein Datensatz statt in die Reihe gelesen zu werden, auf
mehrere Reihen verteilt.
Dann sind wieder einige Datensätze richtig eingelesen.
Aus 81 Datensätzen werden so nach dem Einlesen über 650.
Zur Tabelle selbst:
Einige Datensätze sind bis Spalte CX Zelle für Zelle gefüllt, andere haben nur in Spalte A einen Wert. Viele haben große Lücken.
Alle werden aber mal richtig, mal falsch eingelesen.
Dis is mir viel zu hoch.
Danke für jede Hilfe.
Grüße, Fritz
Sub IntTextDatei()
Dim intRow As Integer, intColCount As Integer, intCol As Integer
Dim strTmp As String
intColCount = Range("A1").CurrentRegion.Columns.Count
intRow = 1
Open "Test.txt" For Output As #1
Do Until IsEmpty(Cells(intRow, 1))
strTmp = ""
For intCol = 1 To intColCount
If strTmp <> "" Then
'hier habe ich statt Kommata // eingefügt
strTmp = strTmp & "//" & Cells(intRow, intCol)
Else
strTmp = Cells(intRow, intCol)
End If
Next intCol
Print #1, strTmp
intRow = intRow + 1
Loop
Close
MsgBox "Habe die Daten eingelesen!"
End Sub
Sub AusTextDatei()
Dim intRow As Integer, intCol As Integer
Dim strTxt As String
Range("A1").CurrentRegion.ClearContents
Open "Test.txt" For Input As #1
Do Until EOF(1)
intRow = intRow + 1
intCol = 0
Line Input #1, strTxt
'hier habe ich statt Kommata // eingefügt
Do Until InStr(strTxt, "//") = 0
intCol = intCol + 1
'hier habe ich statt Kommata // eingefügt
Cells(intRow, intCol) = Left(strTxt, InStr(strTxt, "//") - 1)
'hier habe ich statt Kommata // eingefügt und -1
strTxt = Right(strTxt, Len(strTxt) - InStr(strTxt, "//") - 1)
Loop
Cells(intRow, intCol + 1) = strTxt
Loop
Close
MsgBox "Habe die Daten ausgelesen!"
End Sub