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
sheet.PivotTables(PivotName).SaveData = False
sheet.PivotTables(PivotName).PivotCache.RefreshOnFileOpen = True