Aktueller Pfad in Onedriveordner funktioniert nich
30.03.2018 17:16:16
Ueli
Ich bitte euch nach ewiger Suche im Netz ohne Erfolg nach Hilfe.
Der Makro soll beim öffnen des Dokuments automatisch starten und sich mit der Exceldatei verbinden und anschliessend den Seriendruck (Etiketten) ausführen.
Die Dateien sin immer im selben Ordner vorhanden. Allerdings der Ordner an verschiedenen Orten gespeichert.
Für das habe ich folgendes Makro aufzeichnen lassen und die Sache mit dem relativen Pfad _ angepasst:
Sub AutoOpen()
Dim datenPfad As String
Dim datenName As String
'Datenquelle im gleichen Ordner suchen
datenPfad = ThisDocument.Path & "\"
datenName = "Exeldatei.xlsm"
ActiveDocument.MailMerge.OpenDataSource Name:=datenPfad & datenName, _
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=datenPfad & datenName;Mode= _
Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System _
database="""";Jet OLEDB:Registry _
Path="""";Jet OLEDB:Engine Type" _
, SQLStatement:="SELECT * FROM `Mitglieder$`", SQLStatement1:="", SubType _
:=wdMergeSubTypeAccess
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=False
End With
End Sub
Problem:
Das ganze funktioniert auch super solange der Ordner sich auf dem lokalen Rechner befindet. Sobald ich der Ordner über OneDrive synchronisiere funktioniert die Datenverbindung mit der Exceldatei nicht mehr, und der Pfad kann nicht mehr hergestellt werden.
An was kann das liegen?
danke für eure Hilfe.
Gruss