ich hänge leider fest mit einem Problem beim Öffnen von Wordserienbrief aus Excel.
Das Programm Word mit der entsprechenden Datei startet einwandfrei und auch Excel wird geschlossen.
Problem ist aber beim Öffnen von Excel, dass die von mir gefertigte Variable nicht funktioniert.
Sub Makro1_Empfänger_auswählen1()
Dim MyPfad As String
Dim strbPfad As String 'hier benötigter Pfad
Dim strGef As String
MyPfad = ActiveDocument.path '& "\" & IniName
'Debug.Print MyPfad
Dim rng As Range
Dim strTmp As String
Dim strTeilPfad As String
strTmp = Left(MyPfad, InStrRev(MyPfad, "\") + 1)
strTeilPfad = Left(strTmp, Len(strTmp) - 1)
'Debug.Print strTeilPfad
strbPfad = strTeilPfad & "02_Ordner_Kopierkosten_Laufend\"
'Debug.Print strbPfad
strGef = "Kopierkostenabrechnung.xlsm"
Datei = strbPfad & strGef
'Debug.Print Datei
ActiveDocument.MailMerge.OpenDataSource Name:= _
"C:\Users\Peter\Desktop\Kopierkosten-Abrechnung_2017_03_08\ _
02_Ordner_Kopierkosten_Laufend\Kopierkostenabrechnung.xlsm" _
, 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;Data Source=C:\Users\Peter\Desktop\ _
Kopierkosten-Abrechnung_2017_03_08\02_Ordner_Kopierkosten_Laufend\Kopierkostenabrechnung.xlsm; _
Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";J" _
, SQLStatement:="SELECT * FROM `Gesamtabrechnung$`", SQLStatement1:="", _
SubType:=wdMergeSubTypeAccess
' ActiveDocument.MailMerge.OpenDataSource Name:= _
' Datei _
' , 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;Data Source=Datei;Mode=Read;Extended _
_
Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";J" _
' , SQLStatement:="SELECT * FROM `Gesamtabrechnung$`", SQLStatement1:="", _
' SubType:=wdMergeSubTypeAccess
ActiveDocument.MailMerge.DataSource.QueryString = _
"SELECT * FROM `Gesamtabrechnung$` WHERE `Code` > 0 And `Ges#Anzahl` > 0 "
ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle
End Sub
Im Bereich Name:= und Data Source= liegt das Problem.Die variante mit dem richtigen Pfad funktioniert einwandfrei. Die auskommentierte Variante leider nicht.
Wenn ich eine Prüfung vornehme, ob der Pfad mit Datei stimmt wird alles richtig angezeigt. Wenn ich jedoch die Datei öffne leider nicht.
Könnt Ihr mir Bitte helfen.
Gruss
Peter