Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
716to720
716to720
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateilöffnen

Forumthread: Dateilöffnen

Dateilöffnen
13.01.2006 11:32:50
Martin
Hallo,
könntest Du mir sagen wie ich ein verlinktes Word-Dokument mit Excel-VBA öffnen, aktualisieren und zum Speichern auffordern kann?
Vielen Dank!
Martin
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateilöffnen
13.01.2006 15:45:40
Fritz
Moin Martin,
versuchs mal so:
'Es muss ein Verweis auf "Microsoft Word xx Object Library" enthalten sein

Sub xx()
Dim objWord As Word.Application
On Error Resume Next
DocName = "D:\tmp\test.doc"
Set objWord = GetObject(, "word.application")
If Err = 429 Then
NoWord = True
Set objWord = CreateObject("word.application")
Else
NoWord = False
End If
If Not objWord Is Nothing Then
objWord.Visible = True
objWord.Documents.Open (DocName)
End If
Dialogs(wdDialogFileSaveAs).Show
If NoWord Then objWord.Quit
Set objWord = Nothing
End Sub

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige