VBA Serienbrief Auswahl Tabellen
13.11.2020 15:53:11
Brian
ich öffne aus Excel mittels VBA einen Word-Serienbrief und drucke diesen als PDF. Das klappt alles soweit, aber ich ich möchte mein Tabellenblatt beliebig oft kopieren und immer die Daten des aktiven Tabellenblatts an meinen Word-Serienbrief übergeben. Leider werden jedoch immer die Daten des ersten Tabellenblattes and den Word-Serienbrief übergeben.
Hier ein Auszug aus meinem Code:
'Setze Datenbereich des Serienbriefs fest.
ActiveSheet.Range("C17:BC" & j).Select
ActiveSheet.Names("Kollidaten").RefersTo = Selection
'ENDE
'Word öffnen
Dim AppWD As Object
Set AppWD = CreateObject("Word.Application") 'Word als Object starten
AppWD.Visible = True
'ENDE
'Setze die Datenquelle des Serienbriefs auf den Dateiname des Excelfiles bzw. dessen _
Namensregister "Kollidaten"!
AppWD.ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
AppWD.ActiveDocument.MailMerge.OpenDataSource Name:= _
Dateiname, ConfirmConversions:=False, ReadOnly:= _
False, LinkToSource:=True, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", WritePasswordDocument:="", WritePasswordTemplate:= _
"", Revert:=False, Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=Dateiname;Mode=Read; _
Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path=" _
_
""";Jet OLEDB:Engine Type=35;Jet OLEDB:Database Locking Mode=0;" _
, SQLStatement:="SELECT * FROM `Kollidaten`", SQLStatement1:="", SubType _
:=wdMergeSubTypeAccess
AppWD.ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle
'ENDE
Hat jemand eine Idee wie ich die Daten des aktiven Tabellenblattes übertragen kann?