צ' שואל:
שלום רב,
ברשותי קובץ אקסל תקין בפורמט 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. התוצאה - קובץ האקסל קושר לאקסס.
בברכה,
צוות אניפיט