Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Das in einem Gültigkeitfeld ausgewählte Word-Dokument öffnen

Gruppe

Word

Problem

Das ausgewählte Word-Dokument soll in Word geöffnet werden. Routine funktioniert nur ab XL2000, da das Change-Ereignis bei XL97 durch eine Gültigkeitsauswahl nicht ausgelöst wird.

Lösung
Die Ereignis-Programmierung befindet sich im Klassenmodul der Tabelle.

StandardModule: basMain

Sub OpenWordDoc(sFile As String)
   Dim WordObj As Object
   Dim WordDoc As Object
   On Error GoTo w
   AppActivate "Microsoft Word"
   GoTo n
w:
   Set WordObj = CreateObject("Word.Application")
n:
   Set WordDoc = WordObj.Documents.Open(sFile)
   WordObj.Visible = True
End Sub

ClassModule: Tabelle3

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim sPath As String
   If Target.Address <> "$D$9" Then Exit Sub
   sPath = "c:\eigene dateien\" & Target.Value
   Call OpenWordDoc(sPath)
End Sub