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

来源：百度知道 编辑：UC知道 时间：2024/06/23 03:34:22
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不重复打开
求助各位了，谢谢！

Private Sub Cmdok_Click()
Dim VBExcel As Excel.Application
Dim xlbook As Excel.Workbook '定义Excel工作簿对象
Dim xlsheet As Excel.Worksheet '定义Excel工作表对象
On Error Resume Next
Set xlApp = GetObject(, "Excel.Application") '判断EXCEL是否打开
If xlApp Is Nothing Then 'excel未打开选择
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = True '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open(App.Path & "\mode\shd.xls") '打开EXCEL工作簿
Set xlSheet = xlBook.Worksheets(1) '打开EXCEL工作表
xlSheet.Activate '激活工作表
Else
Set xlApp = GetObject(, "Excel.Application") '调用打开的EXCEL应用类
xlApp.Visible = True '设置EXCEL可见
xlApp.Application.WindowState = xlMaximized
Set xlBook = xlApp.ActiveWorkbook
Set xlSheet = xlApp.ActiveWorkbook.Worksheets(1) '