What's new
Latest profile posts
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
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
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
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