从Excel导入DataGridView,应该如何实现,
从Excel导入DataGridView,应该如何实现,

以下是我根据网上的代码改的 ,但是有错:

VB.NET code

Imports System.DataImports System.Data.OleDbPublic Class Form4 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click   Dim file As String        With openFileDialog1            .Filter = "Excel格式文件(*.xls)|*.xls"            .FilterIndex = 0            .InitialDirectory = "e:\"        End With        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then            file = OpenFileDialog1.FileName        Else            Exit Sub        End If        MsgBox(file)        Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & "e:\text\dzh.xls" & ";" & "Extended Properties=Excel 9.0;"        Dim excelConnection As OleDb.OleDbConnection = New OleDb.OleDbConnection(connectionString)        ' excelConnection.Open()        Dim ad As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter()        ad.SelectCommand = New OleDb.OleDbCommand("select * from [sheet1$]", excelConnection)        Dim dt As DataTable = New DataTable()        ad.Fill(dt)   '这边有错  说ISAM 这个找不到        excelConnection.Close()        Me.DataGridView1.DataSource = dt    End SubEnd Class

如需要阅读该回复，请登录或注册CSDN!