המשך | לערוך קובץ אקסל ע"י קובץ אקסס

[אוריי]

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

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

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

ActiveSheet.DisplayRightToLeft = True

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

xl_wks.ActiveSheet.DisplayRightToLeft = True

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

[אוריי]

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

xl_app.ActiveSheet.DisplayRightToLeft = True

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

[מלא]

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

[אוריי]

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

 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

[מלא]

@אוריי
אחרי שורה 21 חסר
end select

[אוריי]

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

בשורה הבאה

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

[chagold]

@אוריי תסמן את השורות שאלתה רוצה לדבג ע"י לחיצה בצד שמאל (בשוליים). אם לא תבין אעלה צילום בל"נ.

[אוריי]

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

@אוריי תסמן את השורות שאלתה רוצה לדבג ע"י לחיצה בצד שמאל (בשוליים). אם לא תבין אעלה צילום בל"נ.

נראה לי שלא הבנת מה כתבתי בשורה האחרונה שלי.
בדרך כלל כאשר מתרחשת שגיאה הvba לא מוכן להמשיך להריץ (כי הוא לא מבין מה אתה רוצה ממנו) משא"כ בשגיאה הזו הוא נעצר מקפיץ חלון וכאשר אני ממשיך ע"י לחיצה על f8 או f5 הvba ממשיך להריץ את הקוד הלאה..
מקווה שעכשיו הייתי מובן

[אוריי]

@chagold @מלא
ב"ה הסתדרתי
זה היה קוד שהוא לא כזה נצרך.
והגעתי לאותה התוצאה בצורה שונה.
הרבה תודה על הרצון הטוב לעזור

[אפר שריפה]

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

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

בהתחלה זה היה גיליון פעיל בגיליון שיש בזה שגיאה לוגית
ובהמשך זה גיליון פעיל באקסל שזה תקין
זה לוגיקה מאד פשוטה