Clever-Excel-Forum - Daten auslesen ohne File zu öffnen

Hallo zusammen!

Leider bin ich kein Excel-Ass & stoße bei diesem Problem an meine Grenzen, konnte bisher auch online leider nichts hilfreiches finden.
Ich muss für meine Bachelorarbeit eine große Anzahl von Daten auswerten (2 Ordner mit 3911 bzw. 3872 Dateien), wobei ich natürlich nicht jedes File einzeln öffnen möchte.

Im Anhang finden sich 3 Dateien aus dem besagten Datensatz. [attachment=23954][attachment=23955][attachment=23956]

Die benötigten Daten befinden sich in A3, A4, A14-A18, A21, A22

Wie kann ich all diese Daten in einer Datei zusammenfassen ohne jede Datei öffnen zu müssen? (Daher sollten Makros doch ausscheiden?)

Warum bisher andere Lösungsvorschläge (vermutlich) gescheitert sind:
Alle Dateien sind als .csv gespeichert
Der Name der Blätter/Sheets ist der selbe wie der Name der Datei, daher nicht für alle Dateien gleich

Bin für jegliche Hilfe und Ansätze sehr dankbar!

Viele Grüße,
Hawel

Guten Morgen,

der Kaffee wirkt noch nicht so richtig, deshalb eher eine indirekte Hilfe:

Fragen zu

- Dateien auslesen ohne zu Öffnen
- kein VBA

beantworte ich eigentlich nicht. Deshalb nur sehr knapp:

Wenn man die Dateien mit VBA öffnet und die gewünschten Zellen in ein Ziel-Workbook kopiert, sollte deine Aufgabe recht gut lösbar sein.

Sonst ...

mfg

Hallo Fennek,

danke für die Hilfestellung!

Mit VBA habe ich bisher überhaupt keine Bekanntschaft gemacht, daher verstehe ich deine indirekte Hilfe leider nicht. Gibt es da ggf. eine simple Anleitung etc.?

Kann man mit VBA alle Dateien gleichzeitig öffnen? Ansonsten würde das den Punkt mit fast 4000 Excel-Files nicht öffnen zu müssen nicht erfüllen...

Hallo Hawel,

erzähl mir lieber mal, wo die Daten hin sollen ... mach am besten ein Beispiel aus den drei CSV-Files.

Hallo

Ich würde hier Power Query vorschlagen.

Hallo Flotter Feger!

Die Daten sollten in irgend eine separaten Datei hineinkommen (.csv, .xlsm etc. völlig egal)
Am besten so oder so ähnlich wie in folgender Beispieldatei:
[attachment=23958]

Hallo Hawel,

deine Beschriftungen musst du selbst erstellen ... und deine Formate musst du ebenfalls einstellen ... ist schließlich deine Bachelor-Arbeit. :17:

Dann eventuell so ...

Code:
Sub Read_All(ByVal Ordner As String, ByVal Tabelle As String, ByVal Zeile As Long, ByVal Spalte As Long)

Dim sFile As String, sWhole As String

Dim arrFile As Variant

Dim arrZahl As Variant

Dim i As Long

Dim Zeile1 As Long

Dim ff As Long

arrZahl = Array(3, 4, 14, 15, 16, 17, 18, 21, 22)

sFile = Dir(Ordner & "\*.csv")

Zeile1 = Zeile

Do While sFile <> ""

    ff = FreeFile

    Open Ordner & "\" & sFile For Input As #ff

        sWhole = Input$(LOF(1), 1)

    Close #ff

    arrFile = Split(sWhole, vbNewLine)

    With Worksheets(Tabelle)

        For i = LBound(arrZahl) To UBound(arrZahl)

            .Cells(Zeile1, Spalte).Value = Split(arrFile(arrZahl(i) - 1), ",")(1)

            Zeile1 = Zeile1 + 1

        Next i

    End With

    Spalte = Spalte + 1: Zeile1 = Zeile

    sFile = Dir()

Loop

End Sub

Sub Test()

Call Read_All(Ordner:="C:\Ordner1", Tabelle:="Tabelle1", Zeile:=11, Spalte:=2) 'Einstellungen hier machen ... da gehen die Daten hin

Call Read_All(Ordner:="C:\Ordner2", Tabelle:="Tabelle1", Zeile:=21, Spalte:=2)

End Sub

Hat funktioniert!

Vielen vielen Danke euch allen für die Hilfe!