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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub aaa() Dim arr(2), lRow As Long, sFile As String, sTmp As String, i As Integer Const sPfad = "N:\FKW\Produktion\Auftragsauswertung Energieverbrauch\Excel Data\" sFile = Dir(sPfad & "*.csv") Do While sFile "" lRow = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1 Open sPfad & 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(lRow, 1) = sFile 'Dateiname Sheets(1).Cells(lRow, 7).Resize(, 3) = arr 'die 3 Werte sFile = Dir Loop End Sub

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

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

Hallo zusammen,
ich hätte da noch zwei kleine Fragen.
Wie weiter oben beschrieben stehen bei mir in Spalte A die Dateinamen. Diese werden nicht handschriftlich eingetragen sondern durch eine Formel dort eingefügt.
Wenn ich nun das Makro starte liefert es mir am Ende eine Laufzeitfehler weil z.B. in Zelle A51 - A200 keine Dateinamen enthalten sind aber diese durch die hinterlegte Formel halt auch nicht "leer" sind.
Lässt sich das irgendwie lösen? Die Ergebnisse sind zwar absolut korrekt aber eine Fehlermeldung sieht ja doch irgendwie unschön aus.
Meine zweite Frage bringt mich fast zum verzweifeln, weil ich es schon einmal gelöst hatte mir aber keine Sicherungskopie dazu erstellt habe, und nun bekomme ich es einfach nicht mehr hin.....
Meine Dateinamen in Spalte A7 .... sehen in etwa so aus
DN1000_PR 75-29.3_023_5014887.CSV
DN1200_PKSplus 42-4.9_023_5014933.CSV
nun möchte ich in Spalte F nur die Materialkennzahl sehen. Diese ist die 3 stellige Zahl zwischen den "_" also in den obigen Fällen "023"
Leider ist links und rechts davon der Text immer unterschiedlich lang, und mit finden() bekomme ich immer Probleme mit dem ersten "_" am Anfang nach DN....
Kann mir da villeicht jemand auf die sprünge helfen, ich habe schon gefühlt 100 Varianten von =teil;finden;suchen;rechts;links etc. ausprobiert.
Vielen Dank schon im Voraus,
Gruß
Rico

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 5 Then If Dir(sFile) "" Then Open sFile For Input As #1 For i = 1 To 7 Line Input #1, sTmp Select Case i Case 1: arr(0) = Split(Split(sTmp, ";")(0), ":")(0) Case 5: arr(1) = Split(sTmp, ";")(1) Case 7: 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 Else Sheets(1).Cells(z, 7).Value = "kein Name vorhanden" End If Next End Sub

Beliebteste Forumthreads (12 Monate)

Dynamischer Zugriff auf geschlossene CSV Dateien

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dynamischer Zugriff auf geschlossene CSV Dateien

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread