Hi , I have tried "send to excel" and a macro button to export pivot table to excel.
I realized that the macro button copies the table as in Right Click , CopytoClipBoard > FullTable and pasting in Excel.
sub launchXL set oXL=CreateObject("Excel.Application") oXL.visible=True oXL.Workbooks.Add aSheetObj=Array("ba0","ba1","ba2","ba3","ba4","ba5","ba6","ba7","ba8","ba9","ba10","ba11","ba12") for i=0 to UBound(aSheetObj) oXL.Sheets.Add Set oSH = oXL.ActiveSheet oSH.Range("A1").Select Set obj = ActiveDocument.GetSheetObject(aSheetObj(i)) obj.CopyTableToClipboard True oSH.Paste sCaption=obj.GetCaption.Name.v set obj=Nothing oSH.Rows("1:1").Select oXL.Selection.Font.Bold = True oSH.Cells.Select oXL.Selection.Columns.AutoFit oSH.Range("A1").Select oSH.Name=left(sCaption,30) set oSH=Nothing next set oXL=Nothing end sub
I am trying to get a button/macro that does exactly same as the "send to excel" button , which send the data values without any formatting.
