高分：关于office数据透视表的编程问题，谢谢

Question

我用office组件microsoft office web components 中的数据透视表组件程序如下：
With Me.PivotTable1
    .ConnectionString = "data source=pj; provider=msolap;initial catalog=foodmart 2000"
   .CommandText = "select  [Measures].members on columns, [promotion media].[media type].members on rows from sales"
End With提示无效的接口支持谢谢大家，帮帮忙！！！

Answer 1

我这里olap服务没有装
set m_pTable = server.CreateObject("OWC.PivotTable")
m_pTable.ConnectionString = "Provider=MSOLAP.1;Data Source=yang;Initial Catalog=FootMart"
m_pTable.DataMember = "Sales"提示无效的接口支持??
那一行报错

Answer 2

： online(龙卷风V2.0--再战江湖) 
谢谢，可与可以详细一点？谢谢

Answer 3

Dim cst
Dim X_axis
Dim sMDX
Set cst = CreateObject("ADOMD.Cellset")
cst.ActiveConnection = "Provider=MSOLAP.1;Data Source=ntsin04;Initial Catalog=Solutions"
sMDX = "Select [Product].Children On Columns From Sales Where [Sale]"
cst.Source = sMDX 
cst.Open
Set X_axis = cst.Axes(0)
i=0
Do While i < X_axis.Positions.Count
response.write "<option value='" &X_axis.Positions(i).Members(0).Caption &"'>" &X_axis.Positions(i).Members(0).Caption &"</option>"
i=i+1
Loop
cst.close这样的试试，这个例子我没有调试过

Answer 4

： online(龙卷风V2.0--再战江湖) 
在网页中我可以实现，我这个项目用的是microsoft office web components 中的透视表（PivotTable）
谢谢

Answer 5

请访问：http://community.csdn.net/Expert/topic/2866/2866886.xml?temp=.3379785

Answer 6

http://www.microsoft.com/downloads/details.aspx?displaylang=zh-cn&FamilyID=982B0359-0A86-4FB2-A7EE-5F3A499515DD

Answer 7

发错了：
  请访问：http://community.csdn.net/Expert/topic/2866/2866886.xml?temp=.3379785