
VB打开与关闭excel提示错误
打开excel代码:SetxlApp=CreateObject("Excel.Application")'创建EXCEL对象xlApp.DisplayAlerts=Fal...
打开excel代码:
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
xlApp.DisplayAlerts = False
Set xlBook = xlApp.Workbooks.Open(FileName:=App.Path + "\ysmy.xls", ReadOnly:=True, UpdateLinks:=0) '打开已经存在的EXCEL工件簿文件
xlApp.Visible = False '设置excel不可见
xlBook.RunAutoMacros (xlAutoClose)
Set xlSheet = xlBook.Worksheets("sheet1") '设置活动工作表
关闭excel代码:
Set xlSheet = Nothing '释放sheet对象
xlBook.Close SaveChanges:=False '关闭文件
Set xlBook = Nothing
xlApp.Quit '关闭Excel
Set xlApp = Nothing
在关闭时出现以下错误,请问是什么原因,该如何解决 展开
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
xlApp.DisplayAlerts = False
Set xlBook = xlApp.Workbooks.Open(FileName:=App.Path + "\ysmy.xls", ReadOnly:=True, UpdateLinks:=0) '打开已经存在的EXCEL工件簿文件
xlApp.Visible = False '设置excel不可见
xlBook.RunAutoMacros (xlAutoClose)
Set xlSheet = xlBook.Worksheets("sheet1") '设置活动工作表
关闭excel代码:
Set xlSheet = Nothing '释放sheet对象
xlBook.Close SaveChanges:=False '关闭文件
Set xlBook = Nothing
xlApp.Quit '关闭Excel
Set xlApp = Nothing
在关闭时出现以下错误,请问是什么原因,该如何解决 展开
2个回答
展开全部
有时我也经常遇到这种莫明其妙的问题,但我知道决不是excel没装好。你一步一步查,应该可以查出来。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询