【資料名稱】：在Excel的VBA中使用SQL語句[1]

【資料作者】：XXXX

【資料日期】：XXXX

【資料語言】：中文

【資料格式】：DOC

【資料目錄和簡介】：

要求一,將EXCEL 文件SG Master List SO Outanding 090520_ZY.xls 中Master頁內(nèi)容中,ItemCode字段左邊六位字符值,和U_Cat1字符值加上U_Cat2加上”-”號,再加上U_Cat3右邊兩位數(shù)相比較,將不相同所有行記錄,復(fù)制到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