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

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

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

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

מתוזמן נעוץ נעול הועבר תכנות
25 פוסטים 5 כותבים 603 צפיות
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • אפר שריפהא מנותק
    אפר שריפהא מנותק
    אפר שריפה
    השיב לאוריי ב נערך לאחרונה על ידי
    #10

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

    אורייא תגובה 1 תגובה אחרונה
    0
    • אורייא מנותק
      אורייא מנותק
      אוריי
      השיב לאפר שריפה ב נערך לאחרונה על ידי
      #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
        • מנחםמ מנותק
          מנחםמ מנותק
          מנחם
          השיב לאוריי ב נערך לאחרונה על ידי
          #13

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

          Set xl_wks = xl_wkb.Sheets(source_cbo)
          
          source_empl_col = xl_wks.Range(empl_col_txt.Text & 1).Column
          
          אורייא תגובה 1 תגובה אחרונה
          1
          • אורייא מנותק
            אורייא מנותק
            אוריי
            השיב למנחם ב נערך לאחרונה על ידי אוריי
            #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
            • מנחםמ מנותק
              מנחםמ מנותק
              מנחם
              השיב לאוריי ב נערך לאחרונה על ידי מנחם
              #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
              • מנחםמ מנותק
                מנחםמ מנותק
                מנחם
                השיב לאוריי ב נערך לאחרונה על ידי
                #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
                • אורייא מנותק
                  אורייא מנותק
                  אוריי
                  השיב למנחם ב נערך לאחרונה על ידי אוריי
                  #17

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

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

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

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

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

                    1. טיפול בשגיאות
                    2. שמירת הנתונים
                    3. ניקוי האובייקטים
                    אורייא תגובה 1 תגובה אחרונה
                    0
                    • אורייא מנותק
                      אורייא מנותק
                      אוריי
                      השיב למנחם ב נערך לאחרונה על ידי אוריי
                      #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
                      • מנחםמ מנותק
                        מנחםמ מנותק
                        מנחם
                        השיב לאוריי ב נערך לאחרונה על ידי
                        #20

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

                        xl_App.Quit
                        
                        אורייא תגובה 1 תגובה אחרונה
                        0
                        • אורייא מנותק
                          אורייא מנותק
                          אוריי
                          השיב למנחם ב נערך לאחרונה על ידי אוריי
                          #21

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

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

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

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

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

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

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

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

                              BREK

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

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

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

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

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

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

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

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

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

                                  תגובה 1 תגובה אחרונה
                                  0
                                  • dovidD dovid העביר נושא זה מ-תכנות ב-

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

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

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