Access引用Excel創(chuàng)建數(shù)據(jù)透視表錯(cuò)誤

Henry D. Sy

由于新版Access已經(jīng)不支持?jǐn)?shù)據(jù)透視表
所以想在A(yíng)ccess中直接操作Excel生成l數(shù)據(jù)透視表
(不是將表數(shù)據(jù)導(dǎo)出到Excel,然后在Excel創(chuàng)建)

過(guò)程運(yùn)行到注釋處錯(cuò)誤,請(qǐng)大家?guī)兔χ更c(diǎn)一下.

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)            '到此處出現(xiàn)錯(cuò)誤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
    

復(fù)制代碼

roych

回頭再看看，數(shù)據(jù)透視表不太熟。

Henry D. Sy

roych 發(fā)表于 2016-9-12 17:23
回頭再看看，數(shù)據(jù)透視表不太熟。

謝謝你,
問(wèn)題自己解決了,忘了設(shè)定游標(biāo)為客戶(hù)端.

roych

Henry D. Sy 發(fā)表于 2016-9-12 19:18
謝謝你,
問(wèn)題自己解決了,忘了設(shè)定游標(biāo)為客戶(hù)端.

PC.Recordset.CursorLocation =adUseClient？
大概是這個(gè)了。一般可以先判斷能不能讀取recordcount，如果讀取為-1，往往是這個(gè)問(wèn)題。前面講recordset時(shí)，跟阿航討論過(guò)這個(gè)問(wèn)題。

Henry D. Sy

roych 發(fā)表于 2016-9-13 11:19
PC.Recordset.CursorLocation =adUseClient？
大概是這個(gè)了。一般可以先判斷能不能讀取recordcount，如 ...

在打開(kāi)記錄集之前,設(shè)定游標(biāo),因?yàn)榇藭r(shí)游標(biāo)屬性為讀寫(xiě),
而記錄集打開(kāi)之后,該屬性為只讀
-----------------------
rs.CursorLocation =adUseClient
rs.Open sSQL..................
-----------------------------

yanwei82123300

Henry D. Sy 發(fā)表于 2016-9-13 12:12
在打開(kāi)記錄集之前,設(shè)定游標(biāo),因?yàn)榇藭r(shí)游標(biāo)屬性為讀寫(xiě),
而記錄集打開(kāi)之后,該屬性為只讀
---------------- ...

Henry D. Sy老師您好！您這個(gè)例子能否分享一下正確的，我目前也為access透視表問(wèn)題發(fā)愁呢？謝謝