vb.net excel数据导入datagridview显示

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
    '''<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