Thema Datum  Von Nutzer Rating
Antwort
Rot Text-Dateien
25.05.2023 12:55:50 Gast83366
NotSolved
25.05.2023 13:08:04 Gast5574
NotSolved
25.05.2023 13:18:32 Gast95457
NotSolved
25.05.2023 13:26:09 Gast10719
NotSolved
25.05.2023 13:31:25 Gast41597
NotSolved
25.05.2023 13:34:35 Gast80043
NotSolved
25.05.2023 13:35:01 Gast41597
NotSolved
25.05.2023 13:38:19 Gast41597
NotSolved
25.05.2023 13:47:47 Gast2216
NotSolved
25.05.2023 13:55:10 Gast89983
NotSolved
25.05.2023 13:56:45 Gast36032
NotSolved
25.05.2023 14:04:51 Gast89940
NotSolved
25.05.2023 14:05:59 Gast21773
NotSolved
25.05.2023 13:37:34 Gast96653
NotSolved
25.05.2023 13:44:58 Gast39489
NotSolved
25.05.2023 14:36:45 Der Steuerfuzzi
NotSolved
25.05.2023 14:55:15 Der Steuerfuzzi
NotSolved
25.05.2023 15:29:49 Gast86874
NotSolved
25.05.2023 22:17:23 Mase
NotSolved
25.05.2023 22:47:19 Heiko
NotSolved
25.05.2023 23:03:15 xlKing
NotSolved
28.05.2023 01:49:24 N/A
NotSolved

Ansicht des Beitrags:
Von:
Gast83366
Datum:
25.05.2023 12:55:50
Views:
813
Rating: Antwort:
  Ja
Thema:
Text-Dateien

<p>Hi, ich möchte einen VBA-Code schreiben, welcher Text-Dateien aus einem Ordner in eine Arbeitsmappe einfügt. Dabei sollen die verschiedenen Text-Dateien nebeneinander in verschiedenen Zellen stehen. Die Zeilen der Text-Dateien sollen ebenfalls in verschiedenen Zellen untereinander stehen. In meinem Code wird mir ein Laufzeitfehler 62 angezeigt. Kann mir jemand helfen?</p>

Sub TextdateienImportieren()

    Dim fso As Object
    Dim Ordner As Object
    Dim Datei As Object
    Dim Spalte As Long
    Dim Zeile As Long
    Dim Inhalt As String
    Dim Dateiname As String
    Dim ZeilenArray() As String
    
    ' Pfad zum Ordner, der die Textdateien enthält
    Dim Ordnerpfad As String
    Ordnerpfad = "Dateienpfad"
    
    ' Tabellenblatt und Startposition für den Import
    Dim Tabelle As Worksheet
    Set Tabelle = ThisWorkbook.Sheets("Tabelle1")
    Spalte = 1 ' Startspalte für den Import
    Zeile = 1 ' Startzeile für den Import
    
    ' Erstelle ein FileSystemObject, um auf den Ordner zuzugreifen
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set Ordner = fso.GetFolder(Ordnerpfad)
    
    ' Schleife durch alle Dateien im Ordner
    For Each Datei In Ordner.Files
        
        ' Prüfe, ob die Datei eine Textdatei ist (.txt)
        If Right(Datei.Name, 4) = ".txt" Then
        
            ' Öffne die Textdatei und lese den Inhalt
            Inhalt = ""
            Dateiname = Datei.Path
            Open Dateiname For Input As #1
            Inhalt = Input(LOF(1), #1)
            Close #1
            
            ' Teile den Inhalt in Zeilen auf
            ZeilenArray() = Split(Inhalt, vbCrLf)
            
            ' Füge den Inhalt in die Tabelle ein
            Tabelle.Cells(Zeile, Spalte).Value = Dateiname ' Schreibe den Dateinamen in die Zelle
            
            ' Schreibe den Inhalt der Textdatei in separate Zellen untereinander
            For i = 0 To UBound(ZeilenArray)
                Tabelle.Cells(Zeile + i + 1, Spalte).Value = ZeilenArray(i)
            Next i
            
            ' Erhöhe die Startposition für den nächsten Import
            Spalte = Spalte + 1 ' Erhöhe um 1 Spalte, um Platz für den nächsten Dateinamen zu lassen
            Zeile = 1 ' Setze die Zeile für den nächsten Import zurück
            
        End If
        
    Next Datei
    
    ' Gib Speicherplatz frei
    Set Ordner = Nothing
    Set fso = Nothing
    
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 Text-Dateien
25.05.2023 12:55:50 Gast83366
NotSolved
25.05.2023 13:08:04 Gast5574
NotSolved
25.05.2023 13:18:32 Gast95457
NotSolved
25.05.2023 13:26:09 Gast10719
NotSolved
25.05.2023 13:31:25 Gast41597
NotSolved
25.05.2023 13:34:35 Gast80043
NotSolved
25.05.2023 13:35:01 Gast41597
NotSolved
25.05.2023 13:38:19 Gast41597
NotSolved
25.05.2023 13:47:47 Gast2216
NotSolved
25.05.2023 13:55:10 Gast89983
NotSolved
25.05.2023 13:56:45 Gast36032
NotSolved
25.05.2023 14:04:51 Gast89940
NotSolved
25.05.2023 14:05:59 Gast21773
NotSolved
25.05.2023 13:37:34 Gast96653
NotSolved
25.05.2023 13:44:58 Gast39489
NotSolved
25.05.2023 14:36:45 Der Steuerfuzzi
NotSolved
25.05.2023 14:55:15 Der Steuerfuzzi
NotSolved
25.05.2023 15:29:49 Gast86874
NotSolved
25.05.2023 22:17:23 Mase
NotSolved
25.05.2023 22:47:19 Heiko
NotSolved
25.05.2023 23:03:15 xlKing
NotSolved
28.05.2023 01:49:24 N/A
NotSolved