|
Sub a()
Dim con As New Connection, rst As New Recordset, i
con.Open "provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=Yes;IMEX=2';data source=" & ThisWorkbook.FullName
rst.Open "select * from [原表$] where 组织名称 like '%华东%' or 组织名称 like '%海平%' or 组织名称 like '%长城%'", con, adOpenKeyset, adLockOptimistic
ThisWorkbook.Sheets("整理表").Cells.Clear
ThisWorkbook.Sheets("整理表").Range("a2").CopyFromRecordset rst
For i = 0 To rst.Fields.Count - 1
ThisWorkbook.Sheets("整理表").Cells(1, i + 1) = rst.Fields(i).Name
Next
rst.Close
Set rst = Nothing
con.Close
Set con = Nothing
End Sub
|
评分
-
查看全部评分
|