vb 6 ,如何控制不重复打开已有的excel电子表格

vb 6 ,如何控制不重复打开已有的excel电子表格
按钮 代码如下：
Private Sub Cmdok_Click()
Dim VBExcel As Excel.Application
Dim xlbook As Excel.Workbook '定义Excel工作簿对象
Dim xlsheet As Excel.Worksheet '定义Excel工作表对象
Set VBExcel = CreateObject("Excel.Application")
VBExcel.Visible = True
Set xlbook = VBExcel.Workbooks.Open("" & App.Path & "\mode\shd.xls")
Set xlsheet = xlbook.Worksheets("Sheet1")
xlsheet.Activate
end sub

点一次按钮就出来一个excel，再点一次又出来一个，
如何设置只打开一次，同意咯excel不重复打开
求助各位了，谢谢！

不要把
Set VBExcel = CreateObject("Excel.Application")
放在 Cmdok_Click()里：这样每次点按钮都会重新创建一个Excel.Application对象的实例

这句可以考虑移动到Form_Load()里面去，这样你每次点按钮都调用同一个Excel.Application对象，他自己会检查是不是重复打开的

这个真的不懂，谢谢。

Set VBExcel = CreateObject("Excel.Application") 改成 Set VBExcel = GetObject("Excel.Application")