Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- = Public Function IRExcelFormatCacheBasedPivotTable(ByRef objExcelWorkbook As Workbook, _
- = ByRef strError As String, ByVal strTableName As String, _
- = ByVal intStartRow As Integer, ByVal intEndRow As Integer, _
- = ByVal intStartColumn As Integer, ByVal intEndColumn As Integer, _
- = ByVal intPivotStartRowOffset As Integer, ByVal intPivotStartColumnOffset As Integer, _
- = ByVal strRowFields() As String, ByVal strColumnFields() As String, _
- = ByVal strPageFields() As String, ByVal strHiddenSubtotalFields() As String, _
- = ByVal arrDataFields() As ExcelDataField, ByVal strSourceSheetName As String, _
- - ByVal strExistentPivotSheetName As String, ByVal strExistentTableName As String) As Integer -
- + ByVal strExistentPivotSheetName As String, ByVal strExistentTableName As String, _
- + ByVal boolHideRowTotal As Boolean, ByVal boolHideColumnTotal As Boolean) As Integer
- = Dim objExcelSheet As Worksheet
- = Dim intReturn As Integer = 0
- = Try
- = objExcelSheet = objExcelWorkbook.Worksheets(strSourceSheetName)
- = Dim strRange As String
- = strRange = String.Concat("R", (3 + intPivotStartRowOffset).ToString, _
- = ":C", (1 + intPivotStartColumnOffset).ToString)
- = 'Build Table
- = objExcelWorkbook.Worksheets.Add(objExcelSheet)
- = objExcelWorkbook.Worksheets(strExistentPivotSheetName). _
- = PivotTables(strExistentTableName).PivotCache. _
- = CreatePivotTable(strRange, strTableName, XlPivotTableVersionList.xlPivotTableVersion10)
- = 'Common tasks:
- = intReturn = FormatPivotTable(objExcelWorkbook, strError, intPivotStartRowOffset, _
- = intPivotStartColumnOffset, strTableName, strRowFields, strColumnFields, _
- - strPageFields, strHiddenSubtotalFields, arrDataFields, false, false)
- + strPageFields, strHiddenSubtotalFields, arrDataFields, boolHideRowTotal, boolHideColumnTotal)
- = Return intReturn
- = Catch ex As Exception
- = strError = ex.Message
- = If intReturn < 0 Then Return intReturn Else Return -106
- = Finally
- = objExcelSheet = Nothing
- = End Try
- = End Function
Add Comment
Please, Sign In to add comment