VB.NET编程：在窗体容器内嵌入并操作Excel

 Private Sub Openexcel(ByVal filepath As String)
        On Error Resume Next

        '打开Word文档


        ' WebBrowser1.Navigate(filepath)

        xlApp = CreateObject("Excel.Application")
        xlApp.WindowState = 1 ' WordObject.WdWindowState.wdWindowStateMaximize


        Dim x As Integer = GroupBox1.Left
        Dim y As Integer = GroupBox1.Top
        xlApp.Windows.Application.WindowState = 1 ' WordObject.WdWindowState.wdWindowStateMaximize
        xlApp.Windows.Application.Width = GroupBox1.Width
        xlApp.Windows.Application.Height = GroupBox1.Height
        xlApp.Windows.Application.Top = GroupBox1.Top
        xlApp.Windows.Application.Left = GroupBox1.Left
        Application.DoEvents()
        xlApp.Visible = True

        SetAttr(filepath, FileAttribute.Normal) 'FilePath为Word文档的路径

        hWndWordApp = FindWindow("XLMAIN", "Microsoft Excel") 'OpusApp是word，XLMAIN 是excel
        SetWindowPos(hWndWordApp, Me.Handle, x, y, GroupBox1.Width, GroupBox1.Height, &H40) '设置word窗体的位置
        Call SetParent(hWndWordApp, GroupBox1.Handle)
        xlApp.WindowState = 1 ' WordObject.WdWindowState.wdWindowStateMaximize
        workbooks = xlApp.Workbooks
        workbook = workbooks.open(filepath) ' workbooks.Add(Excel.XlWBATemplate.xlWBATWorksheet)创建新的