Thema Datum  Von Nutzer Rating
Antwort
Rot Serienbrief per vba erstellen
 15.12.2016 11:07:33 Hauke
NotSolved
16.12.2016 11:44:35 Gast63614
NotSolved

Ansicht des Beitrags:
Von:
Hauke		 Datum:
15.12.2016 11:07:33		 Views:
3470		 Rating:
     
Antwort:
  Ja
Thema:
Serienbrief per vba erstellen

Hallo zusammen,

anbei seht ihr einen vba-Code mit dem aus einer Excel-Datei heraus automatisch Serienbriefe erzeugt werden.
Mein Problem ist jetzt, dass ich die Datenquelle (also das Tabellenblatt) immer manuell auswählen muss, obwohl ich per SQL-Statement "select from Daten_Bestellungen" ausgewählt habe. 
Ich nehme an, dass es an meiner Excel-Version liegt, da explizit in dem Code von Excel 2007 und 2010 gesprochen wird. Kann mir einer helfen, was ich für Excel 2013 hinzufügen muss bzw., was ich an dem vorhandenen Code ändern muss?

Danke und viele Grüße
Hauke

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
'< Datenquelle einstellen >
'*Datenquelle für den Seriendruck
If wordApp.Build Like "12*" Then
'-< Ist_Office2007 >-
doc.MailMerge.OpenDataSource Name:=sExcel_Filename _
, Connection:="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sExcel_Filename & ";Mode=Read;Extended Properties=""HDR=YES;IMEX=1;Jet OLEDB:Eng;TypeGuessRows=0;" _
, SQLStatement:="SELECT * FROM `Daten_Bestellungen$`", SQLStatement1:=" WHERE Anschreiben='1'", SubType:=1
'*subtype:=1=wdMergeSubTypeAccess
 
'--
Else
'-< Ist_Office2010 >-
doc.MailMerge.OpenDataSource Name:=sExcel_Filename, Connection:="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sExcel_Filename
', SQLStatement:="SELECT * FROM 'Adressen$'"
' _
, Connection:="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sExcel_Filename & ";Mode=Read;Extended Properties=""HDR=YES;IMEX=1;Jet OLEDB:Eng;TypeGuessRows=0;" _
, SQLStatement:="SELECT * FROM `Adressen`", SQLStatement1:=" WHERE Anschreiben<>''", SubType:=1
'*subtype:=1=wdMergeSubTypeAccess
'--
End If
'

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Serienbrief per vba erstellen
 15.12.2016 11:07:33 Hauke
NotSolved
16.12.2016 11:44:35 Gast63614
NotSolved