如何在vb.net中显示excel文件的所有线程或实例。我想要显示excel文件的所有线程和一个主进程

Imports Microsoft.Office.Interop.Excel

Dim excelApp As New Application()
Dim workbook As Workbook = excelApp.Workbooks.Open("路径\文件名.xlsx")

For Each wb As Workbook In excelApp.Workbooks
    ' 在这里处理每个Workbook对象，可以获取线程或实例的相关信息
Next

Dim mainProcess As Process = Process.GetProcessById(excelApp.Hwnd)

workbook.Close()
excelApp.Quit()

System.Runtime.InteropServices.Marshal.ReleaseComObject(workbook)
System.Runtime.InteropServices.Marshal.ReleaseComObject(excelApp)

Imports Microsoft.Office.Interop.Excel
Imports System.Diagnostics

Module Module1
    Sub Main()
        Dim excelApp As New Application()
        Dim workbook As Workbook = excelApp.Workbooks.Open("路径\文件名.xlsx")

        For Each wb As Workbook In excelApp.Workbooks
            ' 在这里处理每个Workbook对象，可以获取线程或实例的相关信息
        Next

        Dim mainProcess As Process = Process.GetProcessById(excelApp.Hwnd)

        workbook.Close()
        excelApp.Quit()

        System.Runtime.InteropServices.Marshal.ReleaseComObject(workbook)
        System.Runtime.InteropServices.Marshal.ReleaseComObject(excelApp)
    End Sub
End Module