AW: Textdatei einlesen
Willie
Hallo Sebastian
man kann auch jeden Satz einzeln einlesen! mit folgendem Makro
Sub Daten_Einlesen_Spezial()
'Daten aus Textdatei Zeilenweise mit rückfrage einlesen
Dim strText As String, strFile As String, strMeldung As String, strFrage As String
Dim lngLine As Long, lngC As Long, lRow As Long, lngCalc As Long
Dim wks As Worksheet
strFrage = "Soll die folgende Zeile übernommen werden?" & vbLf & "Zeile "
With Application
lngCalc = .Calculation
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
On Error GoTo FEHLER
lRow = 1
Set wks = Sheets("Tabelle3") 'Tabelle in die geschrieben wird - anpassen
strFile = Application.GetOpenFilename("Textdateien (*.txt; *.log; *.dat; *.fre),*.txt; *.log; *.dat; *.fre")
If strFile = "Falsch" Then Exit Sub
Close #1
'Öffnen und die Anzahl der zeilen fesstellen
Open strFile For Input As #1
lngLine = 0
Do While Not EOF(1)
Input #1, strText
lngLine = lngLine + 1
Loop
Close #1 'Schliessen
'Öffnen und Daten schreiben
Open strFile For Input As #1
For lngC = 1 To lngLine
Input #1, strText
strMeldung = MsgBox(strFrage & lngC & " von " & lngLine & vbLf & _
vbLf & strText, vbYesNoCancel + vbQuestion, "Auswahl")
If strMeldung = vbYes Then
Cells(lRow, 1) = strText
lRow = lRow + 1
ElseIf strMeldung = vbCancel Then
Exit For
End If
Next lngC
Close #1
Columns(1).TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, Semicolon:=True, Space:=True, Other:=True, _
FieldInfo:=Array(1, 1)
wks.Columns.AutoFit
FEHLER:
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = lngCalc
End With
End Sub
Gruß
Willie