Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1668to1672
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Texdatei importieren

Texdatei importieren
23.01.2019 14:31:54
Andy
Hallo liebes Forumteam,
habe wieder mal eine Aufgabe, die ich nicht lösen kann und auch im Archiv nicht gefunden habe für mein Problem.
Es werden auf ein Laufwek mehrer Texdateien von einer Datenbank geschrieben. Das sind Datensätze die bei änderungen in Textdateien geschrieben werden.
Da ich das in dieser Form nicht auswerten kann (unten) möcht ich gerne für jede Textdatei die ich in Excel importiere das in Tabellenform haben mit Die Zeilen sind durch diese _*_*_*_ Zeichen getrennt. Nach diesen Zeichen ist es jeweils ein neuer Datensatz.
Bsp. https://www.herber.de/bbs/user/127024.xlsx
Letzte Änderung: 14.01.2019 15:31:35 von master
4,07
12
100
200
300
400
450
500
550
600
650
800
900
1000
1100
900
500
400
450
350
300
200
100
100
50
296
30
Por-Weiss
9
5
LightGrey
UniversalR11
Null
Null
-*-*-*-

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Kann Datei nicht öffnen
23.01.2019 14:40:53
UweD
AW: Texdatei importieren
23.01.2019 14:58:02
Günther
Moin,
auch ich kann das File nicht öffnen.
Vor allen Dingen: Uns Helfern würde eine *.zip mit 2 der *.txt wesentlich mehr helfen.
Und haben die keine Überschriften?
Ist das immer die gleiche Zahl von Zeilen bis zum neuen Datensatz?
Und wohin bzw. in welcher Form soll das Ergebnis sein? (Wegen der Überschriften).
Gruß
Günther
AW: Texdatei importieren
23.01.2019 15:26:30
Andy
Hallo,
nochnals als ZIP-Datei
Überschriften sindschon in den Register vorhanden.
Also ab Zeile 2 sollen die Datensätze eingefügt werden.
Die Zeilenanzahl kann bei den unterschiedlichen Textdateien unterschiedlich sein, deshalb die Trenung mit den Zeichen _*_*_*_
In einer Textdatei ist die Zeilenanzahl immer gleich.
https://www.herber.de/bbs/user/127031.zip
Anzeige
AW: Texdatei importieren
23.01.2019 15:48:46
Günther
Moin,
vom Prinzip her so?
Dann darfst du dich gerne einmal mit Stichwort: Power Query (2010/13) aka Daten | Abrufen und transformieren (2016/365) auseinander setzen (oder auf andere Lösungen warten).
Gruß
Günther
https://www.herber.de/bbs/user/127033.xlsx
Gute Lösung Günther :-) owT-Gruß
23.01.2019 17:13:19
robert
AW: Texdatei importieren
23.01.2019 15:48:14
Andy
Hallo,
nochnals als ZIP-Datei
Überschriften sindschon in den Register vorhanden.
Also ab Zeile 2 sollen die Datensätze eingefügt werden.
Die Zeilenanzahl kann bei den unterschiedlichen Textdateien unterschiedlich sein, deshalb die Trenung mit den Zeichen _*_*_*_
In einer Textdatei ist die Zeilenanzahl immer gleich.
https://www.herber.de/bbs/user/127031.zip
Anzeige
AW: Texdatei importieren
23.01.2019 16:00:13
UweD
Hallo
ohne die ganzen Makros von dir gelesen zu haben.
Hier eine Lösung von mir
 Sub TxtImp()
    Dim Pfad As String, Ext As String, LR As Long, Z1 As Integer
    Dim Sp As Integer, Zeile As Long, Spalte As Integer
    Dim Datei As String, Inhalt As String
    Dim TB, Such As String, Herkunft As Integer
        
    
    Set TB = Sheets("Zusammenfassen")
    Such = "-*-*-*-"
    Pfad = "X:\Temp\Test\" 'Pfad des Verzeichnisses ggf. anpassen 
    Ext = "*.txt"       'Dateiextension ggf. anpassen 
    Sp = 1 'Startspalte 
    Z1 = 2 'erste Zeile 
    
    
    LR = TB.Cells(TB.Rows.Count, Sp).End(xlUp).Row 'letzte Zeile der Spalte 
    
    If Pfad = "" Or Dir(Pfad, vbDirectory) = "" Then
        MsgBox "Fehler Pfad"
        Exit Sub
    Else
        'reset 
        TB.Rows(2).Resize(LR, 1).EntireRow.ClearContents
        Zeile = Z1 - 1
        
        
        'erste Datei finden 
        Datei = Dir(Pfad & Ext)
        
        Do While Len(Datei) > 0
                Spalte = Sp
                Zeile = Zeile + 1
                
                Close #1
                Open Pfad & Datei For Input As #1
                Do While Not EOF(1)    ' Loop until end of file. 
                    Input #1, Inhalt    ' Read data into two variables. 
                    If Inhalt = Such Then
                        Zeile = Zeile + 1
                        Spalte = Sp
                    Else
                        TB.Cells(Zeile, Spalte) = Inhalt
                        Spalte = Spalte + 1
                    End If
                Loop
                Zeile = Zeile - 1
                        
                Close #1
            
            Datei = Dir()
            
        Loop
    End If
End Sub

LG UweD
Anzeige
AW: Texdatei importieren
24.01.2019 08:35:37
UweD
Hallo
du schriebst:
&gt&gtEs werden auf ein Laufwek mehrer Texdateien von einer Datenbank geschrieben.
Also habe ich das Makro so aufgebaut, dass alle txt- Dateien des Verzeichnisses der Reihe nach abgearbeitet werden.
Aus diesem Grund wird bei PFAD auch nur der Laufwerkspfad eingetragen und NICHT der Pfad inkl. Dateiname.
Also so...
Pfad = "C:\Users\master\Documents\Änderungen\" 'mit \ am Ende OHNE Dateiname
läuft prima
LG UweD
Anzeige
AW: Texdatei importieren
24.01.2019 19:52:00
Andy
Hallo UweD,
klappt wunderbar!
Vielen Dank nochmals

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige