|
Access引用Excel为何excel进程关不掉
下面的附件是
在Access中引用Excel,生成excel数据透视表到工作表.
第一次运行一切正常,再次运行即出现错误.
查出出错原因是进程里还有excel程序
请大家帮忙看看.
- Private Sub CreatePivotTable_Click()
- Dim XLA As New Excel.Application
- Dim XLB As Workbook
- Dim XLS As Worksheet
- Dim PC As PivotCache
- Dim PT As PivotTable
- Dim rs As New ADODB.Recordset
- Dim sSQL As String
- Set XLA = CreateObject("Excel.Application")
- Set XLB = Nothing
- Set XLS = Nothing
- Set XLB = XLA.Workbooks().Add
- XLB.SaveAs CurrentProject.Path & "\PivotTable.xlsx"
- Set XLS = XLB.Worksheets.Add
- XLS.Name = "PivotSheet"
- XLS.Activate
- rs.CursorLocation = adUseClient
- sSQL = "SELECT * FROM ORD"
- rs.Open sSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
- Set PC = ActiveWorkbook.PivotCaches.Create(xlExternal)
- Set PC.Recordset = rs
- Set PT = ActiveSheet.PivotTables.Add(PC, Range("A1"), "A")
- With ActiveSheet.PivotTables("A")
- .PivotFields("STYLE").Orientation = xlPageField
- .PivotFields("PO").Orientation = xlRowField
- .PivotFields("COLOR").Orientation = xlRowField
- .PivotFields("pack").Orientation = xlRowField
- .PivotFields("SIZE").Orientation = xlColumnField
- .PivotFields("QUANTITY").Orientation = xlDataField
- End With
- rs.Close
- XLB.Save
- MsgBox "PivotTable Saved On " & CurrentProject.Path
- Set PC = Nothing
- Set PT = Nothing
- Set rs = Nothing
- Set XLB = Nothing
- Set XLS = Nothing
- Set XLA = Nothing
- XLA.Quit '特意加上这句还是留住在进程里
- End Sub
复制代码
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|