Hallo Gemeinde,
ich bin blutiger Anfänger und arbeite seit ca. einer Woche erfolglos an der Lösung einer "einfachen" Aufgabe:
Ich kann aus Excel eine Worddatei aufrufen und möchte den Aufruf verhindern, wenn die Word Datei schon geöffnet ist.
Anbei ein Auschnitt von meinem Code:
Public Sub test()
Dim Word As Object, datei As String
Dim sFile As String
sFile = ActiveWorkbook.Path & "\Briefkopf.doc"
Set Word = CreateObject("Word.Application")
Word.Visible = True
Set AppWD = CreateObject("Word.Application") 'Word als Object starten
Word.Documents.Open sFile
End Sub
|