Sub AutoNew()
Dim astrPath() As String
Dim strDatendatei As String
Dim DatName As String
astrPath = Split(ThisDocument.PATH, "\")
DatName = Dir(ThisDocument.PATH & "\*liste*.xls")
strDatendatei = ThisDocument.PATH & "\" & DatName
ActiveDocument.MailMerge.OpenDataSource Name:= _
strDatendatei, _
ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=" & strDatendatei & ";Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Databas" _
, SQLStatement:="SELECT * FROM `Mitglieder$`", SQLStatement1:="", SubType _
:=wdMergeSubTypeAccess
End Sub
Auch wäre schön, wenn ich dort dann noch einen Filter für die Datenquelle mit einbauen könnte. Leider ist bei der Aufzeichnung mit dem Makrorecorder das Codefenster immer leer.
Gruß
Rene