【资料名称】：在Excel的VBA中使用SQL语句[1]

【资料作者】：XXXX

【资料日期】：XXXX

【资料语言】：中文

【资料格式】：DOC

【资料目录和简介】：

要求一,将EXCEL 文件SG Master List SO Outanding 090520_ZY.xls 中Master页内容中,ItemCode字段左边六位字符值,和U_Cat1字符值加上U_Cat2加上”-”号,再加上U_Cat3右边两位数相比较,将不相同所有行记录,复制到sheet2页中去.

Sub 筛选��()
Dim cn As New ADODB.Connection
Dim sql As String
'cn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
cn.Open "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.Path & "\SG Master List SO Outanding 090520_ZY.xls"
sql = "select * from [Master$]where left(ItemCode,6) <> U_Cat1 & U_Cat2 & '-' & right(U_Cat3,2) Sheets("Sheet2").[A4].CopyFromRecordset cn.Execute(sql)
cn.Close
Set cn = Nothing
End Sub