הפורום כעת לקריאה בלבד, לקריאה נוספת.
מיזוג דואר בקוד 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"מה יכולה להיות הבעיה?
תודה!
שלום! נראה שהשיחה הזו מעניינת אותך, אבל עדיין אין לך חשבון.
נמאס לכם לגלול בין אותם הפוסטים בכל ביקור? כשנרשמים לחשבון, תמיד תחזרו בדיוק למקום שבו הייתם קודם, ותוכלו לבחור לקבל התראות על תגובות חדשות (בין אם במייל, ובין אם בהתראת פוש). תוכלו גם לשמור סימניות ולפרגן ב-upvote לפוסטים כדי להביע הערכה לחברי קהילה אחרים.
בעזרת התרומה שלך, הפוסט הזה יכול להיות אפילו טוב יותר 💗
הרשמה התחברות