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

        For Each item In Extrainfo
            heaherRow.CreateCell(item.Key).SetCellValue(item.Value)
        Next

        '计算重复计时
        Dim swjs As New Stopwatch
        swjs.Start()

        '计算出从第几位开始重复，和重复的个数
        '重复位保存到list里
        Dim tag As New List(Of Object)
        '重复个数保存到list里
        Dim countList As New List(Of Object)
        Dim flg = False
        '重复个数 临时保存
        Dim count As Integer = 0

        For i = 0 To dataList.Count - 1
            Dim dataInfoList As IDictionary(Of String, Object) = dataList(i)
            Dim f