winform datagridview to excel by NPOI- 藍色小舖 BlueShop

台灣最大程式設計社群網站

∣免費加入會員∣登入 ∣回首頁∣ 您好

線上人數
907

會員總數：242929
討論主題：187836

登入

登出

歡迎您免費加入會員

討論區選單

開發工具

行動裝置開發

資料庫

多媒體 / 網管

綜合

文章區

討論區列表 >> VB.NET >> winform datagridview to excel by NPOI

[]

[我要回覆]

winform datagridview to excel by NPOI
價值 : 30 QP 點閱數:92 回應數:1

樓主

MStone Lin

0	60
1320	89

發送站內信

請問

我試了多天
還是試不出來
請高手幫忙解答謝謝

第1種方法：

Imports System.Data.OleDb
Imports System.Windows.Forms
Imports System.IO
Imports NPOI.HSSF.UserModel
Imports NPOI.SS.UserModel

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
 
        Dim fileDialog As SaveFileDialog = New SaveFileDialog
        fileDialog.Filter = "Excel(97-2003)|*.xls"
        If (fileDialog.ShowDialog = System.Windows.Forms.DialogResult.Cancel) Then
            Return
        End If

DataGridView1.AllowUserToAddRows = False
        Dim workbook As HSSFWorkbook = New HSSFWorkbook
        Dim sheet As ISheet = workbook.CreateSheet("sheet1")
        Dim rowHead As IRow = sheet.CreateRow(0)

Dim i As Integer = 0
        Do While (i < DataGridView1.Columns.Count)
            rowHead.CreateCell(i, CellType.String).SetCellValue(DataGridView1.Columns(i).HeaderText.ToString)
            i = (i + 1)
        Loop

i = 0

Do While (i < DataGridView1.Rows.Count)
            Dim row As IRow = sheet.CreateRow((i + 1))
            Dim j As Integer = 0
            Do While (j < DataGridView1.Columns.Count)
                row.CreateCell(j, CellType.String).SetCellValue(DataGridView1.Rows(i).Cells(j).Value.ToString)
                j = (j + 1)
            Loop

i = (i + 1)
        Loop

Dim stream As FileStream = File.OpenWrite(fileDialog.FileName)
        stream.Close()
        MessageBox.Show("成功", "訊息", MessageBoxButtons.OK, MessageBoxIcon.Information)
        GC.Collect()
 End sub

執行無錯誤，但產生的excel 內容都為空..

第2種

Imports System.Data.OleDb
Imports System.Windows.Forms
Imports System.IO
Imports NPOI.HSSF.UserModel
Imports NPOI.SS.UserModel

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
  Dim workbook As New HSSFWorkbook    '工作簿
        Dim sheet As HSSFSheet              '工作表
        Dim excelrow As HSSFRow             '行集

Dim i As Integer                    '列的循环变量
        Dim m As Integer                    '行的循环变量
        Dim n As Integer                    '列的循环变量

Dim saveDialog As Windows.Forms.SaveFileDialog     '保存文件的对话框

Dim ms As MemoryStream                             '内存中的数据流
        Dim fs As FileStream                               '文件流
        Dim filename As String                             '保存时的文件名称

'如果DataGridView中没有数据，则不导出Excel
        If DataGridView1.Rows.Count = 0 Then
            MsgBox("無法導出為 Excel！", MsgBoxStyle.Exclamation, "温馨提示")
            Return
        End If

sheet = workbook.CreateSheet                      '在工作簿中创建表
        excelrow = sheet.CreateRow(0)                     '在工作表中创建标题行Row（0）

'添加每列列标题
        For i = 0 To DataGridView1.Columns.Count - 1
            '将可见的列的标题写到单元格中（如果某列不可见，那么会在导出的Excel中空出这列）
            If DataGridView1.Columns(i).Visible = True Then
                excelrow.CreateCell(i).SetCellValue(DataGridView1.Columns(i).HeaderText)
            End If
        Next

'添加其他行和列
        For m = 1 To DataGridView1.Rows.Count
            excelrow = sheet.CreateRow(m)                  '每遍历一行，则在sheet中创建一行
            Dim row As IRow = sheet.CreateRow((i + 1))
            For n = 0 To DataGridView1.Columns.Count - 1             '遍历每一行中的所有列
                '如果该列可见，则导出该列单元格的值
                If DataGridView1.Columns(n).Visible = True Then
                    excelrow.CreateCell(n).SetCellValue(DataGridView1.Rows(m - 1).Cells(n).Value.ToString)
                End If
                '如果该列不可见，则将该列设置为隐藏
                If DataGridView1.Columns(n).Visible = False Then
                    sheet.SetColumnHidden(n, True)
                End If
            Next
        Next
        saveDialog = New Windows.Forms.SaveFileDialog                '保存文件对话框
        saveDialog.DefaultExt = "xls"                                '设置默认文件扩展名
        saveDialog.Filter = "Excel文件|*.xls"                        '文件类型
        saveDialog.ShowDialog()                                      '弹出保存文件对话框

filename = saveDialog.FileName                               '将对话框中输入的文件名赋给filename
        ms = New MemoryStream()
        fs = New FileStream(filename, FileMode.Create)
        workbook.Write(ms)                                           '写入数据 
        workbook.Write(fs)
        fs.Close()                                                   '关闭文件
        workbook = Nothing
        ms.Close()
        ms.Dispose()
       
 End sub

這行 excelrow.CreateCell(n).SetCellValue(DataGridView1.Rows(m - 1).Cells(n).Value.ToString)

會出現 "並未將物件參考設定為物件的執行個體"

到底是那出錯呢?

PS：NPOI是2.3.0版的

謝謝~

搜尋相關Tags的文章： [ winform ] , [ datagridview ] , [ excel ] , [ NPOI ] ,
本篇文章發表於2018-08-07 12:07


別忘捐VP感謝幫助你的人	新手會員瞧一瞧

1樓

作者回應

MStone Lin

自解

程式碼沒錯
而是 ROW數判斷錯誤

header
1 值
2 值
3 空值

row:3
但抓值必需從1 到 row-1

For m = 1 To DataGridView1.Rows.Count - 1

Next

本篇文章回覆於2018-08-10 11:23

== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--

回覆

如要回應,請先登入.