请各位老师帮帮忙吧，关于ＡＤＯ的问题

鱼求雨

自学一下ADO， 自己解决吧，每个人的精力都是有限的，不要依赖老师。

om0488

请问老师应该怎样写，我写的总是出错！

LAOMALIN

Sub ronhy()
Dim conn As Object, rst As Object, sql$, i&
Dim mysheet As Worksheet, lastrow&, mystr$
Set conn = CreateObject("adodb.connection")
'Set rst = CreateObject("ADODB.recordset")
conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.Path & "\a.xls"   '打开数据库文件接口
mystr = Cells(2, 1)
For i = 3 To [a65536].End(xlUp).Row
mystr = mystr & "," & Cells(i, 1)
Next i
sql = "select number,type from [sheet1$] where number in(" & mystr & ")"
Sheet2.Range("a1").CopyFromRecordset conn.Execute(sql)


'rst.Close
conn.Close
Set rst = Nothing
Set conn = Nothing
MsgBox "任务完成"
End Sub

LAOMALIN

由于你的是不同在一个工作薄,所以我只能做到这样,仅供参考
提取a列对应未打开工作薄中A列中的记录.rar (15.77 KB, 下载次数: 8)

2009-7-6 23:52 上传

点击文件名下载附件