vb.net excel数据导入datagridview显示

    '''<summary>
    '''从excel把数据导入datagridveiw中，Sheet代表excel中的工作表名称
    '''</summary>
    '''<param name="Sheet">Sheet代表excel中的工作表名称</param>
    '''<param name="datagridview">datagridview代表数据要导入的datagridview名称</param>
    Private Sub importexceltodatagridview(ByVal Sheet, ByVal datagridview)
        Dim fileDialog As OpenFileDialog = New OpenFileDialog()
        Dim FileName As String
        'fileDialog.Filter = "Microsoft Excel files (*.xls)|*.xls"
        If fileDialog.ShowDialog = Windows.Forms.DialogResult.Cancel Then
            Exit Sub
        Else
            Try
                FileName = fileDialog.FileName
                Dim dataAdapter As New OleDbDataAdapter
                Dim MyConnection As New OleDbConnection
                Dim objcmd As OleDbCommand
                Dim dst As New DataSet
                Dim dt As New DataTable
                MyConnection = New OleDbConnection( _
                            "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                            "Data Source=" & FileName & ";" & _
                            "Extended Properties='Excel 12.0;HDR=Yes;IMEX=1;'")
                '   Select   the   data   from   Sheet1   of   the   workbook.
                MyConnection.Open()
                objcmd = New OleDbCommand("select * from [" & Sheet & "$]", MyConnection)
                dataAdapter.SelectCommand = objcmd
                dataAdapter.Fill(dst, "info")
                dt = dst.Tables("info")
                dataAdapter.Update(dst, "info")
                MyConnection.Close()
                datagridview.AutoGenerateColumns = True
                datagridview.DataSource = dt
                'MsgBox("ok")
            Catch ex As Exception
                MessageBox.Show(ex.Message, "读取出错")
            End Try
        End If

最后

以上就是美丽月饼为你收集整理的vb.net excel数据导入datagridview显示的全部内容，希望文章能够帮你解决vb.net excel数据导入datagridview显示所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。