NPOI set cell style

Question

Предложение C# или VB.NET приветствуется.

У меня есть следующий код для создания файла Excel с NPOI. Он работает нормально. Мне нужно применить стиль ячейки к тем строкам в циклах.

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