דילוג לתוכן
  • דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
כיווץ
תחומים

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

💡 רוצה לזכור קריאת שמע בזמן? לחץ כאן!
  1. דף הבית
  2. תוכנה
  3. הפעלת קוד vba באקסל דרך אקסס

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

מתוזמן נעוץ נעול הועבר תוכנה
15 פוסטים 3 כותבים 481 צפיות
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • Y מנותק
    Y מנותק
    yits
    כתב ב נערך לאחרונה על ידי yits
    #2

    יש לי קובץ אקסס שאני מפעיל דרכו קובץ אקסל וזה עובד טוב.

    אתה צריך לדעת מה מספר השגיאה וככה לטפל בשגיאות,
    לדוגמא אם האקסל פתוח וצריך רק להשתמש בתהליך קיים או שהאקסל סגור וצריך לפתוח תהליך כזה
    זה שני צורות של כתיבת קוד
    יש את הקוד הזה
    Set xl = CreateObject("Excel.Application")
    ויש עוד קוד
    Set xl = GetObject("Excel.Application")

    לקניה והנחות ב KSP כנסו מכאן.
    למוצרים עם הנחה מכאן.

    אורייא תגובה 1 תגובה אחרונה
    0
    • אורייא מנותק
      אורייא מנותק
      אוריי
      השיב לyits ב נערך לאחרונה על ידי
      #3

      @yits
      אז אני אסביר
      יש לי קובץ אקסל שבו יש לי קוד vba להדפסה שלו.
      ואני רוצה דרך האקסס להדפיס ואפי' מבחינתי לא לפתוח את האקסל בכלל (אם אפשרי)

      ניתן לפנות אלי גם ב al0548446188@gmail.com
      ותמיד... אבל תמיד תוכלו לשאול אותי ב :) כאן שאלות באקסל

      OdedDvirO תגובה 1 תגובה אחרונה
      0
      • OdedDvirO מנותק
        OdedDvirO מנותק
        OdedDvir
        השיב לאוריי ב נערך לאחרונה על ידי
        #4

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

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

        תפרט יותר את הקוד שבאקסל, מה עשית לקוד שמצאת, ומה השגיאה

        אורייא תגובה 1 תגובה אחרונה
        1
        • אורייא מנותק
          אורייא מנותק
          אוריי
          השיב לOdedDvir ב נערך לאחרונה על ידי
          #5

          @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
          ומחזיר לי שגיאה כזו

          a7ba8028-80fc-4c16-9829-c8317a8b38c4-image.png
          שניראת אפי' לא קשורה להפניות אלא לשגיאה אחרת בקוד

          ניתן לפנות אלי גם ב al0548446188@gmail.com
          ותמיד... אבל תמיד תוכלו לשאול אותי ב :) כאן שאלות באקסל

          OdedDvirO תגובה 1 תגובה אחרונה
          0
          • OdedDvirO מנותק
            OdedDvirO מנותק
            OdedDvir
            השיב לאוריי ב נערך לאחרונה על ידי
            #6

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

            Dim xl As Object
            
            אורייא תגובה 1 תגובה אחרונה
            1
            • אורייא מנותק
              אורייא מנותק
              אוריי
              השיב לOdedDvir ב נערך לאחרונה על ידי
              #7

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

              Dim xl As Object

              תודה
              הוא עובר את זה אבל נתקע במאקרו עם שגיאה כזו
              9893865a-ebc9-4234-be73-e8ee847dc996-image.png

              ניתן לפנות אלי גם ב al0548446188@gmail.com
              ותמיד... אבל תמיד תוכלו לשאול אותי ב :) כאן שאלות באקסל

              OdedDvirO תגובה 1 תגובה אחרונה
              0
              • OdedDvirO מנותק
                OdedDvirO מנותק
                OdedDvir
                השיב לאוריי ב נערך לאחרונה על ידי
                #8

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

                אורייא תגובה 1 תגובה אחרונה
                1
                • אורייא מנותק
                  אורייא מנותק
                  אוריי
                  השיב לOdedDvir ב נערך לאחרונה על ידי
                  #9

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

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

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

                  ניתן לפנות אלי גם ב al0548446188@gmail.com
                  ותמיד... אבל תמיד תוכלו לשאול אותי ב :) כאן שאלות באקסל

                  OdedDvirO תגובה 1 תגובה אחרונה
                  0
                  • OdedDvirO מנותק
                    OdedDvirO מנותק
                    OdedDvir
                    השיב לאוריי ב נערך לאחרונה על ידי OdedDvir
                    #10

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

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

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

                    xl.Visible = False
                    

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

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

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

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

                    Dim xlFilePath As String
                    xlFilePath = CurrentProject.Path & "\" & "שם הקובץ שלך.xlsm"
                    xl.Workbooks.Open xlFilePath, True, False
                    אורייא 3 תגובות תגובה אחרונה
                    1
                    • אורייא מנותק
                      אורייא מנותק
                      אוריי
                      השיב לOdedDvir ב נערך לאחרונה על ידי
                      #11

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

                      ניתן לפנות אלי גם ב al0548446188@gmail.com
                      ותמיד... אבל תמיד תוכלו לשאול אותי ב :) כאן שאלות באקסל

                      תגובה 1 תגובה אחרונה
                      0
                      • אורייא מנותק
                        אורייא מנותק
                        אוריי
                        השיב לOdedDvir ב נערך לאחרונה על ידי
                        #12

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

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

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

                        ניתן לפנות אלי גם ב al0548446188@gmail.com
                        ותמיד... אבל תמיד תוכלו לשאול אותי ב :) כאן שאלות באקסל

                        OdedDvirO תגובה 1 תגובה אחרונה
                        0
                        • OdedDvirO מנותק
                          OdedDvirO מנותק
                          OdedDvir
                          השיב לאוריי ב נערך לאחרונה על ידי
                          #13

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

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

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

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

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

                          אורייא תגובה 1 תגובה אחרונה
                          1
                          • אורייא מנותק
                            אורייא מנותק
                            אוריי
                            השיב לOdedDvir ב נערך לאחרונה על ידי אוריי
                            #14

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

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

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

                            ניתן לפנות אלי גם ב al0548446188@gmail.com
                            ותמיד... אבל תמיד תוכלו לשאול אותי ב :) כאן שאלות באקסל

                            תגובה 1 תגובה אחרונה
                            0
                            • אורייא מנותק
                              אורייא מנותק
                              אוריי
                              השיב לOdedDvir ב נערך לאחרונה על ידי
                              #15

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

                              ניתן לפנות אלי גם ב al0548446188@gmail.com
                              ותמיד... אבל תמיד תוכלו לשאול אותי ב :) כאן שאלות באקסל

                              תגובה 1 תגובה אחרונה
                              1

                              בא תתחבר לדף היומי!
                              • התחברות

                              • אין לך חשבון עדיין? הרשמה

                              • התחברו או הירשמו כדי לחפש.
                              • פוסט ראשון
                                פוסט אחרון
                              0
                              • דף הבית
                              • קטגוריות
                              • פוסטים אחרונים
                              • משתמשים
                              • חיפוש
                              • חוקי הפורום