vb.net 使用NPO各種格式設定

'導入命名空間
Imports System.IO

Imports NPOI.HSSF.UserModel
Imports NPOI.HPSF
Imports NPOI.POIFS.FileSystem

Private Sub A1()

Dim ts As String'文字
Dim ns As Double'數字

Dim workbook As HSSFWorkbook = New HSSFWorkbook() '建立一個 Excel 實例
Dim fs = New FileStream("book1.xls", FileMode.Create) '準備建立一個Excel檔
Dim sheet As HSSFSheet = workbook.CreateSheet("Sheet1") '新增試算表 Sheet名稱
Dim cell As HSSFCell '單元格
Dim font As HSSFFont = workbook.CreateFont ''單元格屬性
Dim cs As HSSFCellStyle = workbook.CreateCellStyle '單元格樣式

ts="測試"

cell = sheet.CreateRow(0).CreateCell(0) '單元格位置

font.Boldweight = NPOI.SS.UserModel.FontBoldWeight.Bold '粗體
font.FontHeightInPoints = 20 '字體大小
font.FontName = "宋体" '字體
cs.SetFont(font)
cs.Alignment = NPOI.SS.UserModel.HorizontalAlignment.Center '置中

cs.DataFormat = HSSFDataFormat.GetBuiltinFormat("@")'內容文字

cell.CellStyle = cs'設置單元格樣式

cell.SetCellValue(ts)'設置單元格內容

ns=100.123

cell = sheet.CreateRow(1).CreateCell(0) '單元格位置

cs.DataFormat = HSSFDataFormat.GetBuiltinFormat("0.00")'內容數字

cs.ShrinkToFit = True '缩小字体填充
cs.BorderTop = NPOI.SS.UserModel.BorderStyle.Thin '边框
cs.BorderRight = NPOI.SS.UserModel.BorderStyle.Thin '边框
cs.BorderLeft = NPOI.SS.UserModel.BorderStyle.Thin '边框
cs.BorderBottom = NPOI.SS.UserModel.BorderStyle.Thin ' 边框

cell.CellStyle = cs'設置單元格樣式

cell.SetCellValue(ns)'設置單元格內容

ns=20.321

cell = sheet.CreateRow(2).CreateCell(0) '單元格位置

cs.DataFormat = HSSFDataFormat.GetBuiltinFormat("0.00")'內容數字

cell.CellStyle = cs'設置單元格樣式

cell.SetCellValue(ns)'設置單元格內容

cell = sheet.CreateRow(3).CreateCell(0) '單元格位置

cs.DataFormat = HSSFDataFormat.GetBuiltinFormat("0")'內容數字

cell.CellStyle = cs'設置單元格樣式

cell.CellFormula ="SUM(A1:A2)"'加總公式

sheet.AutoSizeColumn(i) '自動列寬

workbook.Write(fs) '把該workbook寫到檔案裡
fs.Close()
sheet = Nothing '释放EXCEL对象
workbook = Nothing '释放EXCEL对象
System.Diagnostics.Process.Start("book1.xls") '打開excel檔案

End Sub