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

ושוב משהו מעצבן שאני נתקל בו זה השגיאה הבאה

בשורה הבאה

אבל משהו מוזר מתרחש שהקוד לא נעצר בעת שמתרחשת שגיאה אלא אם אחרי השגיאה לחצתי f5 או f8 הוא ממשיך את הקוד הלאה.
למי פתרונים??

שוב אני נתקל בשגיאה כאשר אני רוצה להריץ לולאה על האקסל
זה הקוד שכתבתי

 Dim x
 Dim namecolor As String
  For x = 2 To numRow
 namecolor = xl_wks.Range("b" & x).Value
 xl_wks.Range("b" & x & ":c" & x).Select
 
        Select Case namecolor
            Case "ëúåí"
                xl_wks.Selection.Interior.Color = 49407
            Case "öäåá"
                xl_wks.Selection.Interior.Color = 65535
            Case "åøåã"
                xl_wks.Selection.Interior.Color = 13395711
            Case "ñâåì"
                xl_wks.Selection.Interior.Color = 12993165
            Case "éøå÷"
                xl_wks.Selection.Interior.Color = 5287936
            Case "àãåí"
                xl_wks.Selection.Interior.Color = 255
            Case "úëìú"
                xl_wks.Selection.Interior.Color = 16750899
 x = x + 1
 Next

וזה השגיאה שאני מקבל
Compile error:

Next without For

הצלחתי לעלות על הבעיה היה צריך לכתוב כך

xl_app.ActiveSheet.DisplayRightToLeft = True

ולא xl_wks
@מנחם למה בחלק הוא מצריך xl_wks ובחלק מהקודים xl_app ??

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

בהמשך לנושא הנ"ל את השלב הראשון עברתי
אמנם אני נתקל בכל מיני שורות קוד שמחזירות שגיאות

1. הקוד הבא לישור האקסל למימין לשמאל

ActiveSheet.DisplayRightToLeft = True

ניסיתי אותו באקסס כך

xl_wks.ActiveSheet.DisplayRightToLeft = True

והוא מחזיר שגיאה

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

@יוסף-חיים-016
ככל הנראה חסר לך הבנה במהותו של פורום.
ואני אסביר

1. פורום נועד לשאול שאלות באופן כללי לכולם ולא למישהו ספציפי.
2. פורום לא נוצר כפלטפורמה לעזרה הדדית אישית וכ"ש שלא ע"ג הפורום.
3. רוב משתמשי הפורום אוהבים לתת עזרה מעל גבי השולחן כדי שאם עוד אחד יהיה לו את אותה התקלה הוא ילמד מהתשובה ולא יצטרכו לכתוב 1000 פעם באישי.
4. פורום לא נועד (בעצמותו) להתיידדות אישית בשום צורה שהיא לצורך זה הסבירו שיש לך מייל ...
5. להסברים נוספים

@יוסף-חיים-016 אמר בלדעתי כדאי לפתוח את האופציה לצ'אטים:

אני לא יפתח מייל בשביל לדבר עם מישהו, ומה שגם במייל יש סכנה רוחנית הרבה יותר גדולה.
ב. אני חושב שגם אתה היית מעדיף צ'אט, הרי אתה יודע כמה זה מועיל ועוזר...

לעומת זאת אם תשאל בפרטי, אתה מתיודד עם אננשים, שומר איתם על קשר טוב,

@יוסף-חיים-016 אתה לא חושב שזה תרתי דסתרי??

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

נ.ב. למה רציתי כי היה לי בסך הכל שאלה על דיוור כולל קובץ מצורף

ורציתי לשאול מישהו ספציפי

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

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

BREK

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

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

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

'הגדרת המשתנים עבור אקסל
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

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

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

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

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 מכיל את הנתיב של הקובץ

לאחר ניסיון ותהיה הגעתי לשגיאה הבאה

בשורה הבאה..

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

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

Set xl_wks = xl_wkb.Sheets(source_cbo)

אני נתקל בשגיאה בשורה הזו

@שמח-לשמוע
עיין כאן
שים לב! זה עובד רק בגוגל שיטס.

@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

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

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

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

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

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