AW: MailMerge.OpenDataSource
30.01.2014 19:41:17
Steinhoff
Hier die VBA-Befehle ( enthalten ) im Listing
Function SerienBriefErzeugen()
'-------------------------------------------
'*diese Funktion oeffnet den Serienbrief BR-Mittelung
Dim varDatei As Variant
txtcurrentWorkbook = ActiveWorkbook.Name
txtcurrentWorkbookDir = ActiveWorkbook.Path
sFilename = txtcurrentWorkbookDir & "\" & txtcurrentWorkbook
wFilename = txtcurrentWorkbookDir & "\test.doc"
'
txtFile = Dir(sFilename)
If txtFile = "" Then
MsgBox "Die Datei existiert nicht" & vbCrLf & "Dateiname:" & sFilename, vbCritical
Exit Function
End If
' check Document >
'
Dim wordApp As New Word.Application
wordApp.Visible = True
' Word starten >
'
Dim doc As Word.Document
Set doc = wordApp.Documents.Open(wFilename, ConfirmConversions:=False, ReadOnly:=False, _
AddToRecentFiles:=False)
' Word Document oeffnen >
'
'*Datenquelle für den Seriendruck
doc.MailMerge.OpenDataSource Name:=sFilename _
, Connection:="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sFilename & ";Mode=Read; _
Extended Properties=""HDR=YES;IMEX=1;Jet OLEDB:Eng" _
, SubType:=wdMergeSubTypeAccess _
, SQLStatement:="SELECT * FROM [Tabelle1$]", SQLStatement1:=" WHERE `EMail` = ''" ' And ` _
Nachname` like 'Kunde1'"
' geht, aber Ergebnis ist falsch .... , warum ?
', SQLStatement:="SELECT * FROM [Tabelle1$]", SQLStatement1:=" WHERE `EMail` = ''" ' And [ _
Nachname] like 'Kunde1"
' geht garnicht, warum ?
', SQLStatement:="SELECT * FROM [Tabelle1$]", SQLStatement1:=" WHERE [EMail] = ''" ' And [ _
Nachname] like 'Kunde1"
' geht erst recht nicht, warum ?
', SQLStatement:="SELECT * FROM [Tabelle1$]", SQLStatement1:=" WHERE `EMail` = '' And `Nachname` _
like 'Kunde1'"
' Datenquelle einstellen >
On Error GoTo wError
'
doc.MailMerge.Execute
' Serienbrief erzeugen >
wClose:
doc.Close
Set doc = Nothing
Exit Function
wError:
msg = "Fehler: " & Err & " - " & Error(Err)
On Error Resume Next
MsgBox msg, vbCritical, "Error"
GoTo wClose
'-------------------------------------------
End Function