excel vba sql.doc

excel+vba+sql 要求一,将 EXCEL 文件 SG Master List SO Outanding 中 Master 页内容中,ItemCode 字段左边六位字符值,和 U_Cat1 字符值加上 U_Cat2 加上”-”号, 再加上 U_Cat3 右边两位数相比较, 将不相同所有行记录, 复制到 sheet2 页中去. Sub 筛选() As New Dim sql As String ' "provider=;extended properties=excel ;data source=" & ThisWorkbook..Open "Provider=;Extended Properties=Excel ;Data Source=" & & "\SG Master List SO Outanding " sql = "select * from [Master$] where left(ItemCode,6) <> U_Cat1 & U_Cat2 & '-' & right(U_Cat3,2) Sheets("Sheet2").[A4]..Execute(sql) = Nothing End Sub 一, 在没有写代码这前要先通过菜单栏中”工具”,”引用”加载” ADO ”类. ' "provider=;extended properties=excel ;data source=" & ThisWorkbook..Open "Provider=;Extended Properties=Excel ;Data Source=" & & "\SG Master List SO Outanding " 这两句都能成功建立过程与文件的链接. 二,在 SQL 语句中, FROM 后面的格式一定要[Master$], 中间 Maste r 是页名,SQL 中用到的字段名是这个页中第一行数据值. 三, Sheets("Sheet2").[A4]..Execute(sql) 语句中, Sheets("Sheet2") 代表要复制的目标页( 在写 VBA, 之前要先建立好.).[A4] 是要粘贴的起启单元格. 要求二,将 EXCEL 文件 SG Master List SO Outanding 中 Master 页内容中,ItemCode 字段左边六位字符值,和 U_Cat1 字符值加上 U_Cat2 加上”-”号, 再加上 U_Cat3 右边两位数相比较, 将不相同所有行记录, 标上”黄颜色”. 一, 先选择 ItemCode 字段第一行单元格,按住” shift ”+” cntre ”+”向下箭头”这样, 就能将本列单元格全部选定.( 适合大量数据的表中). 二,在”格式”,--- “