Office中国论坛/Access中国论坛

标题: Access引用Excel创建数据透视表错误 [打印本页]

---

作者: Henry D. Sy    时间: 2016-9-12 08:41
标题: Access引用Excel创建数据透视表错误


由于新版Access已经不支持数据透视表
所以想在Access中直接操作Excel生成l数据透视表
(不是将表数据导出到Excel,然后在Excel创建)

过程运行到注释处错误,请大家帮忙指点一下.

1. Private Sub CreatePivotTable_Click()
   
2. 
   
3.     Dim XLApp As Excel.Application
   
4.     Dim XLB As Workbook
   
5.     Dim XLS As Worksheet
   
6.     Dim PC As PivotCache
   
7.     Dim PT As PivotTable
   
8.     Dim sSQL As String
   
9. 
   
10.     sSQL = "SELECT STYLE,PO,SIZE,COLOR,QUANTITY FROM ORD"
    
11. 
    
12.     Set XLApp = CreateObject("Excel.Application")
    
13. 
    
14.     Set XLB = XLApp.Workbooks().Add
    
15.     XLB.SaveAs CurrentProject.Path & "\A.xlsx"
    
16. 
    
17. Set PC = ActiveWorkbook.PivotCaches.Add(xlExternal)
    
18.     Set PC.Recordset = CurrentDb.OpenRecordset(sSQL)            '到此处出现错误1004
    
19.     Worksheets.Add
    
20.     ActiveSheet.Name = "PivotSheet"
    
21.     ActiveWindow.DisplayGridlines = False
    
22. 
    
23.     Set PT = ActiveSheet.PivotTables.Add(PC, Range("A1"), "MyPivot")
    
24. 
    
25.     With PT
    
26.         .PivotFields("STYLE").Orientation = xlPageField
    
27.         .PivotFields("PO").Orientation = xlRowField
    
28.         .PivotFields("COLOR").Orientation = xlRowField
    
29.         .PivotFields("SIZE").Orientation = xlColumnField
    
30.         .PivotFields("QUANTITY").Orientation = xlDataField
    
31.         .DataPivotField.Orientation = xlRowField
    
32.     End With
    
33. 
    
34. XLB.Save
    
35.     XLApp.Visible = True
    
36. 
    
37.     Set XLApp = Nothing
    
38.     Set XLB = Nothing
    
39.     Set XLS = Nothing
    
40. End Sub
    

复制代码

[attach]59906[/attach]

---

作者: roych    时间: 2016-9-12 17:23
回头再看看，数据透视表不太熟。

---

作者: Henry D. Sy    时间: 2016-9-12 19:18

roych 发表于 2016-9-12 17:23
回头再看看，数据透视表不太熟。

谢谢你,
问题自己解决了,忘了设定游标为客户端.

---

作者: roych    时间: 2016-9-13 11:19

Henry D. Sy 发表于 2016-9-12 19:18
谢谢你,
问题自己解决了,忘了设定游标为客户端.

PC.Recordset.CursorLocation =adUseClient？
大概是这个了。一般可以先判断能不能读取recordcount，如果读取为-1，往往是这个问题。前面讲recordset时，跟阿航讨论过这个问题。

---

作者: Henry D. Sy    时间: 2016-9-13 12:12

roych 发表于 2016-9-13 11:19
PC.Recordset.CursorLocation =adUseClient？
大概是这个了。一般可以先判断能不能读取recordcount，如 ...

在打开记录集之前,设定游标,因为此时游标属性为读写,
而记录集打开之后,该属性为只读
-----------------------
rs.CursorLocation =adUseClient
rs.Open sSQL..................
-----------------------------

---

作者: yanwei82123300    时间: 2023-2-27 08:56

Henry D. Sy 发表于 2016-9-13 12:12
在打开记录集之前,设定游标,因为此时游标属性为读写,
而记录集打开之后,该属性为只读
---------------- ...

Henry D. Sy老师您好！您这个例子能否分享一下正确的，我目前也为access透视表问题发愁呢？谢谢

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3