我现在借此机会在这里问一下,我真的尝试了很多不同的方式,但似乎我无法在任务管理器中关闭Excel任务,它一直挂起,直到我完全关闭Access,烦人,因为我无法使用Access中的Excel运行两个不同的作业.第二份工作会给我错误.
我已经对我仍然可以摆脱Excel的地方做了一些评论.代码的目的是运行一些查询并将数据导出到Excel,然后锁定Excel工作表,以便用户只能填写数据的答案.
码:
Private Sub Command65_Click()
Dim r As Double
'On Error GoTo Error_Handler
Dim objExcel As Excel.Application
Dim objWorkbook As Workbook
Dim objWorksheet As Worksheet
Dim dbs As DAO.Database
Dim rSt As DAO.Recordset
Set dbs = CurrentDb
Set rSt = CurrentDb.OpenRecordset("qry_VC_Confirmation")
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
'objExcel.Quit ' at this point it still works to close again
'Set objExcel = Nothing ' at this point it will remove from task manager
Set objWorkbook = objExcel.Workbooks.Add
Set objWorksheet …