Word Serienbrief mit CSV-Datei

Hallo,
ich weiß ich bin mit meiner Frage hier nicht ganz richtig. Dennoch hoffe ich auf Hilfe. Ich erstelle aus einer Excel-Tabelle heraus eine CSV Datei die dann die Basis für einen Wordserienbrief bildet (die Excel-Tabelle kann ich hierfür aus unterschiedlichen Gründen leider nicht direkt verwenden). In Word wird die Serienbriefverbindung zur CSV-Datei per Makro aufgebaut. Das klappt soweit auch alles, doch ich werde beim Verbindungsaufbau nach dem Trennzeichen der Datenfelder gefragt. Gibt es eine Möglichkeit das Trennzeichen im Code mitzugeben?
ActiveDocument.MailMerge.OpenDataSource _
Name:=sSBDATENTXT, _
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;Mode=Read;Extended Properties=""HDR=YES;"";Jet OLEDB:Database Locking Mode=0;", _
SubType:=wdMergeSubTypeOLEDBText
Danke für eure Hilfe.
Gruß Johannes

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

ActiveDocument.MailMerge.OpenDataSource Name:=sSBDATENTXT, _ ConfirmConversions:=False, ReadOnly:=False, _ LinkToSource:=True, AddToRecentFiles:=False, _ PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument:="", _ WritePasswordTemplate:="", Revert:=False, Format:=wdOpenFormatAuto, _ Connection:="", SQLStatement:="", SQLStatement1:="", SubType:= _ wdMergeSubTypeOther

Hallo Franz,
mit ist da nichts aufgefallen. Die 4 Dateien werden alle mit dem gleichen Code erzeugt. Ich habe schon testhalber auf Tab-getrennte Textdatei umgestellt, auch da bei den gleichen 3 von 4 die Rückfrage. Einziger Unterschied, bei der CSV hat er bei der 1. Datei das Trennzeichen ; richtig vorgeschlagen bei den anderen beiden nicht. Bei der TXT hat er das Trennzeichen Tab bei allen 3 richtig vorgeschlagen.
DATEINAME = PFAD & Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5) & "-" & VAR & ".txt"
Application.DisplayAlerts = False 'Fehlermeldungen ausschalten
ActiveSheet.Copy
'ActiveWorkbook.SaveAs Filename:=DATEINAME, FileFormat:=xlCSV, CreateBackup:=False, Local:=True
ActiveWorkbook.SaveAs Filename:=DATEINAME, FileFormat:=xlUnicodeText, CreateBackup:=False, Local:=True
With ActiveWorkbook
.Close
End With
Application.DisplayAlerts = False 'Fehlermeldungen einschalten
Wenn ich beim Serienbrief die Dateien 3 und 4 vertausche, wird die 3. Datei rückfragelos eingelesen und die 4. nicht, kann also nicht mit der Reihenfolge zusammenhängen sondern muss definitif an der Datei hängen.
In den erzeugten Dateien ist mir bisher kein relevanter Unterschied aufgefallen. Ich suche noch weiter.
Gruß Johannes

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

25 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Word Serienbrief mit CSV-Datei

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

25 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread