Variabler Dateinamen, daraus dann Zellen auslesen
16.07.2018 13:42:30
Manu
nach längerer Suche habe ich leider ein Problem nicht beheben können, obwohl ich gefühlt die Lösung haben müsste. Daher bitte ich nun um eure Hilfe.
Ich versuche ein Makro zu schreiben, damit sich eine Reporting-Tabelle mit Werten aus verschiedenen Quelldateien füllt. Diese Quelldateien werden täglich aktualisiert und abgespeichert (der Ordner füllt sich also).
Ziel ist es, ein Reporting für eine Kampagne zu Thema A und zu Thema B usw. zu erhalten. In dieser Reporting-Tabelle sollen immer tagesaktuell die Werte aus den jeweils aktuellsten Dateien genommen werden, am Folgetag wird dann eine weitere Zeile beschrieben, usw.
Im Kopf klang das alles so einfach.
Aktuell scheitere ich aber am Bezug zu den verschiedenen Dateien und Dateinamen.
Ich habe je Tag 4-7 Reports als Quelle.
Der Aufbau der Dateinamen ist dabei immer gleichbleibend, für jeden der Maximal 7 Quellen und es sind immer Exceldateien (xls Endungen, nicht xlsx).
Kunde_Name_Bezug_Quelle_Datum
Ich arbeite mit Office 2013 / bald Office 365 und schreibe darin die Makros.
Der oben aufgebaute Dateiname kann z.B. sein:
Mueller_Ein Beispiel_Desktop_ABC_30062018.xls
In meiner Reporting-Tabelle habe ich zwei FElder, in denen ich den "Kunde" und den "Name" eintrage. Diese beiden Felder sollen ausgelesen werden und dann genutzt werden, um in dem Ordner die passenden Dateien zu finden. Je nach Bezug und Quelle und Datum müsste ich dann ja weitere Kriterien abfragen / einprogrammieren.
Aktuell sieht mein Code so aus:
Sub suchen()
'Report-Ordner soll durchsucht werden und die jeweils passende Datei wird dann geöffnet, um _
_
Werte auszulesen
Dim Dateiname As String
Dim Suchbegriff As String
Dim Pfad As String
Application.ScreenUpdating = False
Pfad = "C:\Users\ICH\Desktop\Reports\" 'Der Pfad muss einmalig im Makro angepasst werden!!
Suchbegriff = Worksheets("TEMPLATE").Cells(3, 11).Value & "_" & Worksheets("TEMPLATE"). _
Cells(2, 11).Value 'Der Begriff aus Feldern "Kunde" und "Name" wird gesucht
Dateiname = Dir(Pfad & Suchbegriff & "*.xls")'HIER IST DER FEHLER, das klappt nicht...
If Dateiname "" Then
Workbooks.Open Pfad & Dateiname
Else
MsgBox "Keine Ergebnisse gefunden"
Exit Sub
End If
Application.ScreenUpdating = True
End Sub
"Pfad" und "Suchbegriff" werden korrekt erstellt und stimmen mit dem Anfang des Dateinamens überein.
Leider scheitere ich derzeit immer an der Zeile der Dateinamen-Definition.
Die Variable wird einfach nicht gespeichert...
Muss ich denn den Dateinamen ganz exakt eintippen oder reicht die Übereinstimmung mit Kunde und Name, um dann die Datei zu öffnen und erstmal andere Sachen auszuführen...?
Ist der Bezug zum Platzhalter * falsch?
Ganz herzlichen Dank vorab,
schöne Grüße
Manu
