How to export pivot table object to excel and save it to a path automatically?

[Anonymous]

I have a pivot table object CH117. I need a button with macro which can export this object to excel and save this to my D:\Reports folder automatically... Your help is greatly appreciated.

[avinashelite · Accepted solution]

set obj = ActiveDocument.GetSheetObject("CH703")

obj.ExportEx "E:\Qlikview\Department_Loadinng.xls",

[Anonymous]

Thanks. It is working. Is there any way to save this excel file with auto filter enabled for the first row?

[Anonymous]

Friends I found the solution for that too.

Function EnableAutoFilter()

Set objExcel = CreateObject("Excel.Application")

with objExcel.Workbooks.Open("D:\QlikView Reports.xls")

   .worksheets(1).Range("A1:Z23").Autofilter

   .save

   .close

end with

Set objExcel = Nothing

End Function