关于引用旋转透视表的问题，求高人

iam.y

我想用宏分别引用两个工作表中的旋转透视表，该怎么引用求高人解答（还款数据透视表1和还款数据透视表2分别在两个SHEET中，下面代码要怎么写）
Windows("__MonthlyReportPivot.xls").Activate

    ActiveSheet.PivotTables("还款数据透视表1").PivotFields("branch").CurrentPage = branch
    ActiveSheet.PivotTables("还款数据透视表2").PivotFields("branch").CurrentPage = branch

[ 本帖最后由 iam.y 于 2010-5-18 11:43 编辑 ]

LangQueS

建议楼主压缩上传Excel问题附件并加以说明或做出模拟结果，以便大家了解和解答。(编辑已发贴即可补充上传附件)

如何发表新话题和上传附件:
http://club.excelhome.net/thread-45649-1-1.html

发帖的技巧:
http://club.excelhome.net/thread-176339-1-1.html

iam.y

请高人参看附件

LangQueS

没看明白楼主的附件……

iam.y

Sub monthlyreport(branch As String, flowname3 As String)

'
' Macro1 Macro
' 宏由 yang.zhang 录制，时间: 2010-5-12
'

'
    Windows("__MonthlyReportPivot.xls").Activate

    ActiveSheet.PivotTables("还款数据透视表1").PivotFields("branch").CurrentPage = branch
    ActiveSheet.PivotTables("还款数据透视表2").PivotFields("branch").CurrentPage = branch
   
   
   
  ActiveSheet.PivotTables("还款数据透视表1").PivotFields("flowname3").CurrentPage = flowname3
  ActiveSheet.PivotTables("还款数据透视表2").PivotFields("flowname3").CurrentPage = flowname3
   
ThisWorkbook.Activate
'Windows("复件 ___MonthlyReport(CB分行)风险与收益.xls").Activate
    ChDir "C:\Documents and Settings\yang.zhang\桌面\yuebao"
   
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\yang.zhang\桌面\yuebao2\MonthlyReport(CB分行)还款  " & branch & flowname3 & ".htm", _
        FileFormat:=xlHtml, ReadOnlyRecommended:=True, CreateBackup:=True
End Sub


求教版主。两个ActiveSheet来源于两个不同的SHEEt ，怎么把SHEET名字给加上