Dateien mit verschiedenen Erweiterungen öffnen
26.04.2019 15:35:12
Niclaus
In einer Tabelle stehen Datei-Namen ohne Erweiterung. Die drei unten im Printscreen aufgeführten Dateien befinden sich alle im gleichen Ordner, haben aber verschiedene Erweiterungen: die eine "xls", die andere "xlsm" und die dritte "xlsx".
Die drei aufgeführten Dateien sollen geöffnet werden. Wenn alle die gleiche Erweiterung hätten (z. B. xlsm) geht das ohne Probleme:
Sub DateienOeffnen()
awbn = ActiveWorkbook.Name
pfn$ = Cells(2, 1) & "\"
For i = 4 To 6
dat$ = Cells(i, 1) & ".xlsm"
Workbooks.Open Filename:=pfn & dat
Windows(awbn).Activate
Next i
End Sub
Wie müsste das Makro heissen, wenn die Erweiterungen wie gesagt mal "xls", mal "xlsm" oder "xlsx" wären? - Geht das überhaupt mit einem einzigen Makro?
Vielen Dank und freundliche Grüsse Niclaus
Anzeige