AccessVBA代码关闭指定的Excel文件,源码示例分享。
一、问题描述:
请问Access VBA代码如何关闭指定路径的 Excel 文档?例如: D:\a.xls。
二、解决方法:
写个自定义函数即可。Sub CloseXlsFileE(FileName As String, SaveChange As Boolean) Dim xlapp As Object Dim wrk As Object Set xlapp = GetObject(, “excel.application”) Set wrk = GetObject(FileName) wrk.Close xlapp.Quit Set xlapp = NothingEnd Sub 调用方法,按钮的单击事件过程写:Call CloseXlsFileE(“D:\a.xls”, True) 参数,True为保存关闭 参数,False为不保存关闭
三、演示图: