Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1344to1348
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

MailMerge.OpenDataSource

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: MailMerge.OpenDataSource
30.01.2014 19:41:10
Rudi
Hallo,
das solltest du in einem Word-Forum fragen.
Auch wenn du das aus Excel ausführst, musst du die Word-VBA-Syntax einhalten.
Gruß
Rudi

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

Anzeige
AW: MailMerge.OpenDataSource
02.02.2014 12:40:19
Steinhoff
Ich habe das Problem lösen können.
WST

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige