Guest User

Untitled

a guest
Jun 20th, 2018
80
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.90 KB | None | 0 0
  1. = Public Function IRExcelFormatCacheBasedPivotTable(ByRef objExcelWorkbook As Workbook, _
  2. = ByRef strError As String, ByVal strTableName As String, _
  3. = ByVal intStartRow As Integer, ByVal intEndRow As Integer, _
  4. = ByVal intStartColumn As Integer, ByVal intEndColumn As Integer, _
  5. = ByVal intPivotStartRowOffset As Integer, ByVal intPivotStartColumnOffset As Integer, _
  6. = ByVal strRowFields() As String, ByVal strColumnFields() As String, _
  7. = ByVal strPageFields() As String, ByVal strHiddenSubtotalFields() As String, _
  8. = ByVal arrDataFields() As ExcelDataField, ByVal strSourceSheetName As String, _
  9. - ByVal strExistentPivotSheetName As String, ByVal strExistentTableName As String) As Integer -
  10. + ByVal strExistentPivotSheetName As String, ByVal strExistentTableName As String, _
  11. + ByVal boolHideRowTotal As Boolean, ByVal boolHideColumnTotal As Boolean) As Integer
  12. = Dim objExcelSheet As Worksheet
  13. = Dim intReturn As Integer = 0
  14. = Try
  15. = objExcelSheet = objExcelWorkbook.Worksheets(strSourceSheetName)
  16. = Dim strRange As String
  17. = strRange = String.Concat("R", (3 + intPivotStartRowOffset).ToString, _
  18. = ":C", (1 + intPivotStartColumnOffset).ToString)
  19. = 'Build Table
  20. = objExcelWorkbook.Worksheets.Add(objExcelSheet)
  21. = objExcelWorkbook.Worksheets(strExistentPivotSheetName). _
  22. = PivotTables(strExistentTableName).PivotCache. _
  23. = CreatePivotTable(strRange, strTableName, XlPivotTableVersionList.xlPivotTableVersion10)
  24. = 'Common tasks:
  25. = intReturn = FormatPivotTable(objExcelWorkbook, strError, intPivotStartRowOffset, _
  26. = intPivotStartColumnOffset, strTableName, strRowFields, strColumnFields, _
  27. - strPageFields, strHiddenSubtotalFields, arrDataFields, false, false)
  28. + strPageFields, strHiddenSubtotalFields, arrDataFields, boolHideRowTotal, boolHideColumnTotal)
  29. = Return intReturn
  30. = Catch ex As Exception
  31. = strError = ex.Message
  32. = If intReturn < 0 Then Return intReturn Else Return -106
  33. = Finally
  34. = objExcelSheet = Nothing
  35. = End Try
  36. = End Function
Add Comment
Please, Sign In to add comment