zoukankan      html  css  js  c++  java
  • 使用NPOI创建Excel文件

        Public Sub BuildExcel()
            '写入内容到Excel 
            Dim hssfworkbook As HSSFWorkbook = WriteExcel()
    
            Dim destFileName As String = "D:	est.xls"
    
            Dim msfile As New MemoryStream()
    
            hssfworkbook.Write(msfile)
            System.IO.File.WriteAllBytes(destFileName, msfile.ToArray())
        End Sub
    
        Private Function WriteExcel() As HSSFWorkbook
    
            Dim hssfworkbook As New HSSFWorkbook()
    
            Dim excelSheet As HSSFSheet = hssfworkbook.CreateSheet("sheet1")
    
            Dim row0 As HSSFRow = excelSheet.CreateRow(0)
            Dim cell0 As HSSFCell = row0.CreateCell(0)
            cell0.SetCellValue("NUM")
    
            cell0.CellStyle = GetCellStyle(hssfworkbook, HSSFCellStyle.BORDER_THIN, HSSFCellStyle.BORDER_THIN, HSSFCellStyle.BORDER_THIN _
                                           , HSSFCellStyle.BORDER_THIN, HSSFColor.LIGHT_YELLOW.index, "#,##0")
    
            Dim i As Integer = 100, j As Integer = 1
            While i < 10000
                Dim row As HSSFRow = excelSheet.CreateRow(j)
                Dim cell As HSSFCell = row.CreateCell(0)
                cell.SetCellValue(i)
                cell.CellStyle = GetCellStyle(hssfworkbook, HSSFCellStyle.BORDER_THIN, HSSFCellStyle.BORDER_THIN, HSSFCellStyle.BORDER_THIN _
                                              , HSSFCellStyle.BORDER_THIN, HSSFColor.LIGHT_GREEN.index, "#,##0")
                i += 1
                j += 1
            End While
    
            Return hssfworkbook
        End Function
    
        Private Function GetCellStyle(ByVal hssfworkbook As HSSFWorkbook, ByVal borderLeft As Short, ByVal borderBottom As Short, _
                                      ByVal borderRight As Short, ByVal borderTop As Short, ByVal fillforgeroundColor As Short, _
                                      ByVal dataFormat As String) As HSSFCellStyle
            Dim styleInfo As HSSFCellStyle = hssfworkbook.CreateCellStyle()
    
            styleInfo.BorderLeft = borderLeft
            styleInfo.BorderBottom = borderBottom
            styleInfo.BorderRight = borderRight
            styleInfo.BorderTop = borderTop
    
            styleInfo.Alignment = HSSFCellStyle.ALIGN_CENTER
            styleInfo.VerticalAlignment = HSSFCellStyle.VERTICAL_CENTER
    
            styleInfo.FillForegroundColor = fillforgeroundColor
            '设置填充色 
            styleInfo.FillPattern = HSSFCellStyle.SOLID_FOREGROUND
            '设置填充色的时候必须设置这个 
            styleInfo.DataFormat = HSSFDataFormat.GetBuiltinFormat(dataFormat)
            ' 当前日期格式的需要以下这样设置 
            'HSSFDataFormat format = (HSSFDataFormat)hssfworkbook.CreateDataFormat(); 
            'styleInfo.DataFormat = format.GetFormat("yyyy年m月d日"); 
    
            Return styleInfo
        End Function
  • 相关阅读:
    linux安装skype
    (转)程序员最应该读的图书
    Smarty 学习笔记六 缓存
    Smarty 学习笔记二 常用内置变量
    Smarty 学习笔记七 debug
    文本文件与二进制文件区别
    zz 通用线程:Awk 实例,第 2部分
    MIT墙上的格言
    AWK学习笔记
    zz SED单行脚本快速参考 以及 AWK版本
  • 原文地址:https://www.cnblogs.com/icycore/p/3568610.html
Copyright © 2011-2022 走看看