电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

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

在Excel的VBA中使用SQL语句_第1页
1/7
在Excel的VBA中使用SQL语句_第2页
2/7
在Excel的VBA中使用SQL语句_第3页
3/7
要求一,将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...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

在Excel的VBA中使用SQL语句

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部