To reproduce:
- Set the ExportFlatData property to true
- Export the grid using PivotExportToExcelML
Private Sub Exporter_TableCreated(ByVal sender As Object, ByVal e As ExcelTableCreatedEventArgs) For index = 0 To e.ExcelTableElement.Columns.Count - 1 Dim att = e.ExcelTableElement.Columns(index).Attributes("ss:Width") If att IsNot Nothing And Convert.ToInt32(att) <= 0 Then e.ExcelTableElement.Columns(index).Attributes("ss:Width") = 60 End If NextEnd Sub