wps和office的Excel的appilcation对象不通用，wps里面设置了兼容也不行呀、弹出1和2，就报错了，之前用office 都是好好的，可是wps用的人越来越多。
----------------------------------
doubleclick代码是
Dim app As object = Functions.Execute("获得WebBrowser中Application")
app.ActiveCell = e.Sender.SelectedValue
MessageBox.Show("4")
-------------------------
Functions.Execute("获得WebBrowser中Application")代码是
MessageBox.Show("1")
Dim oDocument As object = axWebBrowser.Gettype().InvokeMember("Document", System.Reflection.BindingFlags.GetProperty, Nothing, axWebBrowser, Nothing)
MessageBox.Show("2")
Dim oApplication As object = axWebBrowser.Gettype().InvokeMember("Application", System.Reflection.BindingFlags.GetProperty, Nothing, oDocument, Nothing)
MessageBox.Show("3")
Return oApplication
----------------------------
加好友 
发短信
Post By：2022/6/13 22:40:00 [只看该作者]
