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

您需要申報行和單元格循環做工外是這樣的：

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