急！！！！！！！ 求助excel查询

Question

我问个问题 我有A、B两个excel文件 我要A中的一列和另外一个excel文件B的一列对比 作查询 有相同的 将A中的这行数据  放到一个新表中 哪位帮帮我？

Answer 1

'引用ADO(Microsoft ActiveX Data Objects 2.X Library)Private Sub Command1_Click()
    Dim oConn As New ADODB.Connection    oConn.CursorLocation = adUseClient    oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=C:\A.xls;" & _
               "Extended Properties=""Excel 8.0;HDR=Yes"""    oConn.Execute ("select * into [EXCEL 5.0;DATABASE=C:\New.xls" & "].[NewSheet] from(select a.*  from  [Sheet1$] a,[EXCEL 5.0;DATABASE=C:\B.xls" & "].[Sheet1$] b where a.a=b.a)")
End Sub