Datei öffnen (Erweiterung)
02.11.2004 15:40:30
Niels
der Sepp hat mir vor einigen Wochen schon mal mit folgendem Code geholfen:
(Vielen Dank Sepp!!! www.herber.de/forum/archiv/504to5087/t505737.htm#505737)
Sub Oeffnen()
Dim strName As String
Dim fs As Object
strName = "D:\Temp\" & Format(ActiveSheet.Range("A1"), "ddmmyyyy") & ".xls"
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.fileexists(strName) Then
Workbooks.Open (strName)
Else
strName = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
If strName = False Then Exit Sub
Workbooks.Open (strName)
End If
End Sub
Der Makro öffnet eine Datei, die unter einem Datum abgelegt wurde. (TTMMJJJJ.xls)
Wenn die Datei nicht gefunden wird, kann manuell danach gesucht werden.
Jetzt meine neue Frage...
Wenn die richtige Datei (z.B. vom 25.11.04 also 25112004.xls) nicht gefunden wird, möchte ich, dass der Makro automatisch die nächstmögliche Tabelle öffnet.
Dass heißt, die nächstgelegene, nach oben oder nach unten (z.B. sind 12112004.xls und 01122004.xls verfügbar -> Makro soll in diesem Fall 01122004.xls öffnen, weil -> dichter dran)
Eine MSGBOX soll dann darauf hinweisen, dass die Datei vom TT.MM.JJJJ nicht gefunden wurde und die Datei vom TT.MM.JJJJ geöffnet wurde
Ist so was lösbar?
Viele Grüße und vielen Dank für die Hilfe
Niels