Datei über Makro suchen und öffnen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
InputBox MsgBox


Excel-Version: XL7
nach unten

Betrifft: Datei über Makro suchen und öffnen
von: Pat Beach
Geschrieben am: 16.05.2002 - 07:45:19

Hallo zusammen

Wie kann ich das unten aufgeführte Makro anpassen, das es eine bestimmte Datei sucht, automatisch öffnet. Im weiteren müsste das Makro bei mehreren Dateien mit dem gleichen Namen die Auswahl anzeigen, damit die richtige Datei ausgewählt werden kann.


' Dieses Makro zeigt bei einer gefundenen Datei nur den Pfad an.
' Das Makro sucht in Verzeichnissen mit berücksichtigung von Unterverzeichnissen.

Sub Suchen()
Dim objFileSearch As FileSearch
Dim strVerzeichnis As String, strDatei As String
strVerzeichnis = InputBox("Verzeichnis:", , "t:\s01\dok\")
If strVerzeichnis = "" Then Exit Sub
strDatei = InputBox("Dateiname:", , "test.xls")
If strDatei = "" Then Exit Sub
Set objFileSearch = Application.FileSearch
With objFileSearch
.LookIn = strVerzeichnis
.SearchSubFolders = True
.FileName = strDatei
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox .FoundFiles(1)
Else
MsgBox "Datei wurde nicht gefunden!"
End If
End With
End Sub

Ideal wäre auch wenn mir jemand ein Buch oder eine Internetadresse empfehlen kann, wo ich von Grund auf VBA lernen könnte, ohne extra eine Schule (keine Zeit -> 2 Kinder) zu besuchen.

Besten Dank im voraus für jede Antwort.

Mit freundlichen Grüssen.

Pat Beach


nach oben   nach unten

Buch-Tipp
von: Tobi@s
Geschrieben am: 16.05.2002 - 07:51:06

Hallo,
hier ein Buch, welches dir evtl. weiterhelfen könnte. Es ist sehr gut geschrieben und gibt es für Office 97 oder 2000.

VBA-Programmierung "Das Einsteigerseminar" von Helma Spona. bhv-Verlag (damals 20,00 DM).


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Datei über Makro suchen und öffnen"