在Excel的VBA中使用SQL语句VIP免费

要求一,将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 一,在没有写代码这前要先通过菜单栏中”工具”,”引用”加载”ADO ”类. '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 语句中, FROM 后面的格式一定要[Master$],中间Master是页名,SQL 中用到的字段名是这个页中第一行数据值. 三, Sheets("Sheet2").[A4].CopyFromRecordset cn.Execute(sql)语句中, Sheets("Sheet2")代表要复制的目标页(在写VBA, 之前要先建立好.).[A4]是要粘贴的起启单元格. 要求二, 将EXCEL 文件SG Master List SO Outanding 090520_ZY.xls 中Master页内容中,ItemCode字段左边六位字符值,和U_Cat1字符值加上U_Cat2加上”- ”号,再加上U_Cat3右边两位数相比较,将不相同所有行记录,标上”黄颜色”. 一,先选择ItemCode字段第一行单元格,按住”shift ”+ ”cntre ”+ ”向下箭头”这样,就能将本列单元格全部选定.( 适合大量数据的表中). 二,在”格式”,--- “条件格式”,选择”公式”写入 “=LEFT($B1,6)<>($N1&$O1&"- "&RIGHT($P1,2))”(这里的列是用$B1 表示,因为选中所有列,所以 EXCEL 会 将公式自 动 刷 新 所有列.) EXCEL(VBA)~S...