Mittels VBA verschiedene CSV's in Ordnern und Unterordner auslesen

Diskutiere Mittels VBA verschiedene CSV's in Ordnern und Unterordner auslesen im Office Forum im Bereich Microsoft Community Fragen; Hallo! Hab eine etwas speziellere Frage. Ich bekomm mehrere CSV's welche gleich aufgebaut sind und mittels Semikolon getrennt sind. Jetzt...
M

MSCom

Neuer Benutzer
Threadstarter
Mitglied seit
20.09.2016
Beiträge
1
Hallo!


Hab eine etwas speziellere Frage.

Ich bekomm mehrere CSV's welche gleich aufgebaut sind und mittels Semikolon getrennt sind.

Jetzt brauch ich von diesen CSV's jeweils den Dateinamen und zusätzlich den ersten und den letzten Eintrag der Spalte C.

Die Anzahl ist immer variable also müsste VBA selbst erkennen welche die letzte gefüllte Zeile ist.


Ich hab es bis jetzt nur geschafft alle Dateinamen aus den Ordnern und Unterordnern aufzulisten.

Leider nicht diese zu öffnen und mir den ersten Wert und den letzten Wert wiederzugeben.


Danke!

Untenstehend der aktuelle Code


Sub DateienMitUnterordnernAuflisten()

Dim lngZeile As Long
Dim objFileSystem As Object
Dim objVerzeichnis As Object
Dim objDateienliste As Object
Dim objDatei As Object

Set objFileSystem = CreateObject("scripting.FileSystemObject")
Set objVerzeichnis = objFileSystem.getfolder("PFAD")
Set objDateienliste = objVerzeichnis.Files

lngZeile = 1

For Each objDatei In objDateienliste
If Not objDatei Is Nothing Then
ActiveSheet.Cells(lngZeile, 1) = objDatei.Name
lngZeile = lngZeile + 1
End If
Next objDatei

Call UnterOrdnerAuslesen(objVerzeichnis)

End Sub

Sub UnterOrdnerAuslesen(ByVal strDateipfad As String)

Dim objFileSystem As Object
Dim objVerzeichnis As Object
Dim objUnterordner As Object
Dim objDatei As Object
Dim i As Long

Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objVerzeichnis = objFileSystem.getfolder(strDateipfad)

If Cells(Rows.Count, 1).End(xlUp).Row >= 1 Then
i = Cells(Rows.Count, 1).End(xlUp).Row + 1
Else
i = 1
End If

For Each objUnterordner In objVerzeichnis.subfolders
For Each objDatei In objUnterordner.Files
If Not objDatei Is Nothing Then
ActiveSheet.Cells(i, 1) = objDatei.Name
i = i + 1
End If
Next objDatei

Next objUnterordner

End Sub
 
#
Schau dir mal diesen Ratgeber an. Dort wird jeder fündig!
Registrieren bzw. einloggen, um diese und auch andere Anzeigen zu deaktivieren
Thema:

Mittels VBA verschiedene CSV's in Ordnern und Unterordner auslesen

Sucheingaben

turtle creek casino

,

casino online free

,

rhythm city casino

,
pokcer free
, pineapple pokeGr, pineapple poker, strip poker, belterra c[asino, belterra casino, games poker, free slots casino games, does three of a kind beat two pair in pokerr, does three of a kind beat two pair in poker, boyaa pokeKr, boyaa poker, cmasino in los angeles, online pCoker tips, turtle creek cgasino, casinFo online free

Mittels VBA verschiedene CSV's in Ordnern und Unterordner auslesen - Ähnliche Themen

  • Outlook Ordner mit unglesenen emails mittels Formatierung hervorheben

    Outlook Ordner mit unglesenen emails mittels Formatierung hervorheben: Hallo Zusammen, nach langer Recherche ist die einstimmige Meinung, mit Office 365 geht das nicht mehr. Das stimmt nur eingeschränkt, denn ich...
  • Kalender/Termin-Erinnerungen werden beim Import mittels .ics Datei nicht erstellt - Outlook 2019

    Kalender/Termin-Erinnerungen werden beim Import mittels .ics Datei nicht erstellt - Outlook 2019: Hallo, ich habe mit Outlook 2019 das Problem, dass beim Import eines Kalenders, aus einer .ics Datei, die Erinnerungen nicht erstellt werden...
  • Erinnerungen werden beim Import mittels .ics Datei nicht erstellt - Outlook 2019

    Erinnerungen werden beim Import mittels .ics Datei nicht erstellt - Outlook 2019: Hallo, ich habe mit Outlook 2019 das Problem, dass beim Import eines Kalenders, aus einer .ics Datei, die Erinnerungen nicht erstellt werden...
  • Windows 10 Upgrade mittels Media Creation Tool - Abbruch mit Fehlercode 0x80200013 - 0x90019

    Windows 10 Upgrade mittels Media Creation Tool - Abbruch mit Fehlercode 0x80200013 - 0x90019: Hallo in die Expertenrunde, leider bricht die Installation von Windows 10 mit dem MediaCreationTool mit dem genannten Fehlercode ab. Recherche...
  • Excel VBA – Mit Autofilter ausgewählter Bereich mittels Makro kopieren

    Excel VBA – Mit Autofilter ausgewählter Bereich mittels Makro kopieren: Ich habe einen Datenbereich von N4:T286. Mit welcher Variablen kann ich im Makro den mit dem Autofilter ausgewählten Bereich jeweils auswählen...
  • Ähnliche Themen

    Oben