Explorer für Excel und Word
27.03.2014 17:38:05
Kurt
habe dieses Makro für die Excel Dateien.
Ich möchte aber auch das die Word Dateien mit angezeigt werden
und wenn eine Word Datei geöffnet werden muß auch Word sich öffnet.
Geht das ?
gruß kurt k
Public Sub Hausverwaltung_Starten()
Dim strDatei
ChDrive "C:\"
ChDir "C:\_Hausverwaltung\"
strDatei = Application.GetOpenFilename("Microsoft Excel-Dateien ,*.*")
If strDatei = False Then Exit Sub
Workbooks.Open strDatei
End Sub
Anzeige