שלום!

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

זה קטע הקוד שלי:

Dim oExcel As Object


Try

oExcel = GetObject(, "Excel.Application")

Catch ex As Exception

If ex.Message.IndexOf("Cannot create ActiveX component") >= 0 Then

oExcel = CreateObject("Excel.Application")

Else

Throw ex

End If

End Try

כאשר קובץ האקסל לא פתוח, אז מתקבלת ההודעה הבאה ב- immidiate window:

A first chance exception of type 'System.Exception' occurred in Microsoft.VisualBasic.dll

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

תודה!

1. השאלה לא לגמרי ברורה. אתה שואל שאלה ועונה עליה. במה ניתקעת?
2. כאשר אתה מתכוון לפתוח, אתה מתכוון שהאובייקט פתוח, או שהקובץ פתוח בתוכנה?