Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

MailMerge.OpenDataSource über DDE-Verknüpfung

86 views
Skip to first unread message

MarkoNoob

unread,
Nov 29, 2007, 7:36:56 AM11/29/07
to
Hallo

Ich will, dass Word 2003 bei der Erstellung eines neuen Dokumentes via
Template automatisch eine DDE-Verknüpfung mit der gleichnamigen
Excel-2003-Tabelle (selber Speicherort wie das neue Dokument)
erstellt.

Dies versuche ich über folgendes Makro zu erreichen:
----------
ActiveDocument.MailMerge.OpenDataSource Name:= _
PfadKomplett & "\" & Listenname & ".xls" _
, ConfirmConversions:=True, ReadOnly:=False,
LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="",
PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="",
Revert:=False, _
Format:=wdOpenFormatAuto, Connection:="Gesamtes
Tabellenblatt", _
SQLStatement:="", SQLStatement1:="", SubType:=""
----------
Allerdings öffnet Word das ganze trotzdem immer als OLE DB.

Ich habe schon einiges im Internet und auch hier dazu gefunden,
allerdings will nichts so wie ich es gerne haben will.

Auch
----------
ActiveDocument.MailMerge.OpenDataSource
Name:="C:\Temp\Conditions.xls", _
Connection:="Sheet1$", _
SQLStatement:="SELECT * FROM `Sheet1$`"
----------
hat nichts geholfen, da kommt direkt "Tabelle auswählen", also wieder
OLE DB.

Hat jemand eine Lösung bereit?

Vielen Dank schonmal im Voraus!

Marko

MarkoNoob

unread,
Nov 29, 2007, 7:56:28 AM11/29/07
to
Lösung gefunden (Bloss bei Groups DDE eingegeben, und nicht so wie
zuvor "ActiveDocument.MailMerge.OpenDataSource connection excel dde")

Die subType-Anweisung darf nicht leer sein.

Korrekter Code:


----------
ActiveDocument.MailMerge.OpenDataSource Name:= _
PfadKomplett & "\" & Listenname & ".xls" _
, ConfirmConversions:=True, ReadOnly:=False,
LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="",
PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="",
Revert:=False, _
Format:=wdOpenFormatAuto, Connection:="Gesamtes
Tabellenblatt", _
SQLStatement:="", SQLStatement1:="",

SubType:=wdMergeSubTypeWord2000
----------

Grüsse
Makro

0 new messages