הפעלת קוד vba באקסל דרך אקסס

[אוריי]

@OdedDvir
עשיתי את הקוד הזה

Private Sub פקודה0_Click()
    
        Dim xl As Excel.Application
    
        Set xl = CreateObject("Excel.Application")
   
        xl.Visible = True
  
        xl.Workbooks.Open "H:\לא להיכנס\מפת הספריות אקסל.xlsm", True, False
    
        xl.Run "ThisWorkbook.PrintLibrary1"
   
        Set xl = Nothing
    
    End Sub

שיניתי את ההפניה לקובץ בשורה 9 ואת השם של הקוד שבשורה 11
ומחזיר לי שגיאה כזו

שניראת אפי' לא קשורה להפניות אלא לשגיאה אחרת בקוד

[OdedDvir]

@אוריי תשנה את שורה 3 ל:

Dim xl As Object

[אוריי]

@OdedDvir אמר בהפעלת קוד vba באקסל דרך אקסס:

Dim xl As Object

תודה
הוא עובר את זה אבל נתקע במאקרו עם שגיאה כזו

[OdedDvir]

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

[אוריי]

@OdedDvir
תודה
עכשיו עובד
אבל זו לא הייתה הבעיה לי היתה שגיאת הקלדה בשם הקוד והוא לא מצא את את מה להריץ

עוד שני שאלות בנידון הזה

1. האם ישנה אפשרות להריץ את הקוד בלי לפתוח את האקסל (או לכל הפחות שלא יראו אותו).
2. לגבי ההפניה של הקוד לעבר מיקום הקובץ יש לי בעיה קטנה כי לפעמים אני מעביר את הקובץ ממחשב למחשב ואני רוצה שהוא יעבוד רק מה שקורה הוא שאני צריך לשנות בתוך הקוד את ההפניה כעת יש לי קובץ של דטא שבו יש לי טבלאות מקושרות כעת אני רוצה לדעת האם במקום הקוד של ההפניה אני כותב לו שיחפש בתוך התקיה ששם הדטא נמצאת את קובץ אקסל בשם XXXXX כך בכל פעם שאני יעתיק את הקובץ למחשב אחר ברגע שאני יעדכן את מיקום הדטא יתעדכן גם מיקום הקובץ?
   מקווה שהובנתי היטב..

[OdedDvir]

@אוריי אמר בהפעלת קוד vba באקסל דרך אקסס:

האם ישנה אפשרות להריץ את הקוד בלי לפתוח את האקסל (או לכל הפחות שלא יראו אותו).

כן, תשנה את שורה 7 ל:

xl.Visible = False

או שפשוט תמחק אותה, כמדומני שברירת המחדל היא לא להציג את הקובץ

לגבי ההפניה של הקוד לעבר מיקום הקובץ יש לי בעיה קטנה כי לפעמים אני מעביר את הקובץ ממחשב למחשב ואני רוצה שהוא יעבוד רק מה שקורה הוא שאני צריך לשנות בתוך הקוד את ההפניה כעת יש לי קובץ של דטא שבו יש לי טבלאות מקושרות כעת אני רוצה לדעת האם במקום הקוד של ההפניה אני כותב לו שיחפש בתוך התקיה ששם הדטא נמצאת את קובץ אקסל בשם XXXXX כך בכל פעם שאני יעתיק את הקובץ למחשב אחר ברגע שאני יעדכן את מיקום הדטא יתעדכן גם מיקום הקובץ?
מקווה שהובנתי היטב..

הבנתי, אפשר לעשות כך, ולקרוא את הערך מהטבלה על ידי DLookup. אבל אז תצטרך לעדכן בכל מחשב את הטבלה...

אני מציע לך לשים את האקסל באותה תיקיה כמו קובץ האקסס ולהשתמש באובייקט CurrentProject כדי לאחזר את מיקום הקובץ של האקסס, ואז לבצע קריאה כך (במקום שורה 9):

Dim xlFilePath As String
xlFilePath = CurrentProject.Path & "\" & "שם הקובץ שלך.xlsm"
xl.Workbooks.Open xlFilePath, True, False

[אוריי]

@OdedDvir
תודה עובד מעולה

[אוריי]

@OdedDvir אמר בהפעלת קוד vba באקסל דרך אקסס:

אני מציע לך לשים את האקסל באותה תיקיה כמו קובץ האקסס ולהשתמש באובייקט CurrentProject כדי לאחזר את מיקום הקובץ של האקסס, ואז לבצע קריאה כך (במקום שורה 9):

לזה בדיוק התכוונתי
אבל צריך לשים לב שבאקסל מותאם לvba הסיומת היא .xlsm ולא .xlsx כך שבמצב כזה הוא לא יקרא אותו
מוזר מאד שבהתחלה זה עבד לי גם כאשר הסיומת הייתה .xlsx אבל כאשר השתמשתי עם הקוד הזה הוא דורש דווקא סיומת של .xlsm

[OdedDvir]

@אוריי אמר בהפעלת קוד vba באקסל דרך אקסס:

אבל צריך לשים לב שבאקסל מותאם לvba הסיומת היא .xlsm ולא .xlsx כך שבמצב כזה הוא לא יקרא אותו

נכון, אני אערוך את המקור למעלה

מוזר מאד שבהתחלה זה עבד לי גם כאשר הסיומת הייתה .xlsx אבל כאשר השתמשתי עם הקוד הזה הוא דורש דווקא סיומת של .xlsm

גם אצלך (בצילום מסך למעלה) כתוב .xlsm

[אוריי]

@OdedDvir אמר בהפעלת קוד vba באקסל דרך אקסס:

גם אצלך (בצילום מסך למעלה) כתוב .xlsm

נכון צודק
לא שמתי לב עכשיו אני שם לב שהעתקתי את זה ממך כך

[אוריי]

@OdedDvir
ראוי לציין שאופציה הזו היא מאד שימושית כאשר אני בונה תוכנה באקסס ויש לי מלא קבצים נלווים אני שם אותם בתוך תיקיה היכן שהקובץ דטא מוסיף לקוד הזה את ההפניה היחסית מהדטא וכך כל פעם שמעדכנים את התוכנה הכל מתעדכן