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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!