תחומים
    • הרשמה
    • התחברות
    • חיפוש
    • קטגוריות
    • פוסטים אחרונים
    • משתמשים
    • חיפוש
    חוקי הפורום

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

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

      אני זקוק לערוך קובץ אקסל מתוך קובץ אקסס
      את הקוד שאני צריך לכתוב באקסל אני יודע ...
      אבל אני רוצה להריץ אותו מתוך האקסס (אני חייב שהקוד יהיה בתוך הקובץ אקסס וזה לא טוב לי להפעיל דרך קוד vbs)
      חיפשתי בגוגל וזה התוצאה שמצאתי אבל לא הבנתי מה אני אמור לעשות עם זה

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

      chagold תגובה 1 תגובה אחרונה תגובה ציטוט 0
      • chagold
        chagold @אוריי נערך לאחרונה על ידי

        @אוריי זה קשור?

        תגובה 1 תגובה אחרונה תגובה ציטוט 0
        • אוריי
          אוריי נערך לאחרונה על ידי אוריי

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

          @אוריי זה קשור?

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

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

          chagold תגובה 1 תגובה אחרונה תגובה ציטוט 0
          • chagold
            chagold @אוריי נערך לאחרונה על ידי chagold

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

            אוריי תגובה 1 תגובה אחרונה תגובה ציטוט 0
            • אוריי
              אוריי @chagold נערך לאחרונה על ידי

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

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

              chagold תגובה 1 תגובה אחרונה תגובה ציטוט 0
              • chagold
                chagold @אוריי נערך לאחרונה על ידי chagold

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

                אוריי תגובה 1 תגובה אחרונה תגובה ציטוט 0
                • אוריי
                  אוריי @chagold נערך לאחרונה על ידי

                  @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
                  ותמיד... אבל תמיד תוכלו לשאול אותי ב :) כאן שאלות באקסל

                  chagold תגובה 1 תגובה אחרונה תגובה ציטוט 0
                  • chagold
                    chagold @אוריי נערך לאחרונה על ידי 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
                    
                    
                    אוריי תגובה 1 תגובה אחרונה תגובה ציטוט 0
                    • אוריי
                      אוריי @chagold נערך לאחרונה על ידי

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

                      Set xl_wks = xl_wkb.Sheets(source_cbo)
                      

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

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

                      אפר שריפה תגובה 1 תגובה אחרונה תגובה ציטוט 0
                      • אפר שריפה
                        אפר שריפה @אוריי נערך לאחרונה על ידי

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

                        אוריי תגובה 1 תגובה אחרונה תגובה ציטוט 0
                        • אוריי
                          אוריי @אפר שריפה נערך לאחרונה על ידי

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

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

                          תגובה 1 תגובה אחרונה תגובה ציטוט 0
                          • אוריי
                            אוריי נערך לאחרונה על ידי

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

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

                            מנחם תגובה 1 תגובה אחרונה תגובה ציטוט 0
                            • מנחם
                              מנחם @אוריי נערך לאחרונה על ידי

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

                              Set xl_wks = xl_wkb.Sheets(source_cbo)
                              
                              source_empl_col = xl_wks.Range(empl_col_txt.Text & 1).Column
                              
                              אוריי תגובה 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 מכיל את הנתיב של הקובץ

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

                                מנחם 2 תגובות תגובה אחרונה תגובה ציטוט 0
                                • מנחם
                                  מנחם @אוריי נערך לאחרונה על ידי מנחם

                                  @אוריי
                                  דבר ראשון אני מצרף לך ולאחרים קוד בסיסי מסודר
                                  בשורה 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
                                  • מנחם
                                    מנחם @אוריי נערך לאחרונה על ידי

                                    @אוריי אמר בעזרה | לערוך קובץ אקסל ע"י קוד 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
                                    • אוריי
                                      אוריי @מנחם נערך לאחרונה על ידי אוריי

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

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

                                      מנחם תגובה 1 תגובה אחרונה תגובה ציטוט 0
                                      • מנחם
                                        מנחם @אוריי נערך לאחרונה על ידי

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

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

                                        1. טיפול בשגיאות
                                        2. שמירת הנתונים
                                        3. ניקוי האובייקטים
                                        אוריי תגובה 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
                                          

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

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

                                          מנחם 2 תגובות תגובה אחרונה תגובה ציטוט 0
                                          • מנחם
                                            מנחם @אוריי נערך לאחרונה על ידי

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

                                            xl_App.Quit
                                            
                                            אוריי תגובה 1 תגובה אחרונה תגובה ציטוט 0
                                            • אוריי
                                              אוריי @מנחם נערך לאחרונה על ידי אוריי

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

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

                                              תגובה 1 תגובה אחרונה תגובה ציטוט 0
                                              • מנחם
                                                מנחם @אוריי נערך לאחרונה על ידי

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

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

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

                                                אוריי תגובה 1 תגובה אחרונה תגובה ציטוט 0
                                                • אוריי
                                                  אוריי @מנחם נערך לאחרונה על ידי

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

                                                  BREK

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

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

                                                  מלא תגובה 1 תגובה אחרונה תגובה ציטוט 0
                                                  • מלא
                                                    מלא @אוריי נערך לאחרונה על ידי

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

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

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

                                                    אוריי תגובה 1 תגובה אחרונה תגובה ציטוט 0
                                                    • אוריי
                                                      אוריי @מלא נערך לאחרונה על ידי

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

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

                                                      תגובה 1 תגובה אחרונה תגובה ציטוט 0
                                                      • הועבר מ תכנות ע"י  dovid dovid 
                                                      • 1 / 1
                                                      • פוסט ראשון
                                                        פוסט אחרון
                                                      בא תתחבר לדף היומי!