Hallo Gemeinde,
ich komme nicht klar. Entweder ich stelle die falsche Suchanfrage, oder es konnte noch nichts helfen.
Ich lese eine txt Datei ein in Excel. Das klappt. jetzt muss ich nur eine Schleife bauen, um x viele Dateien einzulesen und unten dran zu fügen. Dabei hapert es schon am Namen der jeweiligen Datei, die ich auslese. Da steht das Datum drin, welches noch auf die KW genormt werden muss :)wie kriege ich den Namen der aktuell geöffneten Datei raus?
In meinem Code ist die Datei noch fest verdrahtet. Das Datum wechselt und das brauche ich
Kann da einer helfen?
CodeTags gesetzt ~VaporiZed
ich komme nicht klar. Entweder ich stelle die falsche Suchanfrage, oder es konnte noch nichts helfen.
Ich lese eine txt Datei ein in Excel. Das klappt. jetzt muss ich nur eine Schleife bauen, um x viele Dateien einzulesen und unten dran zu fügen. Dabei hapert es schon am Namen der jeweiligen Datei, die ich auslese. Da steht das Datum drin, welches noch auf die KW genormt werden muss :)wie kriege ich den Namen der aktuell geöffneten Datei raus?
In meinem Code ist die Datei noch fest verdrahtet. Das Datum wechselt und das brauche ich
Kann da einer helfen?
Visual Basic-Quellcode
- Sub ImportDaten()
- Dim quelldatei As String
- Dim zeile As Integer
- Dim inhalt As String
- Dim informationen() As String
- Dim i, s As Integer
- ThisWorkbook.Worksheets("Inputdaten").Activate
- zeile = 2
- quelldatei = "Pfad\Output_Gesamt_A_20220223.txt"
- 'Hier der Schleifenbeginn zum nacheinander Öffnen
- Open quelldatei For Input As #1
- Do While Not EOF(1)
- Line Input #1, inhalt
- informationen = Split(inhalt, ";")
- For i = 0 To UBound(informationen)
- s = i + 1
- ActiveSheet.Cells(zeile, s) = informationen(i)
- Next
- zeile = zeile + 1
- Loop
- Close #1
- ' Hier Schleifenende
- End Sub
CodeTags gesetzt ~VaporiZed
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()