『转』如何读取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 Try End 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)    Next End Sub 使用第一种方法速度非常快 *^_^*