从DataGridView写入Excel

Imports System.IO

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

ExportDataGridViewToExcel(DataGridView1)

End Sub

Public Sub ExportDataGridViewToExcel(ByVal dataGridview1 As DataGridView)

Dim saveFileDialog As SaveFileDialog = New SaveFileDialog

saveFileDialog.Filter = "Execl files (*.xls)|*.xls"

saveFileDialog.FilterIndex = 0

saveFileDialog.RestoreDirectory = True

saveFileDialog.CreatePrompt = True

saveFileDialog.Title = "导出Excel"

saveFileDialog.ShowDialog()

Dim myStream As Stream

myStream = saveFileDialog.OpenFile

Dim sw As StreamWriter = New StreamWriter(myStream, System.Text.Encoding.Unicode)

Dim str As String = ""

Try

Dim i As Integer = 0

While i < dataGridview1.ColumnCount

If i > 0 Then

str += "" & Microsoft.VisualBasic.Chr(9) & ""

End If

str += dataGridview1.Columns(i).HeaderText

i = i + 1

End While

sw.WriteLine(str)

Dim j As Integer = 0

While j < dataGridview1.Rows.Count

Dim tempStr As String = ""

Dim k As Integer = 0

While k < dataGridview1.Columns.Count

If k > 0 Then

tempStr += "" & Microsoft.VisualBasic.Chr(9) & ""

End If

tempStr += dataGridview1.Rows(j).Cells(k).Value.ToString

k = k + 1

End While

sw.WriteLine(tempStr)

j = j + 1

End While

sw.Close()

myStream.Close()

MessageBox.Show("导出成功")

Catch e As Exception

MessageBox.Show(e.ToString & " 发生错误！")

Finally

sw.Close()

myStream.Close()

End Try

End Sub

End Class