vb用getobject函数打开excel进程能否让excel置顶显示?
陈晓猫 2011-10-15 02:25:35 vb用getobject函数打开excel进程能否让excel置顶显示?
代码如下:
On Error Resume Next
Set appexcel = GetObject(, "Excel.application")
If appexcel is nothing Then Set appexcel = CreateObject("excel.application")
appexcel.Visible = True
Set exwbook = appexcel.Workbooks.Add
Set exsheet = exwbook.Worksheets("sheet1")
exsheet.Activate
'do excel work……
最终createobject创建的excel进程可以置顶显示,但是如果先打开一个excel进程,那么就会调用getobject函数,造成excel不置顶显示,怎么办让excel前端显示?