האטת ריצת קוד vba

dovid

@איש-ימיני, אין בכלל לולאה...

אוריי

אבל שמתי לב שהוא נתקע דוקא מיד בתחילת הקוד בשורה שהוא מבצע פעולת פתיחת קובץ.

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

וזו הסיבה שבריצה ע"י F8 הקוד עובד מעולה.

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

בהצלחה.

מטעמים

@אוריי כתב בהאטת ריצת קוד vba:

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

תוכל לתת דוגמה?
כי עשיתי מה ש @mekev כתב לעיל:

ניתן להוסיף השהיה
באמצעות הקוד הבא
(הפוקנציה עוצרת עד לשעה המבוקשת, ע"מ להשיג השהיה של זמן נוכחי תוך כדי הרצת הקוד מוסיפים את הnow+)
Application.Wait (Now + TimeValue("00:00:05"))

ולא עזר כ"כ.

אוריי

@מטעמים את האמת אני נתקלתי בזה לפני איזה 3 שנים, וזה היה הפתרון.

איפה בדיוק שמת את הקוד של ההמתנה (באיזו שורה)???
ולכמה זמן נתנת לו המתנה ומה יקרה אם תתן לו דקה שלימה להמתין.

אין לי כרגע גישה לקובץ שאיתו היה לי את הבעיה בכדי לבדוק מה בדיוק עשיתי ועם איזה קוד השתמשתי.

מטעמים

@אוריי כתב בהאטת ריצת קוד vba:

איפה בדיוק שמת את הקוד של ההמתנה (באיזו שורה)???
ולכמה זמן נתנת לו המתנה ומה יקרה אם תתן לו דקה שלימה להמתין.

עשיתי ממש עכשיו כמה ניסיונות,
בסופו של דבר...
העתקתי את השורת קוד כמו שהיא (5 שניות) והדבקתי 4 פעמים לאורך הקוד. והופ.. רץ יפה והאקסל לא נכנס לקיפאון; אמנם זמן העיבוד ממושך קצת (20 שניות זה המון) אבל מה שחשוב לי שהוא לא קורס.

תודה לכל המסייעים.

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

OdedDvir

אני יודע שהגעתי מאוחר למסיבה...
@אוריי אתה אבחנת את הבעיה נכון, יפה מאוד!
אבל הפתרון הזה עקום לטעמי,
יש אפשרות יותר אלגנטית להמתין עד שהקובץ יהיה מוכן לכתיבה,
@מטעמים תחליף את שורה 13 בדוגמא שהבאת לעיל, בקוד הבא:

Dim newWb As Workbook
Set newWb = Workbooks.Open(קובץ_מקור & "x", ReadOnly:=False)
Do Until newWb.ReadOnly = False
    DoEvents
Loop
' עכשיו אתה חופשי לבצע פעולות

מטעמים

@OdedDvir זה אכן עזר.

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

OdedDvir

@מטעמים רק בשביל קריאות הקוד, אפשר גם לקצר, אבל זה פחות מובן מה קורה:

Do Until Not Workbooks.Open(SourceFile, ReadOnly:=False).ReadOnly
    DoEvents
Loop
' עכשיו אתה חופשי לבצע פעולות

אוריי

@OdedDvir יפה מאוד, אני לא הכרתי את זה (למדתי עוד משהו היום ).

@מטעמים כתב בהאטת ריצת קוד vba:

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

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

מטעמים

@אוריי כתב בהאטת ריצת קוד vba:

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

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

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

האטת ריצת קוד vba