'使用NPOI寫入新創建的excel文件，導出文件：
Private Sub Sub_WriteXls()
Dim XlsBook As XSSFWorkbook
Dim XlsSheet As XSSFSheet
Dim XlsRow As XSSFRow

'Dim Path As FileStream
Dim PathSave As FileStream
Dim A As Integer

Try
'Path = File.OpenRead(Application.StartupPath & "\oms導入模版.xls")
XlsBook = New XSSFWorkbook()
XlsSheet = XlsBook.CreateSheet("進出庫存流量日報表")

If SaveFileDialog1.ShowDialog = DialogResult.OK Then
''建立表頭
XlsRow = XlsSheet.CreateRow(0)

''讀取表格列表頭數據，并填充到xls
For A = 0 To GridView1.Columns.Count - 1
XlsRow.CreateCell(A).SetCellValue(GridView1.Columns(A).ToString)
Next

For A = 0 To GridView1.RowCount - 1
'建立新行
XlsRow = XlsSheet.CreateRow(A + 1)

For B = 0 To GridView1.Columns.Count - 1
If B < 10 Then
XlsRow.CreateCell(B).SetCellValue(GridView1.GetRowCellValue(A, GridView1.Columns(B)).ToString)

ElseIf GridView1.GetRowCellValue(A, GridView1.Columns(B)).ToString <> "" Then
XlsRow.CreateCell(B).SetCellValue(Convert.ToInt16(GridView1.GetRowCellValue(A, GridView1.Columns(B)).ToString))
End If
Next
Next

PathSave = File.OpenWrite(SaveFileDialog1.FileName)
XlsBook.Write(PathSave)
PathSave.Close()

MsgBox("數據導出完畢！")
End If

Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

?

轉載于:https://www.cnblogs.com/danyu/p/10138129.html

總結

以上是生活随笔為你收集整理的一个NPOI导出到excel文件的范例记录的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。