VBA Verweis mit wechselnden Dateinamen
20.02.2019 09:51:38
Hans
ich habe folgendes Problem, bei dem ich aktuell nicht weiter komme und würde mich freuen wenn mir jemand helfen kann.
Grundsätzlich geht es darum, dass ich eine Powerpoint erstellen möchte, die sich "auf Knopfdruck" mit Inhalten aus 5 verschiedenen Excel Dateien befüllt.
Die 5 Excels sind alle identisch aufgebaut.
Ich habe nun bereits einen Code geschrieben, bzw. mir aus dem Internet besorgt, mit dem es möglich ist, die Powerpoint zu füllen.
Ich nutze dazu aktuell folgenden Code:
Sub Text_aus_Excel_erstellen()
Dim wb As Workbook, wks As worksheet
Dim Folie As Slide, Textfeld As Shape
Set wb = workbooks.open (filename:=Dateipfad_Excel, ReadOnly:=True)
Set wks =wb.worksheets (Name_Tabellenblatt)
Set Folie=ActivePresentation.Slides(1)
Set Textfeld =Folie.Shapes (Rechteck9)
Textfeld.TextFrame.TextRange.Text =wks.Range(Zelle aus Excel)
Wb.close savechanges:=False
End Sub
Hierbei wiederholt sich die oben beschriebene Passage eben für 5 verschiedene Excel Dateien, die alle im selben Ordner liegen.
Mein Problem besteht nun darin. Ich möchte das Ganze für ein wöchentliches Reporting verwenden. Sprich der Ordner, in dem die 5 Excel Dateien liegt, wird jede Woche einen neuen Namen haben immer ein Datum.
Die Excel Dateien selbst werden auch stets einen anderen Namen haben, so wird sich z.B. ein Datumsteil im Dateinamen ändern und ggf. eine Versionsnummer anders sein.
Mit meinem aktuellen Code müsste ich nun jede Woche die fett markierte Passage an fünf Stellen im Code ändern.
Gibt es hier eine Möglichkeit, dass man dies vereinfacht oder ganz automatisiert? Ggf. über definieren von Variablen?
Vielen Dank vorab für eure Unterstützung.
Anzeige