WebBrowser控件中的Excel自动化

Question

我正在使用以下代码在VB.net 2010 Express的WebBrowser控件中显示Excel电子表格。

Option Explicit On
Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Excel
Imports Microsoft.Office.Core
Imports System.Data
Public Class CustomerService
      Dim oDocument As Object
      Dim oXL As Excel.Application
      Dim oWB As Excel.Workbook
      Dim oSheet As Excel.Worksheet
      Dim oRng As Excel.Range
      Private Sub CustomerService_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      WebBrowser1.Navigate(quoteFile)
End Sub
Private Sub WebBrowser1_NavigateComplete2(ByVal sender As Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_NavigateComplete2Event) Handles WebBrowser1.NavigateComplete2
    On Error Resume Next
    Dim oXL As New Excel.Application
    oDocument = e.pDisp.Document
    With oDocument.Application.CommandBars("Standard")
        .Position = 4 '[msoBarFloating]
        .Visible = True
    End With
    MsgBox("File opened by: " & oDocument.Application.Name)
    oDocument.Range("A1") = "HEllo"
End Sub
End Class

我的问题是，如何在WebBrowser1_NavigateComplete2方法中引用打开的文档，以便可以自动使excel在特定单元格中显示文本。

尝试过：

Option Explicit On
Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Excel
Imports Microsoft.Office.Core
Imports System.Data
Public Class CustomerService
      Dim oDocument As Object
      Dim oXL As Excel.Application
      Dim oWB As Excel.Workbook
      Dim oSheet As Excel.Worksheet
      Dim oRng As Excel.Range
      Private Sub CustomerService_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      WebBrowser1.Navigate(quoteFile)
End Sub
Private Sub WebBrowser1_NavigateComplete2(ByVal sender As Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_NavigateComplete2Event) Handles WebBrowser1.NavigateComplete2
    On Error Resume Next
    Dim oXL As New Excel.Application
    oDocument = e.pDisp.Document
    objApp = oDocument
    objBooks = objApp.Workbooks
    objBook = objBooks.Add
    objSheets = objBook.Worksheets
    objSheet = objSheets(1)
    oXL = oDocument(.Document) 'with or without .Document
    With oDocument.Application.CommandBars("Standard")
        .Position = 4 '[msoBarFloating]
        .Visible = True
    End With
    MsgBox("File opened by: " & oDocument.Application.Name)
    objSheet.Range("A1") = "HEllo"
End Sub
End Class

没有运气。 如果您甚至想办法采用这种方法，我都会非常高兴。

谢谢

Answer 1

更改最后一行以包含工作表是否可以解决问题？

oDocument.worksheets(1).Range("A1") = "HEllo"

---

您收到错误消息还是只是什么都不做？ 你得到你的味精盒吗？