.net NPOI Excel cell文字置中

focus78612

大家好

請問一下有經驗的高手們
我用NPOI 建出一個Excel檔
但是裡面的欄位文字我想讓它全部都置中對齊
google 找答案覺得最符合的是以下這兩行

1. style.Alignment = HorizontalAlignment.Center
   
2. style.Alignment = VerticalAlignment.Center

複製代碼

目前的問題是，無論我怎麼餵style給cell
他就是不會置中
請問是我哪裡搞錯了嗎...

瀏覽完整內容，請先 註冊 或 登入會員

e77

我貼一個大約的程式，你會不會沒有宣告Dim cell As HSSFCell 這一段呀？
        ' 設定儲存格樣式與資料。
        Dim cell As HSSFCell = Nothing
'           設定標題
        Dim style1 As HSSFCellStyle = workbook.CreateCellStyle()

        style1.Alignment = NPOI.SS.UserModel.HorizontalAlignment.CENTER                     '水平置中
...

瀏覽完整內容，請先 註冊 或 登入會員

Jeepluo

此段程式是在網路找到的，本為 C# 把他改為了 VB了，看看你自己缺少了那個部份。

1. Dim workbook As New HSSFWorkbook()
   
2. Dim sheet As HSSFSheet = DirectCast(workbook.CreateSheet("工作表名稱"), HSSFSheet)
   
3. Dim Row As HSSFRow = DirectCast(sheet.CreateRow(0), HSSFRow)
   
4. Row.CreateCell(0).SetCellValue("測試文字")
   
5. Dim cs As HSSFCellStyle = DirectCast(workbook.CreateCellStyle(), HSSFCellStyle)
   
6. '啟動多行文字
   
7. cs.WrapText = True
   
8. '文字置中
   
9. cs.VerticalAlignment = NPOI.SS.UserModel.VerticalAlignment.CENTER
   
10. cs.Alignment = NPOI.SS.UserModel.HorizontalAlignment.CENTER
    
11. '框線樣式及顏色
    
12. cs.BorderBottom = NPOI.SS.UserModel.BorderStyle.[DOUBLE]
    
13. cs.BorderLeft = NPOI.SS.UserModel.BorderStyle.THIN
    
14. cs.BorderRight = NPOI.SS.UserModel.BorderStyle.THIN
    
15. cs.BorderTop = NPOI.SS.UserModel.BorderStyle.THIN
    
16. cs.BottomBorderColor = NPOI.HSSF.Util.HSSFColor.GREY_50_PERCENT.index
    
17. cs.LeftBorderColor = NPOI.HSSF.Util.HSSFColor.GREY_50_PERCENT.index
    
18. cs.RightBorderColor = NPOI.HSSF.Util.HSSFColor.GREY_50_PERCENT.index
    
19. cs.TopBorderColor = NPOI.HSSF.Util.HSSFColor.GREY_50_PERCENT.index
    
20. '背景顏色
    
21. cs.FillForegroundColor = NPOI.HSSF.Util.HSSFColor.GREY_25_PERCENT.index
    
22. cs.FillPattern = NPOI.SS.UserModel.FillPatternType.SOLID_FOREGROUND
    
23. 
    
24. Dim font1 As HSSFFont = DirectCast(workbook.CreateFont(), HSSFFont)
    
25. '字體顏色
    
26. font1.Color = NPOI.HSSF.Util.HSSFColor.DARK_BLUE.index
    
27. '字體粗體
    
28. font1.Boldweight = CShort(NPOI.SS.UserModel.FontBoldWeight.BOLD)
    
29. '字體尺寸
    
30. font1.FontHeightInPoints = 25
    
31. 
    
32. cs.SetFont(font1)
    
33. Row.GetCell(0).CellStyle = cs
    
34. 
    
35. '欄位寬度
    
36. sheet.SetColumnWidth(column.Ordinal, 5000)

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員