פורום שאלות ותשובות

ברוכים הבאים לפורום שאלות ותשובות באופיס

ניתן לשאול שאלות טכניות באקסל, וורד, פאורפוינט, אוטלוק, שיירפוינט ושאר יישומי אופיס ללא צורך להירשם וללא עלות

שאלה חדשה

צ' שואל:

שלום רב,

ברשותי קובץ אקסל תקין בפורמט XLSX שנדרש לקשר אותו לקובץ אקסס בפורמט ACCDB.
בקישור הקובץ מתקבלת הודעת השגיאה הבאה: Unexpected error from external database driver (1)
אם אני פותח את הקובץ ידני ושומר אותו ולאחר מכן מנסה לקשר אותו לאקסס אז הקישור מצליח.
כיצד ניתן לפתור את הבעיה?
 
תודה רבה
 
תשובה:
 
1. מצ"ב דוגמה לשגיאה המתקבלת - בקובץ אקסס נבחר בתפריט External Data ואז Excel. נבחר את קובץ האקסל ואז נסמן את האפשרות Link to the data source by creating a linked table ואישור (OK).

 

2. לא ברור מה הגורם לשגיאה. ייתכן שזה באג של אופיס. ניתן לפתור זאת באקסס על ידי שימוש ב-VBA. נבצע אוטומציה של פעולת פתיחה, שמירה וסגירת הקובץ.

3. נגדיר במודול חדש ב-VBA את השיגרה הבאה, נעדכן בה את הנתיב לקובץ האקסל ונפעיל אותה.


Public Sub OpenExcelFile()

Dim objXL As Object, objWkb As Object

strFilePath = "C:\Users\User\Clients.xlsx"

Set objXL = CreateObject("Excel.Application")
Set objWkb = objXL.Workbooks.Open(strFilePath)

objXL.Visible = True
objWkb.activesheet.cells(1, 1).copy
objWkb.activesheet.cells(1, 1).pastespecial -4163

objWkb.Close Save:=True

Set objXL = Nothing
Set objWkb = Nothing

End Sub

 

 

 

 

4. נחזור על הפעולות משלב 2 - נבחר בתפריט External Data ואז Excel. נבחר את קובץ האקסל ואז נסמן את האפשרות Link to the data source by creating a linked table ואישור (OK).

5. התוצאה - קובץ האקסל קושר לאקסס.

 


בברכה,
צוות אניפיט