Und zwar möchte ich über Excel ein Word-Dokument öffnen!
Allerdings, wenn ich das zu öffnende Dokument umbenenne, dann gibt er mir einen Laufzeitfheöer an!
Wie kann ich diesen Laufzeitfehler denn umgehen! (So in der Richtung, wenn Dateiname nicht gefunden dann gehe zu Ende!?)
Mein Makro!
Sub Versuchsauftrag_öffnen()
Dim oWord As Word.Application
Dim oDoc As Document
Dim Aktuell_Datei As String
Aktuell_Datei = ActiveWorkbook.Name
Set oWord = CreateObject("Word.Application")
oWord.Visible = True
sFile = "C:\Versuchsfläche\Versuchsauftrag.Doc"
If sFile <> "I:\ae\Ae-ef\Ae-efo\Mitarbeiter\Adel\Prüfprotokolle\Versuchsfläche\Versuchsauftrag.Doc" Then
GoTo ende
Else
Set oDoc = oWord.Documents.Open(sFile)
End If
If oDoc Is Nothing Then
GoTo ende1
Else
End If
ende1:
Workbooks(Aktuell_Datei).Worksheets("Datenblatt").Activate
End Sub
Danke für Eure Hilfe!
LG Chris