奥康数据分析系统，采用excel+acess，数据库超大，也可以用SQL，速度会更快。
1、前端excel进行有条件的调取sql中的数据透视，速度之快，无法言语。
2、数据量，目前透视500万行数据，费时20分钟。
3、优点：速度快，自主性强。
4、当然这跟erp系统是无法比较的，只适用于一般性的分析。
eg：sql——select 经销商名称,款号,综合类别,商品颜色,性别,商务小类,日期,年份,实际发货数量,0 as 实际销售数量,0 as 实际零售数量,实际发货金额,0 as 实际销售金额,0 as 实际零售金额,预计发货成本额,0 as 预计销售成本额,0 as 零售成本额,预计发货毛利,0 as 预计销售毛利,0 as 预计零售毛利,供应商名称,采购单价,材质,0 as 订单数量 from [发货查询] where (综合类别='男春版单鞋') 。。。。。。。。。。
1、前端excel进行有条件的调取sql中的数据透视，速度之快，无法言语。
2、数据量，目前透视500万行数据，费时20分钟。
3、优点：速度快，自主性强。
4、当然这跟erp系统是无法比较的，只适用于一般性的分析。
eg：sql——select 经销商名称,款号,综合类别,商品颜色,性别,商务小类,日期,年份,实际发货数量,0 as 实际销售数量,0 as 实际零售数量,实际发货金额,0 as 实际销售金额,0 as 实际零售金额,预计发货成本额,0 as 预计销售成本额,0 as 零售成本额,预计发货毛利,0 as 预计销售毛利,0 as 预计零售毛利,供应商名称,采购单价,材质,0 as 订单数量 from [发货查询] where (综合类别='男春版单鞋') 。。。。。。。。。。
如何删除透视表里面字段下拉菜单里的旧数据 
[
October 8, 2009 22:33 | by KuMoo ]
October 8, 2009 22:33 | by KuMoo ]
不是这个原因
字段拉到行字段有下列选项：
（实际上很多字段在数据里面已经没有了）
拉到页字段显示的就是正确的选项：
这是什么原因？
字段拉到行字段有下列选项：
（实际上很多字段在数据里面已经没有了）
拉到页字段显示的就是正确的选项：
这是什么原因？
Sub DeleteMissingItems2002All()
'防止数据透视表中显示无用的数据项
'在 Excel 2002 或更高版本中
'如果无用的数据项已经存在,
'运行这个宏可以更新
Dim pt As PivotTable
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
For Each pt In ws.PivotTables
pt.PivotCache.MissingItemsLimit = xlMissingItemsNone
Next pt
Next ws
End Sub
'防止数据透视表中显示无用的数据项
'在 Excel 2002 或更高版本中
'如果无用的数据项已经存在,
'运行这个宏可以更新
Dim pt As PivotTable
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
For Each pt In ws.PivotTables
pt.PivotCache.MissingItemsLimit = xlMissingItemsNone
Next pt
Next ws
End Sub
编写程序清除原有的数据项-- Excel 97/Excel 2000
在较早的Excel版本中, 运行下列代码可以清除数据透视表下拉表的原有数据项.
Sub DeleteOldItemsWB()
'清除数据透视表中无用的数据项
' 单位MSKB (202232)
Dim ws As Worksheet
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem
On Error Resume Next
For Each ws In ActiveWorkbook.Worksheets
For Each pt In ws.PivotTables
pt.RefreshTable
For Each pf In pt.VisibleFields
If pf.Name <> "Data" Then
For Each pi In pf.PivotItems
If pi.RecordCount = 0 And _
Not pi.IsCalculated Then
pi.Delete
End If
Next
End If
Next
Next
Next
End Sub
在较早的Excel版本中, 运行下列代码可以清除数据透视表下拉表的原有数据项.
Sub DeleteOldItemsWB()
'清除数据透视表中无用的数据项
' 单位MSKB (202232)
Dim ws As Worksheet
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem
On Error Resume Next
For Each ws In ActiveWorkbook.Worksheets
For Each pt In ws.PivotTables
pt.RefreshTable
For Each pf In pt.VisibleFields
If pf.Name <> "Data" Then
For Each pi In pf.PivotItems
If pi.RecordCount = 0 And _
Not pi.IsCalculated Then
pi.Delete
End If
Next
End If
Next
Next
Next
End Sub
![KuMoo's Blog - [ Box Stop Here ]](http://www.kumoo.net/logo.gif){kind=logo}
