2011-07-27 2 views

답변

0

답을 찾았습니다. 다음 하위에 첨부 된 추가 버튼 :

Sub RefreshPivotQuery() 

    Dim d1 As String 
    Dim d2 As String 

    d1 = Format(Sheets("Main").Range("Date1"), "yyyymmdd") 
    d2 = Format(Sheets("Main").Range("Date2"), "yyyymmdd") 

    Dim ws As Worksheet 
    Set ws = Sheets("Pivot") 

    ws.PivotTables(1).PivotCache.CommandText = "exec mysproc '" + d2 + "', '" + d1 + "'" 

End Sub 
관련 문제