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

duzhonghua 2008-07-16 03:50:47

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

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





Imports System.Data

Imports System.Data.OleDb



Public 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 Sub

End Class