Question

CAD VBA释放内存中调用的excel

写了个小代码，代码如下调用和关闭如下
Sub 绘制图型()
Set xlapp = CreateObject("excel.application")
Set xlbook = xlapp.Workbooks.Open("D:\hello.xls") '打开的EXCEL路径
xlapp.Visible = False
Set xlsheet = xlbook.Worksheets("sj") '打开EXCEL中的工作表

xlbook.Close (True) '关闭工作簿
xlapp.Quit '结束EXCEL对象
Set xlapp = Nothing '释放xlApp对象
Set xlbook = Nothing
Set xlsheet = Nothing
End Sub
代码运行结束，另存图形后，重新打开excel的hello.xls文件总是提示其他用户在编辑，内存中的excel没有关闭，是不是代码释放有点问题，大家帮忙看下

Answer 1

代码看不出任何问题，你把 xlapp.Visible = False 改为 xlapp.Visible = true ，看看工作簿是否关闭，也许是你的代码还有单元格编辑状态，关闭工作簿的语句没起作用。

追问

改了之后，好像也不行

追答

改这句只是为了显示EXCEL窗口，没有其他功能，目的在于运行代码后看工作簿是否关闭，方便分析问题。