DataGridView数据绑定以及导出Excel示例

Private   Sub Btn_Exe_Click() Sub Btn_Exe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Exe.Click
        Dim connStr As String = "Data Source=(local); Database=pubs; Integrated Security=SSPI;"
        Dim conn As SqlConnection = New SqlConnection(connStr)
        Dim comStr As String = "select * from authors"
        Dim da As SqlDataAdapter = New SqlDataAdapter(comStr, conn)
        Dim ds As DataSet = New DataSet
        da.Fill(ds, "table1")

        DataGridView1.DataSource = ds.Tables("table1")
        DataGridView1.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.AllCells)

        Me.Cursor = Cursors.WaitCursor
        Dim myExcel As excel.Application = New excel.Application
        myExcel.Application.Workbooks.Add(True)
        myExcel.Visible = True

        Dim i As Integer
        For i = 0 To ds.Tables("table1").Columns.Count - 1
            myExcel.Cells(1, i + 1) = ds.Tables("table1").Columns(i).Caption
        Next

        Dim m, n As Integer
        For m = 0 To ds.Tables("table1").Rows.Count - 1
            For n = 0 To ds.Tables("table1").Columns.Count - 1
                myExcel.Cells(m + 2, n + 1) = ds.Tables("table1").Rows(m)(n).ToString
            Next
        Next

        Me.Cursor = Cursors.Default

            myExcel.Application.ActiveWorkbook.SaveAs("E:/test.xls")
        MsgBox("Export Successful!")
    End Sub