Datenquelle aus Excel für Word-Dokumente - Ordner kopieren ohne Bezug zur Datenquelle zu...

bearbeite deine Datenquelle. Speichere das Dokument ab. Schließe Microsoft Excel.



Öffne Word und aktualisiere die Änderungen

Hallo, Christian,

nein, leider gar nicht. Ich habe ein SB-Hauptdokument, das mit einer Datenquelle verbunden ist - die Datenquelle kann Excel sein, aber auch txt, etc. - da die Verbindung steht, kann ich doch über Seriendruckfelder einfügen die vorhandenen Seriendruckfelder
ins Dokument einfügen oder auch nicht. Und je nach Datenquelle habe ich unterschiedliche Feldnamen in der Datenquelle. Gibt es eine Möglilchkeit, auf diese Feldnamen per VBA zuzugreifen?

Gruß aus München
Susanne

in dem oberen Artikel, unter dem Punkt "Verbinden des Dokuments mit einer Datenquelle", wird dies entsprechend erklärt.

Als Adressbuch kannst du die Datendatei von Microsoft Outlook angeben. Du kannst eine Liste direkt in Word erstellen, oder mit einer Excel-Datei als Datenquelle arbeiten.

Das Windows Adressbuch kannst du, meines Erachtens nach, nicht für diese Funktion verwenden.

Gruss,

Marco

In Office 2000 konnte man nach Veränderung des Formulars dies einfach in alle Ordner kopieren, der Verweis auf die noten.xls war also relativ.

Hallo FoHH,

das ist so nicht ganz richtig. Auch in Word 2000 wurde/wird der Pfad zur Datenquelle absolut gespeichert, ein Verschieben bzw. Kopieren des Dokuments in einen anderen Ordner ändert daran nichts. Word 2000 besitzt allerdings schon die Eigenart, sich eigenmächtig
mit einer anderen gleichnamigen Datenquelle zu verbinden, wenn es die ursprünglich zugewiesene nicht mehr findet. In Word 2010 ist das schon deshalb nicht mehr möglich, weil die zugewiesene Datenquelle jetzt beim Start des Dokuments angezeigt wird. Das Programm
muss sich logischerweise dann auch daran halten.

Ein relativer Pfad zur Datenquelle kann per Makro zugewiesen werden, jedoch wird der so gefundene Pfad auch dann beim Abspeichern in einen absoluten umgewandelt. Speziell in Ihrem Fall ist eine relative Zuweisung aber gar nicht nötig, da sich die Datenquelle
noten.xls ja immer im gleichen Ordner befindet. Der Makro muss/sollte also:

1. prüfen, ob sich überhaupt eine Datei noten.xls im Ordner befindet.

2. Wenn ja, feststellen, ob diese Datei als Datenquelle verknüpft ist. Wenn ebenfalls ja, kann die weitere Ausführung abgebrochen werden, damit bleiben bereits abgespeicherte Dokumente unbehelligt.

3. Dokumente ohne Verknüpfung zu einer Datenquelle automatisch mit der noten.xls im gleichen Ordner verbinden. Bei bestehender Verknüpfung erfolgt zumindest vor dem Wechsel eine Rückfrage, damit das nicht völlig willkürlich geschieht.

Public best As Boolean

Public such As String
Sub AutoOpen()Set fs = CreateObject("Scripting.FileSystemObject")

such = ActiveDocument.Path & "\noten.xls"

best = fs.FileExists(such)If ActiveDocument.MailMerge.State <= 1 Then

verbinden 'MsgBox "Bereit zum Verbinden!"

Else: wechseln

End If

End SubSub verbinden()If best = True Then

ActiveDocument.MailMerge.OpenDataSource Name:=such, _Connection:="Gesamtes Tabellenblatt", SQLStatement:="", _ SubType:=wdMergeSubTypeWord2000  
'nur gültig für xls-Dateien, bei xlsx SQLStatement angeben

Else: MsgBox "Die Datenquelle noten.xls wurde nicht gefunden. Verbinden Sie die gewünschte Quelle manuell.", vbExclamation

Exit Sub  'Abbruch, Datenquelle existiert nicht!

End If

MsgBox "Verbindung mit " & such & " wird hergestellt."

End SubSub wechseln()

Dim ziel As String

If best = False Then Exit Sub 'alte Verbindung beibehalten, keine noten.xls im Ordner verfügbar

If ActiveDocument.MailMerge.State = wdMainAndDataSource _Then ziel = ActiveDocument.MailMerge.DataSource.Name

If ziel = such Then

Exit Sub    'Quelle identisch, Prozedur wird abgebrochen

Else: warn = MsgBox(Prompt:="Die bestehende Verbindung mit Datenquelle " _& ActiveDocument.MailMerge.DataSource.Name & " wird aufgehoben." _& Chr(10) & "Verbunden wird: " & such & vbCrLf & vbCrLf & _"Möchten Sie den Vorgang fortsetzen?", _

Buttons:=vbYesNo + vbInformation, Title:="Warnung !")

End IfIf warn = vbYes Then ActiveDocument.MailMerge.OpenDataSource Name:=such, _ Connection:="Gesamtes Tabellenblatt", _

SQLStatement:="", SubType:=wdMergeSubTypeWord2000

End Sub

Ein Seriendruck-Hauptdokument mit diesem sich automatisch ausführenden Makro kann an jeden beliebigen Speicherort verschoben bzw. kopiert werden, der Makro wird entsprechend darauf reagieren.

Viel Erfolg!

Ja genau es geht um Seriendruck. Wenn ich die excel Datenqualität gespeichert hab, ( excel geschlossen)auch 2013 und sie in mein hauptdokument wird einfügen will kommt immer "word kann datenquelle nicht öffnen"

empfänger auswählen-

vorhandene Liste verwenden-

datenquelle wählen - öffnen-

bei Tabelle wählen ist dann schon der Fehler das die falsche arbeitsmappe angezeigt wird.

Und wenn ich dann auf ok geh kommt "word konnte datenquelle nicht öffnen"