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

[duzhonghua]

从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

期待有更好的方法

[kbryant]

友情帮顶

[tfrtfr]

Excel 9.0-〉Excel 8.0 试试

[duzhonghua]

[Quote=引用 2 楼 tfrtfr 的回复:]
Excel 9.0-〉Excel 8.0 试试
[/Quote]

哈哈，还是高手的眼睛尖那，不错，偶自作聪明把Excel ８.0改成了Excel 9.0

[KCP]

Data Source=" & "e:\text\dzh.xls

这个地方有问题吧 这个该是你SQL数据库名字

[linwenyao2008]

我导入之后数值型数据没有了，请问怎么回事