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
加好友 
发短信
Post By：2017/5/23 14:14:00 [显示全部帖子]
