|
- Sub 按钮_单击()
- Dim conn As Object, rst As Object
- Dim Stpath$, sql$
-
- Set conn = CreateObject("adodb.connection") '建立ADO连接对象
- Set rst = CreateObject("adodb.recordset") '建立ADO记录集对象
- conn.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties='excel 12.0;imex=1';data source=" & ThisWorkbook.Path & "\工作簿.xlsx"
- sql = "select [现金流水$].贷款帐号 ,[数据表$].贷款单位,[数据表$].身份证号码, [数据表$].地址 from [现金流水$],[数据表$] where[现金流水$].贷款帐号=[数据表$].贷款帐号"
- Range("A2:x10000").ClearContents
- [a2].CopyFromRecordset conn.Execute(sql)
- conn.Close
- Set conn = Nothing
- Set rst = Nothing
- Application.ScreenUpdating = True
- End Sub
复制代码
照例子套的,不懂SQL |
|