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
----------------------------