Laufzeitfehler 52 beim einlesen von Textdateien
19.02.2019 16:51:58
Textdateien
ich versuche gerade mehrere Textdateien in Excel einzulesen. Dabei soll eine Textdatei pro Zeile in Excel auftauchen. Sprich die erste Textdateizeile taucht in der ersten Spalte, die zweite Textdateizeile in der zweiten Spalte etc..
Das funktioniert auch soweit, jedoch bekomme ich bei der Textdatei 513 immer ein Laufzeitfehler. Hier ist laut Internet ein Limitation durch Excel gesetzt(Array Limit). Kann mir jemand helfen und ein Tipp geben wie ich dieses Limit umgehen kann?
Hier der Code:
_____________________________
Sub TXTimportieren()
'Importiert den Inhalt der Textdateien Zeilenweise
'Variablen definieren
Dim Pfad As String
Dim PDFDateipfad As String
Dim Dateiname As String
Dim Dokumentenindex As Long
Dim AnzahlDateien As Integer
Dim Zeile As Integer
Dim Inhalt As String
'Pfad definieren
Pfad = ActiveWorkbook.Worksheets("Menü").Range("C11").Value
'AnzahlDateien aus Menü
AnzahlDateien = ActiveWorkbook.Worksheets("Menü").Range("H7").Value
'Tabellenblatt aktivieren&bereinigen
ThisWorkbook.Worksheets("Import").Activate
ActiveSheet.Columns("A:XX").Delete
'Startwerte zuweisen
For Dokumentenindex = 1 To AnzahlDateien
Zeile = 1
Dateiname = ActiveWorkbook.Worksheets("Übersicht").Range("C" & Dokumentenindex).Value
PDFDateipfad = ActiveWorkbook.Worksheets("Übersicht").Range("A" & Dokumentenindex).Value
ActiveSheet.Cells(Dokumentenindex, 1) = PDFDateipfad
'Quelldatei ansprechen
Quelldatei = Pfad & "\" & Dateiname
'Quelldatei öffnen
Open Quelldatei For Input As #Dokumentenindex
'Informationen in das Tabellenblatt einfügen
Do While Not EOF(Dokumentenindex) 'komplette Datei einlesen(DoSchleife)
'Zeilenweise auslesen
Line Input #Dokumentenindex, Inhalt
'Wert in das Tabellenblatt eintragen
ActiveSheet.Cells(Dokumentenindex, Zeile + 1) = Inhalt
Zeile = Zeile + 1
Loop 'Do Schleifenende
'Quelldatei schließen
Next
End Sub
______________________________________________