Laufzeitfehler 62 Textdatei

Hallo,
Die Daten aus einer Excel-Tabelle in eine Textdatei funktioniert.
Jedoch beim auslesen kommt der Laufzeitfehler 62
Was stimmt hier nicht?
Danke!
Gruß
Sigi
Option Explicit
Public sFile As String, sDatei As String
Public iRow As Integer, iCol As Integer, iFile As Integer

Sub txt_erstellen()
Dim sTxt As String
sFile = ThisWorkbook.Path & "\Test\" & "Muster.txt"
iFile = FreeFile
Open sFile For Output As iFile
For iRow = 1 To ActiveSheet.Cells(Rows.Count, 12).End(xlUp).Row
For iCol = 9 To 16
sTxt = sTxt & ActiveSheet.Cells(iRow, iCol).Value & ";"
Next iCol
sTxt = Left(sTxt, Len(sTxt) - 1)
Print #iFile, sTxt
sTxt = ""
Next iRow
Close iFile
End Sub

Sub txt_oeffnen()
Dim sI As String, sJ As String, sK As String, sL As String, sM As String
Dim sN As String, sO As String, sP As String
sDatei = "Muster.txt"
sFile = ThisWorkbook.Path & "\Test\" & sDatei
If Dir(sFile) = "" Then
MsgBox "Die Datei wurde nicht gefunden!"
Exit Sub
End If
iFile = FreeFile
Open sFile For Input As iFile
Do Until EOF(iFile)
iRow = iRow + 1
Input #iFile, sI, sJ, sK, sL, sM, sN, sO, sP
ActiveSheet.Cells(iRow, 9).Value = sI
ActiveSheet.Cells(iRow, 10).Value = sJ
ActiveSheet.Cells(iRow, 11).Value = sK
ActiveSheet.Cells(iRow, 12).Value = sL
ActiveSheet.Cells(iRow, 13).Value = sM
ActiveSheet.Cells(iRow, 14).Value = sN
ActiveSheet.Cells(iRow, 15).Value = sO
ActiveSheet.Cells(iRow, 16).Value = sP
Loop
Close iFile
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub txt_oeffnen() Dim sI As String, sJ As String, sK As String, sL As String, sM As String Dim sN As String, sO As String, sP As String sDatei = "Muster.txt" sFile = ThisWorkbook.Path & sDatei If Dir(sFile) = "" Then MsgBox "Die Datei wurde nicht gefunden!" Exit Sub End If iFile = FreeFile irow = 1 spalte = 9 Open sFile For Input As iFile Do Until EOF(iFile) Line Input #iFile, inhalt ActiveSheet.Cells(irow, spalte).Value = inhalt spalte = spalte + 1 If spalte = 16 Then spalte = 9 irow = irow + 1 End If Loop Close iFile End Sub

Sub txt_oeffnen() Dim sI As String, sJ As String, sK As String, sL As String, sM As String Dim sN As String, sO As String, sP As String sDatei = "Muster.txt" sFile = ThisWorkbook.Path & sDatei If Dir(sFile) = "" Then MsgBox "Die Datei wurde nicht gefunden!" Exit Sub End If iFile = FreeFile iRow = 1 icol = 9 Open sFile For Input As #1 Do Until EOF(1) Line Input #1, sTxt temp = Split(sTxt, ";") ActiveSheet.Cells(iRow, icol).Resize(, UBound(temp) + 1).Value = temp ActiveSheet.Cells(iRow, icol).Resize(, UBound(temp) + 1).NumberFormat = "General" ActiveSheet.Cells(iRow, icol).Resize(, UBound(temp) + 1).Value = ActiveSheet.Cells(iRow, icol). _ Resize(, UBound(temp) + 1).Value iRow = iRow + 1 Loop Close End Sub

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread