[求助]录制的宏,为何运行后与当时录制的不同(制作数据透视表)

amymo

虽发贴较少，但平常获益良多，通过看别人的问题，但今天这个难题好象找不到答案，请高手指点，先行谢过！

     因数据来源变化较多，制作的数据表有10多张，经常性的不能更新，想到用录制，因动态数据源的方法也不会用，

但录后的出来只有汇总而没有明细，请高手指点。

86qbPwh7.rar (18.02 KB, 下载次数: 23)

2008-3-16 19:11 上传

点击文件名下载附件
[求助]录制的宏,为何运行后与当时录制的不同(制作数据透视表)

VB286

改变一下顺序,好像就行了

Sub Macro1()
'

'
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "本月合同明细!R1C1:R12C6").CreatePivotTable TableDestination:="", TableName:= _
        "数据透视表1", DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveSheet.PivotTables("数据透视表1").AddDataField ActiveSheet.PivotTables("数据透视表1" _
        ).PivotFields("系列"), "计数项:系列", xlCount
   
    ActiveWorkbook.ShowPivotTableFieldList = True
    With ActiveSheet.PivotTables("数据透视表1").PivotFields("旬")
        .Orientation = xlColumnField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("数据透视表1").PivotFields("系列")
        .Orientation = xlRowField
        .Position = 1
    End With
   
  
End Sub

amymo

VB286,谢谢你！高水平，我想问下你以前见过此问题吗？为何一下就解决了，真是太棒了！

VB286

QUOTE:

以下是引用amymo在2008-3-16 20:08:23的发言：
VB286,谢谢你！高水平，我想问下你以前见过此问题吗？为何一下就解决了，真是太棒了！

别这这么说呀,真是惭愧,我只是知道也许这样能解决,问我为什么,我也不知道,以前根本没录过这样的宏,解决这个问题只是凭感觉而矣,

amymo

再次谢谢！希望以后有问题还能得到象你一样的高手的帮助！