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

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

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

עזרה | לערוך קובץ אקסל ע"י קוד vba מקובץ אקסס

מתוזמן נעוץ נעול הועבר תכנות
25 פוסטים 5 כותבים 606 צפיות 4 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • chagoldC chagold

    @אוריי בגדול לא אמור להיות הבדל ביניהם.
    נסה להדביק את הקוד שאתה צריך לעבוד איתו בפקודה שתעשה בטופס אקסס ואם יש שגיאה תגיד.

    אורייא מנותק
    אורייא מנותק
    אוריי
    כתב ב נערך לאחרונה על ידי
    #5

    @chagold
    למה שהקוד ידע איזה קובץ לערוך... ?

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

    chagoldC תגובה 1 תגובה אחרונה
    0
    • אורייא אוריי

      @chagold
      למה שהקוד ידע איזה קובץ לערוך... ?

      chagoldC מנותק
      chagoldC מנותק
      chagold
      כתב ב נערך לאחרונה על ידי chagold
      #6

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

      אורייא תגובה 1 תגובה אחרונה
      0
      • chagoldC chagold

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

        אורייא מנותק
        אורייא מנותק
        אוריי
        כתב ב נערך לאחרונה על ידי
        #7

        @chagold
        לדוגמא נלך על הקוד הבא

        Dim xl_app As Object, xlwkb As Object, xl_wks As Object
        Dim source_empl_col As Integer
        Set xl_app = CreateObject("Excel.Application")
        Set xl_wkb = xl_app.Workbooks.open(aName)
        Set xl_wks = xl_wkb.Sheets(source_cbo)
        source_empl_col = xl_wks.Range(empl_col_txt.text & 1).Column
        

        תוכל להסביר לי מה הולך בכל שורה?

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

        chagoldC תגובה 1 תגובה אחרונה
        0
        • אורייא אוריי

          @chagold
          לדוגמא נלך על הקוד הבא

          Dim xl_app As Object, xlwkb As Object, xl_wks As Object
          Dim source_empl_col As Integer
          Set xl_app = CreateObject("Excel.Application")
          Set xl_wkb = xl_app.Workbooks.open(aName)
          Set xl_wks = xl_wkb.Sheets(source_cbo)
          source_empl_col = xl_wks.Range(empl_col_txt.text & 1).Column
          

          תוכל להסביר לי מה הולך בכל שורה?

          chagoldC מנותק
          chagoldC מנותק
          chagold
          כתב ב נערך לאחרונה על ידי chagold
          #8

          @אוריי אמר בעזרה | לערוך קובץ אקסל ע"י קוד vba מקובץ אקסס:
          בערך..

          //משתני האובייקט, הקובץ הספציפי, והגליון
          Dim xl_app As Object, xlwkb As Object, xl_wks As Object
          Dim source_empl_col As Integer
          
          //פתיחתם.
          
          //בשורה השניה
          // צריך להחליף את aName 
          //בקובץ הספציפי שלך.
          Set xl_app = CreateObject("Excel.Application")
          Set xl_wkb = xl_app.Workbooks.open(aName)
          Set xl_wks = xl_wkb.Sheets(source_cbo)
          
          source_empl_col = xl_wks.Range(empl_col_txt.text & 1).Column
          
          
          אורייא תגובה 1 תגובה אחרונה
          0
          • chagoldC chagold

            @אוריי אמר בעזרה | לערוך קובץ אקסל ע"י קוד vba מקובץ אקסס:
            בערך..

            //משתני האובייקט, הקובץ הספציפי, והגליון
            Dim xl_app As Object, xlwkb As Object, xl_wks As Object
            Dim source_empl_col As Integer
            
            //פתיחתם.
            
            //בשורה השניה
            // צריך להחליף את aName 
            //בקובץ הספציפי שלך.
            Set xl_app = CreateObject("Excel.Application")
            Set xl_wkb = xl_app.Workbooks.open(aName)
            Set xl_wks = xl_wkb.Sheets(source_cbo)
            
            source_empl_col = xl_wks.Range(empl_col_txt.text & 1).Column
            
            
            אורייא מנותק
            אורייא מנותק
            אוריי
            כתב ב נערך לאחרונה על ידי
            #9

            @chagold אמר בעזרה | לערוך קובץ אקסל ע"י קוד vba מקובץ אקסס:

            Set xl_wks = xl_wkb.Sheets(source_cbo)
            

            אני נתקל בשגיאה בשורה הזו
            60520162-5e6a-4a5e-a90d-e97ce895d725-image.png

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

            אפר שריפהא תגובה 1 תגובה אחרונה
            0
            • אורייא אוריי

              @chagold אמר בעזרה | לערוך קובץ אקסל ע"י קוד vba מקובץ אקסס:

              Set xl_wks = xl_wkb.Sheets(source_cbo)
              

              אני נתקל בשגיאה בשורה הזו
              60520162-5e6a-4a5e-a90d-e97ce895d725-image.png

              אפר שריפהא מנותק
              אפר שריפהא מנותק
              אפר שריפה
              כתב ב נערך לאחרונה על ידי
              #10

              @אוריי
              צריך לשים וי כאן
              fefd9e9f-c621-4c08-ae31-de2fc4a0e3d1-image.png
              TOOLS > REFERENCES
              3cabaf3e-3e0b-456f-bd07-bc894ccd9dac-image.png
              וללחוץ על OK

              אורייא תגובה 1 תגובה אחרונה
              0
              • אפר שריפהא אפר שריפה

                @אוריי
                צריך לשים וי כאן
                fefd9e9f-c621-4c08-ae31-de2fc4a0e3d1-image.png
                TOOLS > REFERENCES
                3cabaf3e-3e0b-456f-bd07-bc894ccd9dac-image.png
                וללחוץ על OK

                אורייא מנותק
                אורייא מנותק
                אוריי
                כתב ב נערך לאחרונה על ידי
                #11

                @אפר-שריפה
                לא עוזר אני מקבל עדיין את אותה השגיאה... 😞

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

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

                  לאחר ניסיון ותהיה הגעתי לשגיאה הבאה
                  553afcd3-1865-4a30-968c-bc746f9a4c65-image.png
                  בשורה הבאה..
                  af2584f6-6bd5-4ac4-8f5a-e36b3bc4a49a-image.png

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

                  מנחםמ תגובה 1 תגובה אחרונה
                  0
                  • אורייא אוריי

                    לאחר ניסיון ותהיה הגעתי לשגיאה הבאה
                    553afcd3-1865-4a30-968c-bc746f9a4c65-image.png
                    בשורה הבאה..
                    af2584f6-6bd5-4ac4-8f5a-e36b3bc4a49a-image.png

                    מנחםמ מנותק
                    מנחםמ מנותק
                    מנחם
                    כתב ב נערך לאחרונה על ידי
                    #13

                    @אוריי בדיוק כמו בפוסט שהבאת את הקישור
                    זה נראה מתרגום גוגל
                    שלא שמת את הקישור ל-גליון

                    Set xl_wks = xl_wkb.Sheets(source_cbo)
                    
                    source_empl_col = xl_wks.Range(empl_col_txt.Text & 1).Column
                    
                    אורייא תגובה 1 תגובה אחרונה
                    1
                    • מנחםמ מנחם

                      @אוריי בדיוק כמו בפוסט שהבאת את הקישור
                      זה נראה מתרגום גוגל
                      שלא שמת את הקישור ל-גליון

                      Set xl_wks = xl_wkb.Sheets(source_cbo)
                      
                      source_empl_col = xl_wks.Range(empl_col_txt.Text & 1).Column
                      
                      אורייא מנותק
                      אורייא מנותק
                      אוריי
                      כתב ב נערך לאחרונה על ידי אוריי
                      #14

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

                      On Error GoTo doExcelAutomationErr
                      
                      Dim mySheet As Object
                      Dim xlApp As Object
                      Dim strName As String
                      
                          strName = aName
                          Set xlApp = CreateObject("Excel.Application")
                          Set mySheet = xlApp.Workbooks.open(aName).Sheets(1)
                      
                          mySheet.SaveAs strName
                          xlApp.Visible = False
                          Set mySheet = xlApp.Sheets("Export")
                          
                          With mySheet
                              
                          Range("a1").Value = "שם ספר"
                          Range("b1").Value = "צבע"
                          Range("c1").Value = "מדף"
                          Range("d1").Value = "שם מחבר"
                          Range("e1").Value = "סיווג"
                          Range("f1").Value = "הערות"
                          
                          
                          .Application.ActiveWorkbook.Save
                          End With
                          
                          Set mySheet = Nothing
                          Set xlApp = Nothing
                      
                      doExcelAutomationExit:
                          Exit Sub
                      
                      doExcelAutomationErr:
                          MsgBox Err.Description, vbOKOnly, Err.Source & ":" & Err.Number
                          Resume doExcelAutomationExit
                      

                      הקוד עובד מעולה חוץ מזה שיש לי 2 בעיות...
                      1. בשורה 11 הוא ככל הנראה פותח קובץ חדש והוא מבקש ממני להחליף אותו מה שאני רוצה לבטל עריכה: בסיעתא דשמיא הצלחתי להתגבר על הבעיה הזו. 👍
                      2. הקוד הזה לא סוגר לי את קובץ האקסל

                      משתנה aName מכיל את הנתיב של הקובץ

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

                      מנחםמ 2 תגובות תגובה אחרונה
                      0
                      • אורייא אוריי

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

                        On Error GoTo doExcelAutomationErr
                        
                        Dim mySheet As Object
                        Dim xlApp As Object
                        Dim strName As String
                        
                            strName = aName
                            Set xlApp = CreateObject("Excel.Application")
                            Set mySheet = xlApp.Workbooks.open(aName).Sheets(1)
                        
                            mySheet.SaveAs strName
                            xlApp.Visible = False
                            Set mySheet = xlApp.Sheets("Export")
                            
                            With mySheet
                                
                            Range("a1").Value = "שם ספר"
                            Range("b1").Value = "צבע"
                            Range("c1").Value = "מדף"
                            Range("d1").Value = "שם מחבר"
                            Range("e1").Value = "סיווג"
                            Range("f1").Value = "הערות"
                            
                            
                            .Application.ActiveWorkbook.Save
                            End With
                            
                            Set mySheet = Nothing
                            Set xlApp = Nothing
                        
                        doExcelAutomationExit:
                            Exit Sub
                        
                        doExcelAutomationErr:
                            MsgBox Err.Description, vbOKOnly, Err.Source & ":" & Err.Number
                            Resume doExcelAutomationExit
                        

                        הקוד עובד מעולה חוץ מזה שיש לי 2 בעיות...
                        1. בשורה 11 הוא ככל הנראה פותח קובץ חדש והוא מבקש ממני להחליף אותו מה שאני רוצה לבטל עריכה: בסיעתא דשמיא הצלחתי להתגבר על הבעיה הזו. 👍
                        2. הקוד הזה לא סוגר לי את קובץ האקסל

                        משתנה aName מכיל את הנתיב של הקובץ

                        מנחםמ מנותק
                        מנחםמ מנותק
                        מנחם
                        כתב ב נערך לאחרונה על ידי מנחם
                        #15

                        @אוריי
                        דבר ראשון אני מצרף לך ולאחרים קוד בסיסי מסודר
                        בשורה 13 יש לך את הסגירה של האקסל

                        'הגדרת המשתנים עבור אקסל
                        Dim xl_app As Object, xlwkb As Object, xl_wks As Object
                        'פתיחת אובייקט מסוג אקסל
                        Set xl_app = CreateObject("Excel.Application")
                        'פתיחת הקובץ המבוקש
                        Set xl_wkb = xl_app.Workbooks.Open("C:\Users\USER\Desktop\עותק של אנשי  קשר.xlsx")
                        'פתיחת הגליון הרצוי
                        Set xl_wks = xl_wkb.Sheets("חברות ביטוח ")
                        'A2 הצגת תוכן התא
                        MsgBox = xl_wks.Range("A" & 2).Value
                        
                        'סגירת האובייקט הנל מסוג אקסל
                        xlApp.Quit
                        
                        
                        אורייא תגובה 1 תגובה אחרונה
                        1
                        • אורייא אוריי

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

                          On Error GoTo doExcelAutomationErr
                          
                          Dim mySheet As Object
                          Dim xlApp As Object
                          Dim strName As String
                          
                              strName = aName
                              Set xlApp = CreateObject("Excel.Application")
                              Set mySheet = xlApp.Workbooks.open(aName).Sheets(1)
                          
                              mySheet.SaveAs strName
                              xlApp.Visible = False
                              Set mySheet = xlApp.Sheets("Export")
                              
                              With mySheet
                                  
                              Range("a1").Value = "שם ספר"
                              Range("b1").Value = "צבע"
                              Range("c1").Value = "מדף"
                              Range("d1").Value = "שם מחבר"
                              Range("e1").Value = "סיווג"
                              Range("f1").Value = "הערות"
                              
                              
                              .Application.ActiveWorkbook.Save
                              End With
                              
                              Set mySheet = Nothing
                              Set xlApp = Nothing
                          
                          doExcelAutomationExit:
                              Exit Sub
                          
                          doExcelAutomationErr:
                              MsgBox Err.Description, vbOKOnly, Err.Source & ":" & Err.Number
                              Resume doExcelAutomationExit
                          

                          הקוד עובד מעולה חוץ מזה שיש לי 2 בעיות...
                          1. בשורה 11 הוא ככל הנראה פותח קובץ חדש והוא מבקש ממני להחליף אותו מה שאני רוצה לבטל עריכה: בסיעתא דשמיא הצלחתי להתגבר על הבעיה הזו. 👍
                          2. הקוד הזה לא סוגר לי את קובץ האקסל

                          משתנה aName מכיל את הנתיב של הקובץ

                          מנחםמ מנותק
                          מנחםמ מנותק
                          מנחם
                          כתב ב נערך לאחרונה על ידי
                          #16

                          @אוריי אמר בעזרה | לערוך קובץ אקסל ע"י קוד vba מקובץ אקסס:

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

                          On Error GoTo doExcelAutomationErr
                          
                          Dim mySheet As Object
                          Dim xlApp As Object
                          Dim strName As String
                          
                              strName = aName
                              Set xlApp = CreateObject("Excel.Application")
                              Set mySheet = xlApp.Workbooks.open(aName).Sheets(1)
                          
                              mySheet.SaveAs strName
                              xlApp.Visible = False
                              Set mySheet = xlApp.Sheets("Export")
                              
                              With mySheet
                                  
                              Range("a1").Value = "שם ספר"
                              Range("b1").Value = "צבע"
                              Range("c1").Value = "מדף"
                              Range("d1").Value = "שם מחבר"
                              Range("e1").Value = "סיווג"
                              Range("f1").Value = "הערות"
                              
                              
                              .Application.ActiveWorkbook.Save
                              End With
                              
                              Set mySheet = Nothing
                              Set xlApp = Nothing
                          
                          doExcelAutomationExit:
                              Exit Sub
                          
                          doExcelAutomationErr:
                              MsgBox Err.Description, vbOKOnly, Err.Source & ":" & Err.Number
                              Resume doExcelAutomationExit
                          

                          הקוד עובד מעולה חוץ מזה שיש לי 2 בעיות...
                          1. בשורה 11 הוא ככל הנראה פותח קובץ חדש והוא מבקש ממני להחליף אותו מה שאני רוצה לבטל עריכה: בסיעתא דשמיא הצלחתי להתגבר על הבעיה הזו. 👍
                          2. הקוד הזה לא סוגר לי את קובץ האקסל

                          משתנה aName מכיל את הנתיב של הקובץ

                          אני מקוה שהבנת ששורה 11 צריך למחוק
                          שים לב ששורה 9 ו 13 חוזרים על עצמם
                          אני הייתי משאיר רק את שורה 9
                          כשהסוגריים הראשון זה שם הקובץ והסוגריים השני זה או מספר הגליון כמו שרשום אצלך או "שם הגליון" עם מרכאות

                          תגובה 1 תגובה אחרונה
                          2
                          • מנחםמ מנחם

                            @אוריי
                            דבר ראשון אני מצרף לך ולאחרים קוד בסיסי מסודר
                            בשורה 13 יש לך את הסגירה של האקסל

                            'הגדרת המשתנים עבור אקסל
                            Dim xl_app As Object, xlwkb As Object, xl_wks As Object
                            'פתיחת אובייקט מסוג אקסל
                            Set xl_app = CreateObject("Excel.Application")
                            'פתיחת הקובץ המבוקש
                            Set xl_wkb = xl_app.Workbooks.Open("C:\Users\USER\Desktop\עותק של אנשי  קשר.xlsx")
                            'פתיחת הגליון הרצוי
                            Set xl_wks = xl_wkb.Sheets("חברות ביטוח ")
                            'A2 הצגת תוכן התא
                            MsgBox = xl_wks.Range("A" & 2).Value
                            
                            'סגירת האובייקט הנל מסוג אקסל
                            xlApp.Quit
                            
                            
                            אורייא מנותק
                            אורייא מנותק
                            אוריי
                            כתב ב נערך לאחרונה על ידי אוריי
                            #17

                            @מנחם
                            לבנתיים עברתי לקוד שלך הוא נראה הרבה יותר ברור (בשבילי בכל אופן)
                            תכלס בסגירת הקובץ הוא מחזיר שגיאה כזו
                            9161a3df-6668-48d1-b933-a10aee976e79-image.png

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

                            מנחםמ תגובה 1 תגובה אחרונה
                            0
                            • אורייא אוריי

                              @מנחם
                              לבנתיים עברתי לקוד שלך הוא נראה הרבה יותר ברור (בשבילי בכל אופן)
                              תכלס בסגירת הקובץ הוא מחזיר שגיאה כזו
                              9161a3df-6668-48d1-b933-a10aee976e79-image.png

                              מנחםמ מנותק
                              מנחםמ מנותק
                              מנחם
                              כתב ב נערך לאחרונה על ידי
                              #18

                              @אוריי תוכל בבקשה לעלות את הקוד המלא
                              או לחילופין לעבור לקוד שהבאת
                              ולהוסיף אחרי השורה הזאת
                              End With
                              את האפשרות של סגירת האקסל

                              תכל'ס הקוד שהבאת הוא מצוין
                              כי היה בו

                              1. טיפול בשגיאות
                              2. שמירת הנתונים
                              3. ניקוי האובייקטים
                              אורייא תגובה 1 תגובה אחרונה
                              0
                              • מנחםמ מנחם

                                @אוריי תוכל בבקשה לעלות את הקוד המלא
                                או לחילופין לעבור לקוד שהבאת
                                ולהוסיף אחרי השורה הזאת
                                End With
                                את האפשרות של סגירת האקסל

                                תכל'ס הקוד שהבאת הוא מצוין
                                כי היה בו

                                1. טיפול בשגיאות
                                2. שמירת הנתונים
                                3. ניקוי האובייקטים
                                אורייא מנותק
                                אורייא מנותק
                                אוריי
                                כתב ב נערך לאחרונה על ידי אוריי
                                #19

                                @מנחם
                                תאמת כרגע יש לי קצת כילאים
                                אבל אני מעדיף משהו ברור מאשר משהו שלא הצלחתי להבין אותו כלל יתכן וכאשר אני יבין אני ישתמש בקוד הקודם
                                תכלס זה הקוד המלא

                                'הגדרת המשתנים עבור אקסל
                                Dim xl_app As Object, xlwkb As Object, xl_wks As Object
                                'פתיחת אובייקט מסוג אקסל
                                Set xl_app = CreateObject("Excel.Application")
                                'פתיחת הקובץ המבוקש
                                Set xl_wkb = xl_app.Workbooks.Open(aNeme)
                                'פתיחת הגליון הרצוי
                                Set xl_wks = xl_wkb.Sheets(Export)
                                 
                                     With xl_wks
                                        
                                    .Range("a1").Value = "שם ספר"
                                    .Range("b1").Value = "צבע"
                                    .Range("c1").Value = "מדף"
                                    .Range("d1").Value = "שם מחבר"
                                    .Range("e1").Value = "סיווג"
                                    .Range("f1").Value = "הערות"
                                    
                                    
                                    .Application.ActiveWorkbook.Save
                                    End With
                                'סגירת האובייקט הנל מסוג אקסל
                                xlApp.Quit
                                

                                דרך אגב משום מה האקסס קפא לי לאחר הריצה ועד עכשיו הוא לא רוצה להפשיר 😞
                                ואני לא רוצה לסגור אותו בכח כי יש לי שם דברים שלא שמרתי 😞

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

                                מנחםמ 2 תגובות תגובה אחרונה
                                0
                                • אורייא אוריי

                                  @מנחם
                                  תאמת כרגע יש לי קצת כילאים
                                  אבל אני מעדיף משהו ברור מאשר משהו שלא הצלחתי להבין אותו כלל יתכן וכאשר אני יבין אני ישתמש בקוד הקודם
                                  תכלס זה הקוד המלא

                                  'הגדרת המשתנים עבור אקסל
                                  Dim xl_app As Object, xlwkb As Object, xl_wks As Object
                                  'פתיחת אובייקט מסוג אקסל
                                  Set xl_app = CreateObject("Excel.Application")
                                  'פתיחת הקובץ המבוקש
                                  Set xl_wkb = xl_app.Workbooks.Open(aNeme)
                                  'פתיחת הגליון הרצוי
                                  Set xl_wks = xl_wkb.Sheets(Export)
                                   
                                       With xl_wks
                                          
                                      .Range("a1").Value = "שם ספר"
                                      .Range("b1").Value = "צבע"
                                      .Range("c1").Value = "מדף"
                                      .Range("d1").Value = "שם מחבר"
                                      .Range("e1").Value = "סיווג"
                                      .Range("f1").Value = "הערות"
                                      
                                      
                                      .Application.ActiveWorkbook.Save
                                      End With
                                  'סגירת האובייקט הנל מסוג אקסל
                                  xlApp.Quit
                                  

                                  דרך אגב משום מה האקסס קפא לי לאחר הריצה ועד עכשיו הוא לא רוצה להפשיר 😞
                                  ואני לא רוצה לסגור אותו בכח כי יש לי שם דברים שלא שמרתי 😞

                                  מנחםמ מנותק
                                  מנחםמ מנותק
                                  מנחם
                                  כתב ב נערך לאחרונה על ידי
                                  #20

                                  @אוריי
                                  שים לב שחסר לך את המקף במשתנה מסוג אובייקט אקסל

                                  xl_App.Quit
                                  
                                  אורייא תגובה 1 תגובה אחרונה
                                  0
                                  • מנחםמ מנחם

                                    @אוריי
                                    שים לב שחסר לך את המקף במשתנה מסוג אובייקט אקסל

                                    xl_App.Quit
                                    
                                    אורייא מנותק
                                    אורייא מנותק
                                    אוריי
                                    כתב ב נערך לאחרונה על ידי אוריי
                                    #21

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

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

                                    תגובה 1 תגובה אחרונה
                                    0
                                    • אורייא אוריי

                                      @מנחם
                                      תאמת כרגע יש לי קצת כילאים
                                      אבל אני מעדיף משהו ברור מאשר משהו שלא הצלחתי להבין אותו כלל יתכן וכאשר אני יבין אני ישתמש בקוד הקודם
                                      תכלס זה הקוד המלא

                                      'הגדרת המשתנים עבור אקסל
                                      Dim xl_app As Object, xlwkb As Object, xl_wks As Object
                                      'פתיחת אובייקט מסוג אקסל
                                      Set xl_app = CreateObject("Excel.Application")
                                      'פתיחת הקובץ המבוקש
                                      Set xl_wkb = xl_app.Workbooks.Open(aNeme)
                                      'פתיחת הגליון הרצוי
                                      Set xl_wks = xl_wkb.Sheets(Export)
                                       
                                           With xl_wks
                                              
                                          .Range("a1").Value = "שם ספר"
                                          .Range("b1").Value = "צבע"
                                          .Range("c1").Value = "מדף"
                                          .Range("d1").Value = "שם מחבר"
                                          .Range("e1").Value = "סיווג"
                                          .Range("f1").Value = "הערות"
                                          
                                          
                                          .Application.ActiveWorkbook.Save
                                          End With
                                      'סגירת האובייקט הנל מסוג אקסל
                                      xlApp.Quit
                                      

                                      דרך אגב משום מה האקסס קפא לי לאחר הריצה ועד עכשיו הוא לא רוצה להפשיר 😞
                                      ואני לא רוצה לסגור אותו בכח כי יש לי שם דברים שלא שמרתי 😞

                                      מנחםמ מנותק
                                      מנחםמ מנותק
                                      מנחם
                                      כתב ב נערך לאחרונה על ידי
                                      #22

                                      @אוריי אמר בעזרה | לערוך קובץ אקסל ע"י קוד vba מקובץ אקסס:

                                      דרך אגב משום מה האקסס קפא לי לאחר הריצה ועד עכשיו הוא לא רוצה להפשיר 😞
                                      ואני לא רוצה לסגור אותו בכח כי יש לי שם דברים שלא שמרתי 😞

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

                                      אורייא תגובה 1 תגובה אחרונה
                                      0
                                      • מנחםמ מנחם

                                        @אוריי אמר בעזרה | לערוך קובץ אקסל ע"י קוד vba מקובץ אקסס:

                                        דרך אגב משום מה האקסס קפא לי לאחר הריצה ועד עכשיו הוא לא רוצה להפשיר 😞
                                        ואני לא רוצה לסגור אותו בכח כי יש לי שם דברים שלא שמרתי 😞

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

                                        אורייא מנותק
                                        אורייא מנותק
                                        אוריי
                                        כתב ב נערך לאחרונה על ידי
                                        #23

                                        @מנחם אמר בעזרה | לערוך קובץ אקסל ע"י קוד vba מקובץ אקסס:

                                        BREK

                                        אין לי כפתור כזה

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

                                        מלאמ תגובה 1 תגובה אחרונה
                                        0
                                        • אורייא אוריי

                                          @מנחם אמר בעזרה | לערוך קובץ אקסל ע"י קוד vba מקובץ אקסס:

                                          BREK

                                          אין לי כפתור כזה

                                          מלאמ מנותק
                                          מלאמ מנותק
                                          מלא
                                          כתב ב נערך לאחרונה על ידי
                                          #24

                                          @אוריי אמר בעזרה | לערוך קובץ אקסל ע"י קוד vba מקובץ אקסס:

                                          אין לי כפתור כזה

                                          break
                                          יש אותו במקלדת רגילה מעל החיצים מעל page up ו down

                                          אורייא תגובה 1 תגובה אחרונה
                                          0
                                          תגובה
                                          • תגובה כנושא
                                          התחברו כדי לפרסם תגובה
                                          • מהישן לחדש
                                          • מהחדש לישן
                                          • הכי הרבה הצבעות


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

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

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