asp.net 关于NPOI Excel导出

asp.net 关于NPOI Excel导出

Public Function buildWorkBook(dataList As IList(Of Dynamic.ExpandoObject)) As XSSFWorkbook
        Dim book = New XSSFWorkbook()
        Dim sheet = book.CreateSheet("Sheet1")
        Dim heaherRow = sheet.CreateRow(0)
        Dim time = Date.Now

'Excel的表头
        Dim Extrainfo As New Dictionary(Of Integer, String) From {
  {11, "处置状态(大分类)"}, {12, "异常担当"}, {13, "异常处置状态"}}
        For i = 2 To gvYcsInfo.Columns.Count - 1
            If GetType(BoundField).IsAssignableFrom(gvYcsInfo.Columns(i).GetType) Then
                Dim column As BoundField = gvYcsInfo.Columns(i)
                If column.HeaderText = "VERSION" Then
                    Exit For
                End If
                If column.Visible Then
                    heaherRow.CreateCell(i - 2, 1).SetCellValue(column.HeaderText)
                End If
            E