Dynamischer Zugriff auf geschlossene CSV Dateien

Guten Tag zusammen,
ich habe da ein Problem welchen ja schon sehr häufig in den verschiedensten Foren diskutiert wurde. Leider habe ich noch keinen Lösungsansatz gefunden den ich so gut verstehe dass ich ihn an meine Gegebenheiten anpassen konnte.
Also erst einmal zu den Gegebenheiten.
Wir werten all unsere Produktionsaufträge nach Energieverbräuchen aus. Dazu wird von einem externen Programm der Verbrauch ermittelt und die Ergebnisse werden in eine CSV Datei gespeichert. Diese ist vom Aufbau her immer gleich. Ein Zellbezug ist also möglich.
Folgende Zellen der Datei werden benötigt A1;B5;B9
Der Dateiname ist allerdings immer unterschiedlich. All diese generierten Dateien liegen fest in einer immer gleichbleibenden Ordnerstruktur.
In meinem Fall ist das: N:\FKW\Produktion\Auftragsauswertung Energieverbrauch\Excel Data\
Mit jedem neuen Auftrag den wir erledigt haben kommt also in dieser Struktur eine CSV Datei hinzu.
Nun habe ich vor mit einer Excel Tabelle oben benannte Zellen aus allen CSV Dateien auszulesen um diese mit einander Vergleichen zu können.
In meiner Excel Datei habe ich mir ein Makro eingebaut welches in der ober beschriebenen Ordnerstruktur nach CSV Dateien sucht und mir alle gefundenen Dateinamen untereinander in meine Spalte A ab Zeile 7 einträgt.
Das funktioniert bisher auch super. In Spalte D,E und F zerlege ich die gefundenen Dateinamen und lasse mir nur bestimmte Bereiche des Namens anzeigen. (Um den Dateinamen zu entschlüsseln)
Nun möchte ich in den folgenden drei Spalten (G;H;I) jeweils einen Zellwert der CSV Datei die in Spalte A gelistet ist angezeigt bekommen. (In Spalte G den Wert der Zelle A1, in Spalte H den Wert der Zelle B5 und in Spalte I den Wert der Zellen B9)
Diese sind aber immer unterschiedlich im Namen wie auch in der Anzahl. (Momentan sind es noch 11 Dateien, in einem Monat können es aber auch schon 50 Dateien sein)
Da ich die Dateien natürlich nicht alle von Hand öffnen möchte, fällt die Funktion Indirekt ja schon mal aus. Mit allen VBA Lösungen die ich im Netz bisher gefunden habe bin ich noch nicht weiter gekommen, da ich sie schlichtweg nicht verstehe 
Auch den nachfolgenden Vorschlag habe ich bereits versucht umzusetzen, allerdings ist dies nicht geglückt.
http://www.excelformeln.de/tips.html?welcher=107
Ich hoffe es ist trotz des vielen Texts noch zu verstehen welches Problem ich habe, ich bin über jeglichen Tipp und Hilfestellungen dankbar.
Gruß Rico

Hi zusammen,
die Textdatei sieht doch so aus:

Anlage C: 14.12.2015 17:00:00 - 15.12.2015 03:10:00
Bereich;Summe;Einheit
Anlage C Gas;95,29 ;Nm³
Anlage C Gas;952,86 ;kWh
Anlage C Strom;908,90 ;kWh
Anlage C Strom Global;0,54 ;kWh
Betriebsstrom;32,27 ;kWh
Stromverbrauch Gesamt;941,71 ;kWh

@Rudi: das SIND doch 9 Zeilen?!
Du willst also die 1. Zeile komplett (kein ";") und dann die 952,86 aus Zeile 5 und die 941,71 aus Zeile 9, richtig?
Du schreibst ja in der 1. Nachricht, daß Du die Dateinamen bereits ausgelesen hast, in Spalte A bzw. D-F, und zwar ab Zeile 7.
Also muß man Rudis Makro nur etwas ändern, etwa so:

Option Explicit
Sub einlesen()
Dim arr(2), lRow As Long, sFile As String, sTmp As String
Dim i As Integer, z As Long
lRow = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
If lRow  "" Then
Open sFile For Input As #1
For i = 1 To 9
Line Input #1, sTmp
Select Case i
Case 1: arr(0) = Split(sTmp, ";")(0)
Case 5: arr(1) = Split(sTmp, ";")(1)
Case 9: arr(2) = Split(sTmp, ";")(1)
End Select
Next i
Close #1
Sheets(1).Cells(z, 7).Resize(, 3) = arr  'die 3 Werte
Else
Sheets(1).Cells(z, 7).Value = "Datei nicht gefunden"
End If
Next
End Sub

Schöne Grüße,
Michael

Dynamischer Zugriff auf geschlossene CSV Dateien

Forumthread: Dynamischer Zugriff auf geschlossene CSV Dateien

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial