参考

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=100919&skin=0

axWebBrowser = Nothing
Dim web As Windows.Forms.WebBrowser
web = e.form.Controls("WebBrowser1").baseControl
AddHandler web.DocumentCompleted,addressof WebBrowser1_DocumentCompleted
web.Navigate(ProjectPath & "book6.xls")

Do While axWebBrowser Is Nothing
    Application.Doevents
Loop
Dim oDocument As object = axWebBrowser.Gettype().InvokeMember("Document", System.Reflection.BindingFlags.GetProperty, Nothing, axWebBrowser, Nothing)
Dim oApplication As object = axWebBrowser.Gettype().InvokeMember("Application", System.Reflection.BindingFlags.GetProperty, Nothing, oDocument, Nothing)
oDocument.WorkSheets(1).range("2:2").Select

axWebBrowser1 = Nothing
Dim web1 As Windows.Forms.WebBrowser
web1 = e.form.Controls("WebBrowser1").baseControl
AddHandler web1.DocumentCompleted,addressof WebBrowser1_DocumentCompleted
web1.Navigate(ProjectPath & "1.xls")

Do While axWebBrowser1 Is Nothing
    Application.Doevents
Loop
Dim oDocument1 As object = axWebBrowser1.Gettype().InvokeMember("Document", System.Reflection.BindingFlags.GetProperty, Nothing, axWebBrowser1, Nothing)
Dim oApplication1 As object = axWebBrowser1.Gettype().InvokeMember("Application", System.Reflection.BindingFlags.GetProperty, Nothing, oDocument1, Nothing)
oDocument1.WorkSheets(1).range("2:2").Select

axWebBrowser2 = Nothing
Dim web2 As Windows.Forms.WebBrowser
web2 = e.form.Controls("WebBrowser2").baseControl
AddHandler web1.DocumentCompleted,addressof WebBrowser2_DocumentCompleted
web2.Navigate(ProjectPath & "2.xls")

Do While axWebBrowser2 Is Nothing
    Application.Doevents
Loop
Dim oDocument2 As object = axWebBrowser2.Gettype().InvokeMember("Document", System.Reflection.BindingFlags.GetProperty, Nothing, axWebBrowser2, Nothing)
Dim oApplication2 As object = axWebBrowser2.Gettype().InvokeMember("Application", System.Reflection.BindingFlags.GetProperty, Nothing, oDocument2, Nothing)
oDocument2.WorkSheets(1).range("2:2").Select

好像不行

 测试了一下，不行。它们共用一个excel进程，相互影响。

 如果确实要用两个，建议使用嵌入的方式处理。

下载信息  [文件大小：308.0 KB  下载次数：3]

点击浏览该文件:嵌入exe程序到自己的窗口.table