Question

如何把excel表格里的数据弄进data grid控件里？

Answer 1

Private Sub cmdOpen_Click()
    CommonDialog1.Filter = "Excel???t(*.xlsx)|*.xlsx"
    CommonDialog1.DialogTitle = "????"
    CommonDialog1.ShowOpen
    Me.txtFilePath.Text = CommonDialog1.FileName
    
    
    Dim DBconn As ADODB.Connection
    Dim strSQL As String
    Dim RS As ADODB.Recordset
    
    Set DBconn = New ADODB.Connection
    Set RS 历氏槐亏= New ADODB.Recordset
    肢明散DBconn.CursorLocation = adUseClient
    strSQL = "SELECT * FROM [Sheet1$]"
    DBconn.Open "provider=microsoft.ace.oledb.12.0;extended properties='Excel 12.0 Xml; imex=1'; data source=" & Me.txtFilePath.Text
    RS.Open strSQL, DBconn, adOpenDynamic, adLockOptimistic
    
    Set dgList.DataSource = RS
    dgList.AllowUpdate = True
    
    
End Sub

这是一个点击打开excel文件并读入到dategrid的。你看下是不是需要这个

追问

为什么我查看源文件的代码时却发现很少

是不是还有别的方法