Pfad für GetFolder aus Zelle lesen
19.04.2018 08:03:21
Jörg
ich bin recht unbeleckt in VBA und habe mir bisher immer mit der Abwandlung von Beispielen geholfen. Ich habe jedoch nun eine Aufgabenstellung, die niemand bisher beschrieben zu haben scheint.
Ich möchte ein Word-Dokument (.dot) schreibgeschützt aus Excel aufrufen.
Das funktioniert jetzt schon sehr gut, jedoch muss ich dabei den Pfad bisher immer direkt in VBA eingeben.
Da ich an verschiedenen Orten (Arbeitsblättern) auf Word-Dokumente zugreifen muss, habe ich ein Arbeitsblatt "Nutzerverwaltung" integriert, in welchem ich die Pfade global angeben möcht, um den Änderungsdienst so gering, wie möglich halten zu können.
Meine Aufgabe ist also, den Pfad zum Beispiel aus Zelle B29 der "Nutzerverwaltung" lesen zu können und hoffe, dass hier jemand ist, der mir helfen kann. Folgenden Quellcode nutze ich im Moment:
Private Sub CommandButton10_Click()
Dim AppWD As Object
Set AppWD = CreateObject("Word.Application") 'Word als Object starten
AppWD.Application.Visible = True
AppWD.WindowState = 1
AppActivate AppWD.Caption
Set FS = CreateObject("Scripting.FileSystemObject")
Set Folder = FS.GetFolder("L:\LOV\2_Dokumente\2.1_intern\2.1.6_Verfahrensanweisungen\ _
Verfahrensanweisungen - Integriertes MS\")
For Each File In Folder.Files
If File.Name Like "LOV VA P7-4 Produktion A*.dot" Then
AppWD.Documents.Open File.Path, ReadOnly:=True
Exit For 'nur die erste Datei ist relevant
End If
Next
End Sub
Jörg
Anzeige