『转』如何读取Excel文件并赋值给DataGridView对象

如何读取Excel文件并赋值给DataGridView对象呢这里有两种方法第一种(推荐)Private Sub listExcel(ByVal dir)  Dim connectionString As String = "Provider = Microsoft.ACE.OLEDB.12.0;Data Source = " & dir & ";Extended Properties = 'Excel 12.0;HDR=YES';"  Dim strSQL As String = "SELECT * FROM [Sheet1$]"  Dim excelConnection As OleDbConnection = New OleDbConnection(connectionString)  Dim dbCommand As OleDbCommand = New OleDbCommand(strSQL, excelConnection)  Dim dataAdapter As OleDbDataAdapter = New OleDbDataAdapter(dbCommand)  Try   excelConnection.Open()   dataAdapter.Fill(ds, "Excel")   DataGridView1.DataSource = ds.Tables("Excel").DefaultView  Catch sqlException As Exception   MsgBox(sqlException.ToString() & Chr(13) & "出现异常，Excel文件打开失败")   Exit Sub  Finally   dataAdapter.Dispose()   dbCommand.Dispose()   excelConnection.Close()   excelConnection.Dispose()  End TryEnd Sub第二种Private Sub listExcel(ByVal dir)  Dim xlApp, xlBook, xlsheet  Dim y As Integer = 1  Dim i As Integer  Dim rows(18) As String   xlApp = CreateObject("Excel.Application")   Try    xlBook = xlApp.Workbooks.Open(dir)   Catch ioException As Exception    MsgBox(ioException.ToString & Chr(13) & "出现异常，Excel文件打开失败")    Exit Sub   End Try   xlsheet = xlBook.Worksheets(1)   While (Convert.ToString(xlsheet.Cells(l, 1).Value)) <> ""    y += 1   End While   With DataGridView1    .EditMode = DataGridViewEditMode.EditOnEnter    .ColumnCount = 19    .RowHeadersVisible = False    .Columns(0).Name = "计费号码"    .Columns(1).Name = "其它费"    .Columns(2).Name = "合计"   End With   For i = 2 To y    rows(0) = Convert.ToString(xlsheet.Cells(i, 1).Value)    rows(1) = Convert.ToString(xlsheet.Cells(i, 15).Value)    rows(2) = Convert.ToString(xlsheet.Cells(i, 16).Value)    Me.DataGridView1.Rows.Add(rows)   NextEnd Sub使用第一种方法速度非常快 *^_^*