DataGrid与记录集对象绑定:Private Sub CommandButton1_Click() Dim cn As New ADODB.Connection, rs As New ADODB.Recordset cn.CursorLocation = adUseClient cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Test.xls;Extended Properties=""Excel 8.0;""" rs.Open "select * from [Sheet1$]", cn, adOpenDynamic, adLockReadOnly Set DataGrid1.DataSource = rs End Sub
如果想一格格填內容就不好了。
換別的控件吧。MSHFlexGrid或Listview的報表式樣。
技術支持:[email protected]
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Test.xls;Extended Properties=""Excel 8.0;"""
rs.Open "select * from [Sheet1$]", cn, adOpenDynamic, adLockReadOnly
Set DataGrid1.DataSource = rs
End Sub