Label in pivot table with chr(10) export to excel dont work
labele : 'Value'&chr(10)&'EUR'
in pivot table is OK --> 2 lines
export in EXCEL with: (in excel file is only in 1 lines ??????)
sub SendToXL set XLApp = CreateObject("Excel.Application") XLApp.Visible = True set XLDoc = XLApp.Workbooks.Add set tbl = ActiveDocument.GetSheetObject("CH46") set XLSheet = XLDoc.Worksheets(1) tbl.CopyTableToClipboard true XLSheet.Paste XLSheet.Range("A1") xlsheet.Range("A:A").WrapText = True end sub