Thema Datum  Von Nutzer Rating
Antwort
Rot Laufzeitfehler 52 beim Einlesen von Textdateien
 19.02.2019 16:48:51 Arne
NotSolved
19.02.2019 17:50:40 Gast81061
Solved
19.02.2019 17:53:42 Gast73361
NotSolved

Ansicht des Beitrags:
Von:
Arne		 Datum:
19.02.2019 16:48:51		 Views:
834		 Rating:
     
Antwort:
  Ja
Thema:
Laufzeitfehler 52 beim Einlesen von Textdateien
Schönen Guten Tag,
 
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?
 
 
_____________________________________________________________________________________________________
 
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
______________________________________________________________________________________________________________________________

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Laufzeitfehler 52 beim Einlesen von Textdateien
 19.02.2019 16:48:51 Arne
NotSolved
19.02.2019 17:50:40 Gast81061
Solved
19.02.2019 17:53:42 Gast73361
NotSolved