作者：绿色风
分类：
时间：2022-08-18
浏览：121
楼主
水星钓鱼 |
Q：如何编写基于OLEDB数据源创建数据透视表的代码？
A：利用PivotCache对象的Connection,CommandType,CommandText属性可以编写基于OLEDB数据源创建数据透视的代码，以如下的附件为例：
代码如下：- Sub xyf()
- Dim oPC As PivotCache
- Dim oPT As PivotTable
- Dim sSQL As String
- Dim sConStr
- sConStr = Array( _
- "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=" & Me.FullName & ";Mode=Share Deny " _
- , _
- "Write;Extended Properties=""HDR=YES;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Type=35;Jet OLEDB:" _
- , _
- "Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password" _
- , _
- "="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLE" _
- , _
- "DB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False" _
- )
- sSQL = "select * from [Jan$] union all select * from [Feb$] union all select * from [Mar$]"
- Set oPC = Me.PivotCaches.Create(xlExternal)
- With oPC
- .Connection = sConStr
- .CommandType = xlCmdSql
- .CommandText = sSQL
- Set oPT = .CreatePivotTable("", "示例")
- End With
- With oPT
- .PivotFields("No#").Orientation = xlRowField
- .PivotFields("name").Orientation = xlRowField
- .PivotFields("score").Orientation = xlDataField
- .RowAxisLayout (xlTabularRow)
- End With
- End Sub
 如何编写基于OLEDB数据源创建数据透视的代码.rar
|
2楼
亡者天下 |
学习写代码的方法！
|
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一