Hallo Leute,
mein Code sieht jetzt so aus. Wenn ich die Variablen bei der schrittweisen Ausführung überprüfe, stimmt der Inhalt auch, nur funktionieren tuts trotzdem nicht. :-(
Sub AutoNew()
'
' Datenquelle Makro
' Makro aufgezeichnet am 03.01.2014 von -
Dim astrPath() As String
Dim strDatendatei As String
Dim DatName As String
'Pfad in dem sich sich dieses ("ich selbst") Dokument befindet
' (Pfadangabe aufsplitten in einzelne [Unter-]Verzeichnisse)
astrPath = Split(ThisDocument.PATH, "\")
DatName = Dir(ThisDocument.PATH & "\*liste*.xls")
'Name der zu erwartenden Datendatei bilden
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
|