vb 6 ,如何控制不重复打开已有的excel电子表格
发布网友
发布时间：2022-09-30 12:39
共3个回答
热心网友
时间：2024-10-29 08:46
Set VBExcel = CreateObject("Excel.Application")
放在 Cmdok_Click()里：这样每次点按钮都会重新创建一个Excel.Application对象的实例
这句可以考虑移动到Form_Load()里面去，这样你每次点按钮都调用同一个Excel.Application对象，他自己会检查是不是重复打开的
热心网友
时间：2024-10-29 08:46
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) '打开EXCEL工作表
xlSheet.Activate '激活工作表
End If
end sub
热心网友
时间：2024-10-29 08:47
改成
Set VBExcel = GetObject("Excel.Application")
