从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