如何用VBA实现根据列出的名字或编号从不同的工作簿提取数据(已解决)?

vic810 · 发表于 2009-3-18 15:37

Private Sub CommandButton1_Click()
Dim cnn, rst
Dim SQL As Variant
Set cnn = CreateObject("ADODB.connection")
Set rst = CreateObject("ADODB.recordset")
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;';Data Source=" & ThisWorkbook.Path & "\高三.xls"
For i = 2 To Sheets("提取2").[A65536].End(xlUp).Row
      SQL = "select * from [原稿$] as S2 where S2.编号=" & Sheets("提取2").Cells(i, 1).Value & ""
      rst.Open SQL, cnn, 1, 1
      Sheets("提取2").Cells(i, 1).CopyFromRecordset rst
rst.Close
Next i
cnn.Close
Set rst = Nothing
Set cnn = Nothing
End Sub
这个是在论坛牛人Yagi指导下完成的，感谢yagi老师！

小鸟学语 · 发表于 2009-3-18 16:13

非常感谢楼上vic810！

sdljsh · 发表于 2009-7-7 15:55

学学谢谢

wgx6366 · 发表于 2009-10-26 12:18

fgsdf gdsfgsdfg sdfg df gdfsg dsdgfgggggggggggggggggggggggggggggggggggggg

		自动登录	找回密码
密码			免费注册

[求助] 如何用VBA实现根据列出的名字或编号从不同的工作簿提取数据(已解决)?