请教：VB中如何导入EXCEL数据到DATAGRID中？

Question

如题，谢谢，我是新手希望能有原代码（是用ADO）

Answer 1

引用ADO(Microsoft ActiveX Data Objects 2.X Library)Private Sub Command1_Click()
    Dim oConn As New ADODB.Connection
    Dim oRS As New ADODB.Recordset
    oConn.CursorLocation=adUseClient
    '连接字符串的路径自己改过来
    oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=C:\Book1.xls;" & _
               "Extended Properties=""Excel 8.0;"""    oRS.Open "Select * from [Sheet1$]", oConn, 3, 2    Set DataGrid1.DataSource=oRS
End Sub

Answer 2

如果把第一列数据当作标题，改一下连接字符串：    oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=C:\Book1.xls;" & _
               "Extended Properties=Excel 8.0;HDR=Yes"

Answer 3

Dim oConn As Object
    Set oConn = CreateObject("ADODB.Connection")
    Dim oRS As New ADODB.Recordset
    oConn.CursorLocation = adUseClient
    oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=C:\Book1.xls;" & _
               "Extended Properties=""Excel 8.0;"""    oRS.Open "Select * from [Sheet1$]", oConn, 3, 2    Set DataGrid1.DataSource = oRS
略做改动，还是非常谢谢