vb连接excel后,在vb外打不开excel
发布网友
发布时间：2022-11-10 14:04
共2个回答
热心网友
时间：2023-11-25 16:42
Dim xlexcel As Excel.Application '定义EXCEL
Dim xlBook As Excel.Workbook '定义工作文档
Dim xlSheet As Excel.Worksheet '定义当前工作表
xlexcel.Workbooks.Open "D:\YUDO SYSTEM\ASM\GATE.xlsx" '打开3D工作表
Set xlBook = xlexcel.Workbooks("GATE.xlsx") '设置此工作表为当前工作文档
xlexcel.Visible = False '设置EXCEL对象不可见（或可见）
Set xlSheet = xlBook.Worksheets("GATEMAKE") '设置活动工作表
'你的操作
Set xlsheel = Nothing
xlBook.Close (False)
Set xlBook = Nothing
xlexcel.Quit
Set xlexcel = Nothing
'完整退出!
'你先关闭进程,再打开就可以了
热心网友
时间：2023-11-25 16:42
Dim xlexcel As Excel.Application '定义EXCEL
Dim xlBook As Excel.Workbook '定义工作文档
Dim xlSheet As Excel.Worksheet '定义当前工作表
xlexcel.Workbooks.Open "D:\YUDO SYSTEM\ASM\GATE.xlsx" '打开3D工作表
Set xlBook = xlexcel.Workbooks("GATE.xlsx") '设置此工作表为当前工作文档
xlexcel.Visible = False '设置EXCEL对象不可见（或可见）
Set xlSheet = xlBook.Worksheets("GATEMAKE") '设置活动工作表
'你的操作
Set xlsheel = Nothing
xlBook.Close (False)
Set xlBook = Nothing
xlexcel.Quit
Set xlexcel = Nothing
'完整退出!
'你先关闭进程,再打开就可以了
热心网友
时间：2023-11-25 16:43
遗漏了Colse对象的语句
导致Excel文件对象未关闭
热心网友
时间：2023-11-25 16:43
遗漏了Colse对象的语句
导致Excel文件对象未关闭
