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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

        אורייא תגובה 1 תגובה אחרונה
        0
        • 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
                                          תגובה
                                          • תגובה כנושא
                                          התחברו כדי לפרסם תגובה
                                          • מהישן לחדש
                                          • מהחדש לישן
                                          • הכי הרבה הצבעות


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

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

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