'導入命名空間
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