Office: aus excel heraus externe dateien öffnen

werte experten,
heute habe ich ohne erfolg versucht,
a) in einer excel datenbank einen schalter einzubinden, einfach einen button, den man anklicken kann und
b) der daraufhin mehrere (!) im selben verzeichnis befindliche dateien (serienbrief-wordvorlagen) öffnet - idealerweise mit dem jeweiligen datensatz. (schalter befindet sich zB in zeile 5, dann sollte auch der serienbrief mit dem 5. datensatz öffnen) das wäre aber nur eine schöne randerscheinung.
vielen dank
test

 

Hallo!

Zum Öffnen eines Word-Dokumentes kannst du diesen Code benutzen:
(Rechtsklick auf den Reiter des Tabellenblatts in dem der Button erscheinen soll > Code anzeigen > Code ins rechte Fenster einfügen)

Code:

Sub Oeffnen()
Dim WordApp As Object
Set WordApp = CreateObject("Word.application")
With WordApp
.Application.Visible = True
.Application.documents.Open ("C:\Pfad1\Pfad2\...\docname.doc")
End With
End Sub

Aus der Formular-Symbolleiste (Menü Ansicht > Symbolleisten) "malst" du dir einen Button und verknüpfst ihn per Rechtsklick mit dem Makro.

Um das ganze mit dem entsprechenden Datensatz aufzurufen, reichen meine VBA-Kenntnisse (und wahrscheinlich auch deine Infos) leider nicht aus...

 

hej danke, klappt super.
nur eine kleinigkeit noch: auf den pfad zu den vorlagen möchte ich mich nicht so gern festlegen. fest steht aber, dass sie sich immer im gleichen ordner wie die exceldatei befinden (werden). kann man da die angabe unter ".Application.documents.Open" nicht abkürzen?

 

Hallo!

So scheint es zu funktionieren (ohne Gewähr...):

Code:

Sub Oeffnen()
Dim WordApp As Object
Dim Pfad As String
Pfad = ActiveWorkbook.Path
Set WordApp = CreateObject("Word.application")
With WordApp
.Application.Visible = True
.Application.documents.Open (Pfad & "\docname.doc")
End With
End Sub

Achte auf den Backslash vor deinem Dateinamen!

 

nee schatzi,
das funktioniert leider nicht - oder, ich habe dich falsch verstanden. soll das "pfad &" so ausgeschrieben werden, oder soll ich es durch irgendetwas ersetzen?

 

Eigentlich musst du nur "docname.doc" durch deinen Worddateinamen ersetzen.

 

ok, das hatte ich. da kommt aber leider stets eine fehlermeldung (ohne text!?). schade...
danke dir dennoch!

 

Diese Fehlermeldung bekam ich auch, bis ich den Backslash vor den Dateinamen gesetzt habe.
Ab dem Moment funktionierte es (zumindest bei mir...)

 

mit oder ohne \: bekomme immer wieder diesen fehler. habe auch andere varianten probiert, aber ohne erfolg

 

Dann weiß ich leider auch nicht weiter.
Wie gesagt: Bei mir funktioniert's.

 

ok, ich hab's:
.Application.documents.Open ThisWorkbook.Path & "\docname.doc"
grüße