vb用getobject函数打开excel进程能否让excel置顶显示？

[陈晓猫]

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前端显示？