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
Next
End
Sub