Estilo de celda de conjunto npoi

Question

La sugerencia de C# o VB.NET son bienvenidas.

Tengo el siguiente código para crear un archivo de Excel con NPOI. Está funcionando bien. Necesito aplicar el estilo celular a esas filas en los bucles.

Dim hssfworkbook As New HSSFWorkbook()

    Dim sheetOne As HSSFSheet = hssfworkbook.CreateSheet("Sheet1")
    hssfworkbook.CreateSheet("Sheet2")
    hssfworkbook.CreateSheet("Sheet3")
    hssfworkbook.CreateSheet("Sheet4")

        Dim cellStyle As HSSFCellStyle = hssfworkbook.CreateCellStyle
    cellStyle.Alignment = HSSFCellStyle.ALIGN_CENTER

      For i = 0 To 9 Step 1
        'I want to add cell style to these cells
        sheetOne.CreateRow(i).CreateCell(1).SetCellValue(i)
        sheetOne.CreateRow(i).CreateCell(2).SetCellValue(i)
  Next

¿Cómo puedo aplicar el estilo de celda a esas filas en el bucle anterior?

Answer 1

Debe declarar la fila y la celda fuera del bucle sth así:

Dim dataCell As HSSFCell
Dim dataRow As HSSFRow

Luego, dentro del bucle, asigna valor y estilo a la celda por separado así:

    dataRow = sheetOne.CreateRow(i)
    dataCell = dataRow.CreateCell(1)
    dataCell.SetCellValue(i)
    dataCell.CellStyle = cellStyle

    dataRow = sheetOne.CreateRow(i)
    dataCell = dataRow.CreateCell(2)
    dataCell.SetCellValue(i)
    dataCell.CellStyle = cellStyle