txt in Excel umwandeln

Hallo,
ich habe folgendes Problem. Ich habe eine txt-Datei, die ich in Excel importieren möchte.
Folgenden Code habe ich bisher:

Sub txttoxls(ByVal File As String, ByVal zWkb As String)
Dim txt As String
Dim Buffer As String
Dim acLine As Long
Dim acCol As Long
acLine = 0
acRow = 1
txt = File
Open txt For Input As 1
While Not EOF(1)
Buffer = Input(1, #1)
If Buffer = ";" Then
acLine = acLine + 1
acRow = 1
ElseIf Buffer = "," Then
acRow = acRow + 1
Else
Application.Workbooks(zWkb).Sheets(1).Cells(acLine, acRow).Value = _
Application.Workbooks(zWkb).Sheets(1).Cells(acLine, acRow).Value & _
Buffer
'Application.Workbooks(zWkb).Sheets(1).Cells(1, 2).Value = "tesr"
End If
Wend
Close #1
ActiveWorkbook.Save
End Sub

Die umzuwandelnde Datei sieht folgendermaßen aus (und genau hier liegt das Problem):

;Onlineshop,194160,,LIE15/155448,LIE15/155448,LIE15/155448,LIE15/155448,LIE15/155448
;per Fax,144253,,LIE15/155450
;Onlineshop,193246,,LIE15/155451,LIE15/155451
;per Fax,141250,,LIE15/155456
;per Fax,300114,,LIE15/155457

Bei dem Makro erhalte ich eine Laufzeitfehler in der "Else-Condition". Habt ihr Ideen wo der Fehler liegt?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub txttoxls() Dim txt As String Dim Buffer As String Dim acLine As Long Dim acCol As Long Dim zWkb2 As String Dim xlsName As String Application.Workbooks.Add Cells.Select Selection.NumberFormat = "@" xlsName = zWkb & ActiveWorkbook.Name & ".xls" ActiveWorkbook.SaveAs (xlsName) zWkb2 = Application.ThisWorkbook.Name acLine = 0 acRow = 1 txt = Application.GetOpenFilename("Excel-Dateien (*.txt), *.txt") Open txt For Input As 1 While Not EOF(1) Buffer = Input(1, #1) If Buffer = ";" Then acLine = acLine + 1 acRow = 1 ElseIf Buffer = "," Then acRow = acRow + 1 Else Application.Workbooks(zWkb2).Sheets(1).Cells(acLine, acRow).Value = _ Application.Workbooks(zWkb2).Sheets(1).Cells(acLine, acRow).Value & _ Buffer 'Application.Workbooks(zWkb).Sheets(1).Cells(1, 2).Value = "tesr" End If Wend Close #1 ActiveWorkbook.Save End Sub

Sub aaa() txt2xls "c:\test\test1.txt", "mappe1.xls" End Sub Sub txt2xls(sText As String, sWkb As String) Dim Buffer As String, arrTmp Dim wksZiel As Worksheet Dim lRow As Long Set wksZiel = Workbooks(sWkb).Sheets(1) Open sText For Input As #1 Do While Not EOF(1) lRow = lRow + 1 Line Input #1, Buffer arrTmp = Split(Mid(Trim(Buffer), 2), ",") wksZiel.Cells(lRow, 1).Resize(, UBound(arrTmp) + 1) = arrTmp Loop Close #1 End Sub

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

txt in Excel umwandeln

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread