检查excel实例是否已经存在Vb.net

Question

如何检查工作簿的实例是否已存在？在我的程序期间，我可以在没有应用程序崩溃的情况下关闭excel ... 当我在程序中使用实例时，我想检查实例是否存在，我再次打开它... 感谢

Dim neue_excelinstanz As excelapp.Application

Dim neue_workbook As excelapp.Workbook

Dim neue_worksheet As excelapp.Worksheet


    neue_excelinstanz = CType(CreateObject("Excel.Application"), Microsoft.Office.Interop.Excel.Application)

    neue_workbook = CType(neue_excelinstanz.Workbooks.Open("C:\Users\global.xlsx"), Microsoft.Office.Interop.Excel.Workbook)


    neue_worksheet2 = CType(neue_workbook.Worksheets(2), Microsoft.Office.Interop.Excel.Worksheet)

Answer 1

它可能只是一个If块吗？我不知道如何用德语编码，但是：

If neue_workbook Is Nothing Then
    neue_workbook = CType(neue_excelinstanz.Workbooks.Open("C:\Users\Nicolas Grichting\Desktop\Vmc_vapeur\global.xlsx"), Microsoft.Office.Interop.Excel.Workbook)
End If

我可能也会使用threading.sleep给它加载时间，然后再让程序再试一次。但这取决于你如何使用它。