Name der aktuell ausgelesenen txt Datei

  • Excel

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Magnus.

    Name der aktuell ausgelesenen txt Datei

    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?

    Visual Basic-Quellcode

    1. Sub ImportDaten()
    2. Dim quelldatei As String
    3. Dim zeile As Integer
    4. Dim inhalt As String
    5. Dim informationen() As String
    6. Dim i, s As Integer
    8. ThisWorkbook.Worksheets("Inputdaten").Activate
    10. zeile = 2
    12. quelldatei = "Pfad\Output_Gesamt_A_20220223.txt"
    14. 'Hier der Schleifenbeginn zum nacheinander Öffnen
    16. Open quelldatei For Input As #1
    17. Do While Not EOF(1)
    18. Line Input #1, inhalt
    19. informationen = Split(inhalt, ";")
    20. For i = 0 To UBound(informationen)
    21. s = i + 1
    22. ActiveSheet.Cells(zeile, s) = informationen(i)
    23. Next
    24. zeile = zeile + 1
    25. Loop
    26. Close #1
    28. ' Hier Schleifenende
    30. End Sub

    CodeTags gesetzt ~VaporiZed

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

    stimmt.

    Ich habe gerade den Workaround, dass ich um die Dateiöffnung herum eine Schleife habe, mit der ich im Verzeichnis alles Dateien öffne und nach dem Namensmuster die Dateibezeichnung in ein Array schreibe.
    Das dauert aber ganz schön lang.
    Mir geht es ja um die 200 Dateien, die da liegen und jeden Tag eine neue kommt.
    Die muss wieder eingelesen werden am Freitag, mit allen neuen. Da brauche ich eine "Anfügeoption".

    Visual Basic-Quellcode

    1. Sub ImportDaten()
    2. Dim quelldatei As String
    3. Dim zeile As Integer
    4. Dim inhalt As String
    5. Dim informationen() As String
    6. Dim i, s As Integer
    7. Dim myAr(), strPfad As String
    8. Dim AA As Long
    9. Dim sFiles As String
    11. ThisWorkbook.Worksheets("Inputdaten").Activate
    13. zeile = 2
    15. strPfad = Pfad ' ist bekannt und fest verdrahtet
    17. 'Alle Dateinamen in ein Array und Abfrage Excel
    19. ReDim Preserve myAr(100000)
    21. sFiles = Dir$(strPfad & "Output_Gesamt_*.txt")
    23. Do While sFiles <> ""
    24. myAr(AA) = sFiles
    26. 'öffne Datei
    27. Open strPfad + myAr(AA) For Input As #1
    28. Do While Not EOF(1)
    29. Line Input #1, inhalt
    30. informationen = Split(inhalt, ";")
    31. For i = 0 To UBound(informationen)
    32. s = i + 1
    33. ActiveSheet.Cells(zeile, s) = informationen(i)
    34. ActiveSheet.Cells(zeile, s + 1) = myAr(AA)
    35. Next
    36. zeile = zeile + 1
    37. Loop
    39. Close #1
    41. AA = AA + 1
    42. sFiles = Dir$()
    43. Loop
    45. If AA > 0 Then
    46. ReDim Preserve myAr(AA - 1)
    47. End If
    49. End Sub


    *Erneut Code-Tags gesetzt, bitte beim nächsten Mal selbst machen*!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Mal kurz eine Nebeninfo: Du deklarierst zwar schön alle Variablen, aber ich glaube, dass dir nicht bewusst ist, dass du i und myAr als Variant deklarierst (Integer und String sind vermutlich gewünscht).

    In VB.NET geht (soweit ich weiß) das hier: Dim x, y As Integer => Beides Integer
    In VB 6 und VBA aber nicht! Dim x, y As Integer => x = Variant (da steht nämlich quasi nur Dim x), y = Integer

    Du möchtest sicher: Dim x As Integer, y As Integer
    Besucht auch mein anderes Forum:
    Das Amateurfilm-Forum

    Visual Basic-Quellcode

    1. Dim FS As Object, Folder As Object, File As Object, Age As Long
    2. Set FS = CreateObject("Scripting.FileSystemObject")
    3. Set Folder = FS.GetFolder(Pfad)
    4. For Each File In Folder.Files
    5. If File.Name Like "Output_Gesamt_*.txt" Then
    6. Age = DateDiff("d",File.DateLastModified,Now)
    7. If Age < 7 Then 'noch keine 7 Tage alt
    8. 'hier einlesen und bearbeiten
    9. End If
    10. End If
    11. Next
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

Facebook
Telefonspende