A
Reaction score
1

Profile posts Latest activity Postings About

  • Hi members,
    Code stage For the Convert data to table format

    Dim wb, ws As Object
    Dim excel, sheet, range As Object

    Try

    wb = GetWorkbook(Handle, Workbook)
    ws = GetWorksheet(Handle, Workbook, Worksheet)
    wb.Activate()
    ws.Activate()
    excel = ws.Application
    sheet = excel.ActiveSheet
    range = sheet.Range(Reference)
    sheet.ListObjects.Add(1,range, ,1).Name="Table1"

    Thanks & Reagrds
    Aditya Bankar
    Hi members,
    Code stage to Colour your table
    Dim wb, ws As Object
    Dim excel, sheet, range As Object

    Try
    wb = GetWorkbook(Handle, Workbook)
    ws = GetWorksheet(Handle, Workbook, Worksheet)
    wb.Activate()
    ws.Activate()
    excel = ws.Application
    sheet = excel.ActiveSheet
    range = sheet.Range(Reference)
    sheet.Selection.Style = "60% - Accent3"

    Thanks & Reagrds
    Aditya Bankar
    Hi members,
    code for the Style Your Pivot table code stage
    Dim wb, ws As Object
    Dim excel, sheet As Object
    Try
    wb = GetWorkbook(Handle, Workbook)
    ws = GetWorksheet(Handle, Workbook, Worksheet)
    wb.Activate()
    ws.Activate()
    excel = ws.Application
    sheet = excel.ActiveSheet
    sheet.PivotTables(PivotName).TableStyle2 = "PivotStyleMedium1"

    Thank and Regrads
    Aditya
    Hi members,

    Any wants to code for the Refresh Data on the file open. or want to reduce the size of file you can use the following code stage i am sharing the code
    Dim wb, ws As Object
    Dim excel, sheet As Object
    Try
    wb = GetWorkbook(Handle, Workbook)
    ws = GetWorksheet(Handle, Workbook, Worksheet)
    wb.Activate()
    ws.Activate()
    excel = ws.Application
    sheet = excel.ActiveSheet
    sheet.PivotTables(PivotName).SaveData = F
    A
    ADITYA_RPA
    last two lines
    sheet.PivotTables(PivotName).SaveData = False
    sheet.PivotTables(PivotName).PivotCache.RefreshOnFileOpen = True
  • Loading…
  • Loading…
  • Loading…
Top