מיזוג דואר בקוד VBA - אקסס

ארי

שלום וברכה.
יש לי קוד למיזוג דואר מקובץ אקסל לקובץ וורד, הקוד עובד במחשב שלי מצוין.
אבל במחשב של הלקוח מופיעה הודעת שגיאה שהפקודה 'OpenDataSource' לא פעילה.
הקוד של המיזוג הוא:

wordApp.Documents.Open FileName:=WordPath, ReadOnly:=True
If err <> 0 Then MsgBox "התרחשה שגיאה בפתיחת הוורד" & vbCrLf & err.Description, vbOKOnly + vbQuestion + vbMsgBoxRight + vbMsgBoxRtlReading: Exit Function

With wordApp.ActiveDocument.MailMerge
    .MainDocumentType = wdFormLetters
    .OpenDataSource _
        Name:=XlsxPath, _
        SQLStatement:="select * from TEMP"
    .Destination = wdSendToPrinter
    .ViewMailMergeFieldCodes = 9999998
    .ShowWizard InitialState:=6, ShowDataStep:=False, ShowTemplateStep:=False
    .SuppressBlankLines = True
    .Execute
End With
wordApp.Quit False
Set wordApp = Nothing

השגיאה מופיעה על הקטע

.OpenDataSource _
        Name:=XlsxPath, _
        SQLStatement:="select * from TEMP"

מה יכולה להיות הבעיה?
תודה!

תחומים - פורום חרדי מקצועי

מיזוג דואר בקוד VBA - אקסס