ich habe bisher in Office 2003 mit folgender Routine eine *xls Datei gesucht und geöffnet:
.
Sub Spiel_starten()
Dim sPath As String, sPattern As String, sFile As String, sName as String
Dim sSpiel as String
sPath = ThisWorkbook.Path & "\" 'sPath = "Pfad zu Dateien"
sPattern = "*.xls" 'nur xls-Dateien einlesen
sFile = Dir(sPath & sPattern) 'sFile = "LW:\Pfad\*.xls"
sName = ActiveWorkbook.Name 'Name der geöffneten Datei
If sPath = "" Then Exit Sub 'Ende, wenn sPath leer
Do Until sFile = "" 'Schleife bis sFile=leer
If sFile sName Then 'Wenn sFile sBeamer ist, dann
sSpiel = sFile 'Name der Datei in Var einlesen
End If
sFile = Dir() 'Nächste *.xls in sFile laden
Loop
Workbooks.Open sPath & sSpiel 'Spieldatei öffnen
End Sub
.
Bedingt durch höheren Office-Versionen kann sPath jetzt sowohl *.xlm als auch *.xlsm Dateien enthalten - jeweils nur ein Dateityp. Wie kann ich in sPattern o.ä. nach beiden Dateitypen suchen lassen und die gefundene öffnen.
.
In Beispiele "Dateien suchen 243704v.xls" ist eine Idee mit arr = Array("*.xls", "*.xlsm") enthalten. Wie kann das in mein o.g. Beispiel einbinden?
Danke & Gruß
Gerd