Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

OLE-Verbindung aufbauen und Verb senden

Gruppe

Word

Problem

Es soll eine OLEObject-Verbindung zu dem in Zelle B1 genannten Word-Dokument hergestellt und das Verb zum Öffnen des Dokuments gesendet werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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