Dim sConnectionString
sConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\121.xls; Extended Properties=Excel 8.0;"
Dim oleDbConnection
Set oleDbConnection =CreateObject("ADODB.Connection")
oleDbConnection.Open sConnectionString
Dim DataSet
Set DataSet =CreateObject("ADODB.Recordset")
DataSet.Open "Select * from [Sheet1$] where au_id like 'as'", oleDbConnection, adOpenStatic
Dim aa
Set aa=ScreenItems("按钮3")
aa.Text = DataSet.Fields(0).value
DataSet.Close
这是我的代码，运行没反应，请高手帮忙看看
最佳答案
DataSet.Open "Select * from [sheet1$A1:C4]",oleDbConnection,3,3 这样才对。
1. 你需要制定你先打开的连接oleDbConnection
2.你用EXCEL需要制定行列范围
3.注意你制定的行列范围中第一行默认为表格的字段行，所以如我设置的访问A1:C4,那么第一行中的数据时字段行，获取的表格数据其实是A2:C4的内容
提问者对于答案的评价：
谢谢
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc267841.html
微信扫一扫 
支付宝扫一扫 