NPOI 设置单元格样式

Question

欢迎使用 C# 或 VB.NET 提出建议。

我有以下代码来使用 NPOI 创建 Excel 文件。运行良好。我需要将单元格样式应用于循环中的那些行。

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

如何将单元格样式应用于上面循环中的这些行？

Answer 1

您需要在循环之外声明 Row 和 Cell，如下所示：

Dim dataCell As HSSFCell
Dim dataRow As HSSFRow

然后在循环内，分别为单元格分配值和样式，如下所示：

    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