Gruppe
Extern
Problem
Es soll eine OLEObject-Verbindung zu dem in Zelle B1 genannten Word-Dokument hergestellt und das Verb zum Öffnen des Dokuments gesendet werden.
StandardModule: Modul1
Sub SendVerb()
Dim oOle As OLEObject
Dim sFile As String
sFile = Range("B1").Value
If Dir(sFile) = "" Then
Beep
MsgBox ("Datei wurde nicht gefunden!")
Exit Sub
End If
Set oOle = Worksheets(1).OLEObjects.Add(Filename:= _
sFile, Link:=True, DisplayAsIcon:=False)
oOle.Verb (xlVerbOpen)
End Sub