Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
500to504
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
500to504
500to504
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Dialog zum öffnen einerWorddatei von Excel mit VBA

Dialog zum öffnen einerWorddatei von Excel mit VBA
14.10.2004 12:54:50
Excel
wie kann ich von Excel aus mit VBA ein Word öffnen und dort ein Dialog anzeigen, wo ich auswählen kann, welche Datei ich öffnen möchte
word öffnen kann ich aber der dialog funktioniert nicht mehr.
danke für eure Ideen und Antworten

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dialog zum öffnen einerWorddatei von Excel mit VBA
Excel
AW: Dialog zum öffnen einerWorddatei von Excel mit VBA
Excel
Hi ?

Sub WordFileOeffnen()
Dim sFile As Variant
sFile = Application.GetOpenFilename("Word-Datei (*.doc), *.doc")
If sFile = False Then
Exit Sub
Else
Dim WordApp As Object
Dim WordDoc As Object
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Open(sFile)
End If
End Sub

Gruss
Chris
AW: Dialog zum öffnen einerWorddatei von Excel mit VBA
Excel
dankeschöön, ist genau das, was ich suchte...
gruss Falken
AW: Dialog zum öffnen einerWorddatei von Excel mit
Excel
Hallo, hier noch eine Moeglichkeit. Gruss Dan, CZ.
Public

Sub WordDateiOeffnen()
Dim objWord As Object
Dim objDialogOpen As Object
Dim vntRetVal As Variant
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDialogOpen = objWord.Dialogs(wdDialogFileOpen)
' Document auswaehlen und wenn OK-klick dann wird es gleich geoeffnet
vntRetVal = objDialogOpen.Show
' was hat der Benutzer gedrueckt
Select Case vntRetVal
Case -1
' OK button, Doc ist geoeffnet worden
' Code hier ...
Case 0
' Cancel button, Word wieder beenden
If (Not objWord Is Nothing) Then
objWord.Quit
Set objWord = Nothing
End If
End Select
End Sub

Anzeige

315 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige