Datagridview学习心得之三Datagridview转成EXCEL

作为数据显示的一个控件datagridview，经常有用户问我能不能直接将显示出来的数据转到EXCEL里面使用，以前我常用的方式就是先转成水晶报表，然后再利用水晶报表的转换功能将数据转到EXCEL里面，或者还有一种方式，就是在程序里引用EXCEL，然后直接对EXCEL文件操作，这种方式使用起来比较灵活，但是也比较麻烦，一是要添加对EXCEL文件的引用，二是正因为灵活，所以也比较复杂，中间控制起来比较不方便。通过一段时间的学习，我找到了另一种方式，即以文件流的方式直接写入到一个EXCEL文件里。我们先看一段代码：

Public SubGv_ExportToExcel(ByVal _Gr As DataGridView, ByVal_File_path As String)

'直接将DATAGRIDVIEW 转为EXCEL文件,参数一、需要转出的datagridview,参数二、转出的文件路径名称.

Dim row_num As Integer = _Gr.Rows.Count- 1 '得到总行数

Dim cell_num As Integer = _Gr.ColumnCount- 1 '得到总列数

Dim i, j AsInteger

Dim myStream As IO.Stream

Dim sw As IO.StreamWriter

Dim v_Title, v_ValuesAs String

Dim fs As System.IO.FileStream = Nothing

If IO.File.Exists(_File_path)Then

‘判断输出的文件是否已被打开

Try

fs = New System.IO.FileStream(_File_path,IO.FileMode.Open, IO.FileAccess.ReadWrite, IO.FileShare.Write)

If Not fs.CanWrite Then ‘文件不能被写入，说明文件已经被占用

MsgBox("报表文件已经打开，请先关闭！！", MsgBoxStyle.OkOnly, "警告")

ExitSub

End If

Catchex As Exception

MsgBox("报表文件已经打开，请先关闭！！", MsgBoxStyle.OkOnly, "警告")

ExitSub

Finally

Iffs IsNot NothingThen

fs.Close()

fs.Dispose()

EndIf

EndTry

IO.File.Delete(_File_path)

End If

myStream = IO.File.Open(_File_path, IO.FileMode.OpenOrCreate)

‘开启文件，如果文件不在存在则建立该文件.

sw = NewIO.StreamWriter(myStream, System.Text.Encoding.GetEncoding(-0))

Try

v_Title = ""

For i = 0 To cell_num 获取DATAGRIDVIEW的列表题做为EXCEL的标题

v_Title += _Gr.Columns(i).HeaderText

v_Title += vbTab

Next

sw.WriteLine(v_Title) ‘写入EXCEL列标题

Fori = 0 To row_num

v_Values = ""

Forj = 0 To cell_num ‘获取每一行的数据

v_Values += _Gr.Rows(i).Cells(j).Value.ToString

v_Values += vbTab

Next

sw.WriteLine(v_Values) ‘写入数据到EXCEL

Next

sw.Close()

myStream.Close()

If IO.File.Exists(_File_path)Then‘最后打开EXCEL文件

System.Diagnostics.Process.Start(_File_path)

EndIf

Catch ex As Exception

MsgBox("转EXCEL出错，代码为！！" + ex.ToString, MsgBoxStyle.OkOnly,"警告")

ExitSub

Finally

sw.Close()

myStream.Close()

End Try

End Sub

这样一段小代码，基本就可以解决所有DATAGRIDVIEW转EXCEL的问题了，你只需要在DATAGRIDVIEW控件上增加一个右键菜单转EXCEL，再调用这一段函数，就可以将任意一个DATAGRIDVIEW转化成EXCEL文件了，相比起来，这种方式比前两种方式更直接和好用。