#VB EXCEL 文件匯入DataGridView

将Excel的数据导入DataGridView中[原创]

簡單的連線檔案,塞資料到Table,將GridView資料來源設定Table

要注意遺下 Conn的連線字串

把數字,文字混合的單元格 視為文本來導入 的連線字串寫法

 Public Sub EcxelToDataGridView(ByVal filePath As String, ByRef dgv As DataGridView)

        '//根据路径打开一个Excel文件并将数据填充到DataSet中

        Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " _

                                + filePath + ";Extended Properties ='Excel 8.0;HDR=NO;IMEX=1'"

        '//导入时包含Excel中的第一行数据，并且将 数字和字符混合的单元格 视为文本 进行导入

        Dim conn As New OleDb.OleDbConnection(strConn)

        Dim strExcel As String = "select  * from   [Sheet1$]"

        Dim myCommand As New OleDb.OleDbDataAdapter(strExcel, strConn)

        Dim ds As New DataSet

        Try

            myCommand.Fill(ds, "table1")

            dgv.DataSource = ds.Tables(0)

        Catch ex As Exception

        End Try

    End Sub