Hallo,
ich möchte mit VBA mehrere Textdateien in einer bestimmten Reihenfolge öffnen. Dies soll mit einer Schleife geschehen, da nach jedem Öffnen dieser Datei ein Algorithmus mit Hilfe von Kennzahlen aus dieser Datei ablaufen soll.
Mein Ansatz war, jede Datei mit einer Endung von 1 bis 20 zu Bezeichnen, d.h. es gibt 20 Dateien die sequentiell geöffnet werden sollen.
Datei 1 Öffnen
Algorithmus abarbeiten
Datei 1 schließen
Datei 2 öffnen
Algorithmus abarbeiten
Datei 2 schließen (und so weiter 20 mal)
Der foglende aufgeführte Ansatz ist natürlich nicht möglich da es sich bei den angebenen Pfad um ein String handelt, welches mein Problem ist.
Wie kann man das umgehen?
Sub Dateioeffnen ()
For i = 1 To 20
Workbooks.Open Filename:="G:\SWH Praktikum\VBA\MSP1\Koordinaten MSP"& i &".xlsx"
--> Algorithmus
ActiveWorkbook.Close
Next i
End Sub
|