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

vic810

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老师！

小鸟学语

非常感谢楼上vic810！

sdljsh

学学       谢谢

wgx6366

fgsdf gdsfgsdfg sdfg df gdfsg dsdgfgggggggggggggggggggggggggggggggggggggg