Access2003VBA创建数据透视表后Excel后台进程未被关闭
通过以下步骤，可以确保在使用Access 2003 VBA创建数据透视表后关闭Excel后台进程：
-
在VBA代码中创建一个Excel对象并设置Visible属性为true（即使不需要实际在Excel应用程序中看到数据透视表）。
-
创建数据透视表。
-
使用以下代码关闭Excel工作簿并释放相关的Excel对象：
Set objXLSheet = Nothing objXLWorkbook.Close SaveChanges:=False Set objXLWorkbook = Nothing objXLApp.Quit Set objXLApp = Nothing
完整的示例代码如下：
Dim objXLApp As Object Dim objXLWorkbook As Object Dim objXLSheet As Object
'Create Excel application object and set Visible property to true. Set objXLApp = CreateObject("Excel.Application") objXLApp.Visible = True
'Create pivot table in Excel. Set objXLWorkbook = objXLApp.Workbooks.Add Set objXLSheet = objXLWorkbook.Sheets(1) objXLSheet.PivotTableWizard
'Close Excel workbook and release related objects. Set objXLSheet = Nothing objXLWorkbook.Close SaveChanges:=False Set objXLWorkbook = Nothing objXLApp.Quit Set objXLApp = Nothing
这种方法可以确保创建数据透视表后Excel后台进程得到关闭，从而避免可能的资源浪费和内存泄漏问题。