excelvlog办公技巧(Excel或者WPS在vba中用SQL语句查询)

大家好，又好久没有写文章了。今天我们来说说Excel或者WPS在vba中用SQL语句查询的实例。

如下图：

其中A列到E列的数据都是从ERP系统里导出来的，但是导出的数据可能很多很杂，如下图：

上图做为例子，我没有导多少数据出来，但实际工作中导出来的数可能非常多，几千行上万行，我们手工都挑选数据复制粘贴就会比较慢，或都容易出错。当然方法还是很多的，可以用函数公式引用，不过太多公式了又比较卡，也可以用vba代码，当然这里我们讨论用vba代码和SQL语句结合的方式：

Sub 入库差异对比表取数() Dim i As Integer Dim wbpath As String Dim strsql As String Dim conn As New ADODB.Connection wbpath = ThisWorkbook.FullName conn.Open "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=" & wbpath & ";extended properties=""excel 12.0;HDR=YES;IMEX=1""" strsql = "select RIGHT(生产订单,4),卷号*1,长度,宽度,数量 from [入库单单行$a2:V]" i = Range("a65536").End(xlUp).Row Range("a2:e" & i).ClearContents Range("a2").CopyFromRecordset conn.Execute(strsql) conn.CloseEnd Sub

怎么样，大家可以试着练练，或许能大大提高你的工作效率，让你更好摸鱼哦。

很多同事工作做的好累呀，好无奈，上班手动复制粘贴按计算器到下班，天天抱怨，比如做计划？排产？更要命的是你花了几个小时或者几天做好的，别人说要插单，要改单，要加产量等等超多细节，那么这些除了购买专业的软件外，EXECL或者WPS能不能胜任呢？我想说是可以的。如图：

觉得能学到点东西，你就点点赞吧。