VBA Ordner und Unterordner auf Server öffnen

[Foulcrow]

Hallo an Alle,

meine VBA Kenntnisse in Excel sind sehr begrenzt. Deshalb hoffe ich, auf diesem Wege Hilfe zu finden.

In meiner Exceltabelle soll über eine Schaltfläche ein Unterordner auf einem Server geöffnet werden, damit die benötigten Worddokumente geöffnet werden können. Die Tabelle ist freigegeben, so dass alle Mitarbeiter darauf zugreifen können.

Z:\\Freigabe\Fuhrpark\Pkw\*.docx

Z:\\Freigabe --> ist das Laufwerk, welches Freigabe heißt
Fuhrpark --> ist ein Ordner darin
Pkw --> ist ein Unterordner von Fuhrpark

Wie muss der Code aussehen, damit das Öffnen-Fenster des Unterordners Pkw aufgeht, um die darin enthaltenen Dateien zu sehen?

Bin für jegliche Vorschläge dankbar.

beste Grüße Foulcrow

[schauan]

Hallöchen,

im Prinzip so. Wenn Du alle Dateien sehen willst, dann nimm *.*, alle Excel-Dateien z.B. *.xls*

Sub DateiOeffnen()
  With Application.FileDialog(msoFileDialogOpen)
     .AllowMultiSelect = False
     .InitialFileName = "G:\Test\*Mappe*.xlsx"
     If .Show = -1 Then
        Workbooks.Open .SelectedItems(1)
     End If
  End With
End Sub

[Foulcrow]

Hallo Schauan,

vielen Dank für deine Antwort. Kann ich erst am Montag wieder testen. Ich melde mich dann, ob es geklappt hat.

Schönes WE
beste Grüße Foulcrow

[Foulcrow]

Hallo Schauan,

das Öffnen der Ordner klappt wunderbar, nur wenn ich eine Word-Datei daraus öffnen will, kommt eine Fehlermeldung.
ich denke, es kommt von dieser Zeile:

Workbooks.Open .SelectedItems(1)

Wie muss ich die Zeile ändern, damit eine Abfrage nach Dateien nicht notwendig wird? In den Ordnern befinden sich nur Worddokumente.

Beste Grüße
Foulcrow

[schauan]

Hallöchen,
je, das Beispiel war für Exceldateien. Mit Word geht es so:
Modul Modul1

Sub WordDateiOeffnen() 
'Variablendeklarationen 
Dim objWord As Object 
  'Mit dem Datei-Oeffnen-Dialg 
  With Application.FileDialog(msoFileDialogOpen) 
     'Multiselection unterdruecken 
     .AllowMultiSelect = False 
     'Startverzeichnis und -dateifilter 
     .InitialFileName = "G:\Test\*.docx" 
     If .Show = -1 Then 
       'Word als Object starten 
        Set objWord = CreateObject("Word.Application") 
        'Word sichtbar schalten 
        objWord.Visible = True 
        'gewaehltes Dokument oeffnen 
        objWord.documents.Open .SelectedItems(1) 
     End If 
  'Ende Mit dem Datei-Oeffnen-Dialg 
  End With 
    Range("B10").Select 
    Workbooks.Open Filename:= _
        "C:\Users\Andre\Documents\Excel Trust\HTML\vbahtml_xl2007.xlam" 
End Sub 

Allerdings bekommt Word dabei nicht den Fokus.

[Foulcrow]

Hallo Schauan,

vielen Dank, jetzt klappt es perfekt.

Workbooks.Open Filename:= _
        "C:\Users\Andre\Documents\Excel Trust\HTML\vbahtml_xl2007.xlam"

Diese beiden Zeilen verursachten einen Laufzeitfehler, und weil ich nicht wusste, warum eine andere Datei geöffnet werden soll, habe ich sie entfernt. Jetzt werden die Worddateien ohne den Fehler geöffnet.
Danke nochmals für deine Hilfe.

Beste Grüße
Foulcrow