【VB6笔记-01】 读取Excel绑定到DataGrid

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

【VB6笔记-01】 读取Excel绑定到DataGrid