'引用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
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