具体代码是这样的
Dim conn As New ADODB.Connection
Dim reco As New ADODB.Recordsetconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & "d:\book1.xls;" & "Extended Properties=""Excel 8.0;HDR=NO;"""
reco.Open " Select * from [Sheet1$]", conn, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = reco
Dim conn As New ADODB.Connection
Dim reco As New ADODB.Recordsetconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & "d:\book1.xls;" & "Extended Properties=""Excel 8.0;HDR=NO;"""
reco.Open " Select * from [Sheet1$]", conn, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = reco
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货