Do While Loop For xlApp Declaration

[Herry Markowitz]

I am wating 10 seconds before xlApp declaration because C:\Book1.xlsx is a very big file and takes long time to open.

Process.Start("C:\Book1.xlsx")
Threading.Thread.Sleep(10000)
Dim xlApp As Excel.Application = Nothing
xlApp = CType(GetObject(Nothing, "Excel.Application"), Excel.Application)

I want to replace above code like below code.
Below code need to be repaired.

Process.Start("C:\Book1.xlsx")
Do While SOMETHING
   Application.DoEvents()
Loop
Dim xlApp As Excel.Application = Nothing
xlApp = CType(GetObject(Nothing, "Excel.Application"), Excel.Application)

 

[JohnH]

Why not do it all with automation? Create an instance of Excel.Application and use its Workbooks.Open method.

 

[Herry Markowitz]

Because I want to open excel file in Safe Mode.

Process.Start("Excel.exe", "/safemode ""C:\Book1.xlsx""")