התייעצות | בניית מסד נתונים לתכנת "הדרן עלך" | אקסל

[OdedDvir]

@פלורידה תשתמש במשתנים גלובליים.
צור מודול ובו תצהיר על משתנה גלובלי (ציבורי) שיכיל את חוברת הנתונים:

Public DataWB As Workbook

כעת בפתיחת החוברת שלך, תריץ את הקוד הבא:

Set DataWB = GetObject("Hadran_Data.xlsx")

ולפני הסגירה תריץ:

DataWB.Close SaveChanges:=True

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

בין לבין, תוכל לגשת לקובץ הדאטא מכל מקום בקוד על ידי האובייקט DataWB.

[פלורידה]

@odeddvir

אני מנסה לכתוב איליו כך:

Application.Goto Workbooks(DataWB).Sheets("גיליון1").Range("a1") = Range("a1").Value

מקבל שגיאה
Type mismatch

[OdedDvir]

@פלורידה צ"ל כך:

DataWB.Sheets("גיליון1").Range("a1")

[פלורידה]

@odeddvir

כיצד ניתן להחזיר את הקובץ שיפעל כרגיל?

[OdedDvir]

@פלורידה לא הבנתי מה כוונתך.

[פלורידה]

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

ניסיתי להגדיר ככה:

DataWB.Visible = True

אך קיבלתי שגיאה: Object doesn't support this property or method

[OdedDvir]

@פלורידה מעניין... לא הצלחתי לשחזר את התופעה אצלי.
בכל מקרה, פתח את הקובץ דאטא, עבור לעורך ה-VBA על ידי מקש F11 ובחלון ה- Immediate למטה תריץ:

ThisWorkbook.Windows(1).Visible = True

האם כעת מוצג?

[פלורידה]

@odeddvir אמר בהתייעצות | בניית מסד נתונים לתכנת "הדרן עלך" | אקסל:

האם כעת מוצג?

אכן מוצג
מה המספר (1) מבטא?
על מנת שאדע כיצד לשלב אותו בקוד

[OdedDvir]

@פלורידה את אינדקס החלון מתוך החלונות הפעילים. ניתן לציין לפי מספר או לפי כותרת:

Application.Windows(1).Caption = "שמוליק"
Application.Windows("שמוליק").ActiveSheet.Calculate

[פלורידה]

@odeddvir אמר בהתייעצות | בניית מסד נתונים לתכנת "הדרן עלך" | אקסל:

Application.Windows(1).Caption = "שמוליק"

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

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

כאשר הוא יהפך לפעיל הוא יחזור להיות (1) וכל הקוד ישתבש? ואם נתתי לו שם, זה ישנה את העובדה הזו?

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

אני מרגיש שדיברתי יותר מידי... מה חסר לי בהבנה?

[OdedDvir]

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

[פלורידה]

@odeddvir בוודאי יש לך גירסת אופיס 365
לי יש 2019

הצורה שהכנסתי את זה היא כך:

Sub open1()
Set DataWB = GetObject("C:\Desktop\Hadran_Data.xlsx")
DataWB.Visible = True
End Sub

וכך

Sub סגור()
DataWB.Visible = True
DataWB.Close SaveChanges:=True
End Sub

בריצה בחלון המיידי מתקבלת השגיאה הבאה:

Run-time error '424':

Object required

[OdedDvir]

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

Sub open1()
Set DataWB = Workbooks.Open("C:\Desktop\Hadran_Data.xlsx")
End Sub

ותו לא מידי.

[פלורידה]

@odeddvir אמר בהתייעצות | בניית מסד נתונים לתכנת "הדרן עלך" | אקסל:

לפי הקוד שצירפת, אתה רוצה להציג את חלון הדאטא מתוך התוכנה. אני הבנתי שלא.

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

[OdedDvir]

@פלורידה אם כן, מדוע אתה מנסה להציג אותו כבר בפתיחה?
בכל מקרה, לאובייקט Workbook אין מאפיין Visible. אתה צריך להשתמש באחד מצאצאים שלו.
למשל:

DataWB.Sheets(1).Visible = True

או

DataWB.Windows(1).Visible = True

[פלורידה]

@odeddvir אמר בהתייעצות | בניית מסד נתונים לתכנת "הדרן עלך" | אקסל:

Set DataWB = GetObject("Hadran_Data.xlsx")

ישנו הסבר מדוע אינו פועל בנתיב יחסי?

Set DataWB = GetObject("\Hadran_Data.xlsx")

[OdedDvir]

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