vb.net 获取打开的excel Application

在VB.NET中，如果你希望通过WebBrowser控件间接操作Excel应用，由于WebBrowser本身并不能直接控制本地应用程序，你需要借助一些技术手段来实现。以下是一种常见的间接方法：

首先，你可以编写一个JavaScript函数，让Excel打开时发送一个消息到父窗口（也就是你的VB.NET程序）。这可以通过HTML5的Window.postMessage API实现：

<!-- HTML部分 -->
<button onclick="openExcel()">打开Excel</button>

<script>
function openExcel() {
    // 创建一个新的Excel应用
    const excelApp = new ActiveXObject("Excel.Application");

    // 打开文件
    excelApp.Workbooks.Open("你的文件路径");

    // 当Excel准备好后发送一个message给父窗口
    window.parent.postMessage({ action: 'excelOpened', data: excelApp }, '*');
}
</script>

然后，在VB.NET的WebBrowser的DocumentCompleted事件中，监听来自JavaScript的消息并处理：

Private Sub webBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles webBrowser1.DocumentCompleted
    If e.Url.ToString.Contains(".html") Then
        Dim jsFunction As String = "<script>window.onmessage = function(e) {" & _
                                   "if (e.data.action === 'excelOpened') {" & _
                                   "    var app = e.data.data;" & _
                                   "    ' 这里你可以使用app变量来操作Excel，例如保存或关闭" & _
                                   "}</script>"

        webBrowser1.Document.InvokeScript("eval", New Object() {jsFunction})
    End If
End Sub

这里只是一个示例，实际操作Excel应用可能涉及到更多的API调用，比如`app.Worksheets.Add`, `app.ActiveWorkbook.SaveAs`, 等。注意，这种方式依赖于ActiveX对Excel的支持，并且如果用户的计算机上禁用了ActiveX，那么上述方法就无法工作。