xls Datei in Unterordnern suchen und öffnen
28.04.2009 15:55:22
Markus
ich habe ein kleines Makro geschrieben, was mir eine Excel-Datei in einem Ordner suchen soll und diese dann öffnet. Das funktioniert auch soweit. Jetzt möchte ich aber die Unterordner, die sich in diesem Ordner befinden, einbinden. Leider bekomm ich es nicht hin.
Hier mein kleines Makro:
Private Sub CommandButton3_Click()
Dim Dateiname As String
Dateiname = Application.InputBox("Bitte die Anfragenummer eingeben!", "Anfragensuche")
If Dir("C:\Dokumente und Einstellungen\zie\eigene Dateien\Test 2\" & Anfragenummer & ".xls") _
"" Then
Workbooks.Open ("C:\Dokumente und Einstellungen\zie\eigene Dateien\Test 2\" & _
Anfragenummer & ".xls")
Else
MsgBox "Exceldatei zu dieser Anfragenummer nicht gefunden!"
End If
End Sub
Gerne können auch Verbesserungsvorschläge gemacht werden.
Danke
Markus
Anzeige