关注公众号：万能的Excel 并回复【日期搜索】获取源文件！

功能说明：

打印出货单的时候，经常会需要从数据库中查询一段时间内的所有数据

本工作表使用VBA实现了如下功能：

1、实时统计重复项

2、重复项数据自动求和

附上代码

Sub lqxs()
Dim Cnn As Object, SQL$, shnm$, arr, i&, j&
Set Cnn = CreateObject("Adodb.Connection")
shnm = Sheet1.Name
ks = CDate([k1].Value & " " & Format([m1].Value, "hh:mm"))
js = CDate([k2].Value & " " & Format([m2].Value, "hh:mm"))
Cnn.Open "provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;';data source=" & ThisWorkbook.FullName
SQL = "select 材质,规格,重量,产品代码 from [" & shnm & "$] where 出库时间 between #" & ks & "# And #" & js & "#"
[j5:m5000].Clear
[j5].CopyFromRecordset Cnn.Execute(SQL)
Cnn.Close
Set Cnn = Nothing
End Sub

Excel VBA高级编程 -根据日期查找数据相关推荐

Excel VBA高级编程-关键字查找数据库
关注公众号:万能的Excel 并回复[关键字]获取源文件! 功能说明: 这个表格的主要功能是:根据输入的关键字找到数据库中,正确的公司名,生成一个下拉菜单,再根据正确的公司名,找到对应的No生 ...
Excel VBA高级编程 - 根据关键字自动搜索，自动生成下拉菜单
关注微信公众号:万能的Excel,回复关键词[下拉菜单]获取Excel源文件功能说明: 因为工作需要,每一次都要从SAP查找物料信息,手动生成物料清单(Boom表),繁琐且容易出错. 使用VBA实现 ...
Excel VBA高级编程 -自动去除重复项自动求和
大家好,我是陈小虾,是一名自动化方向的IT民工.写博客是为了记录自己的学习过程,通过不断输出倒逼自己加速成长.但功能说明:由于水平有限,博客中难免会出现一些BUG,或者有更优方案恳请各位大佬不吝赐教! ...
Excel VBA高级编程 - 根据关键词实时筛选，自动生成下拉菜单
关注公众号:万能的Excel 并回复[实时筛选]获取源文件! 功能说明: 当客户群体到达一定数量后,统计信息往往编程一项非常繁琐的工作.根据关键字自动搜索并且列出完整的信息编程一项必不可少的功 ...
Excel VBA高级编程-SQL检索（二）合并相同项并求和
大家好,我是陈小虾,是一名自动化方向的IT民工.写博客是为了记录自己的学习过程,通过不断输出倒逼自己加速成长.但功能说明:由于水平有限,博客中难免会出现一些BUG,或者有更优方案恳请各位大佬不吝赐教! ...
Excel VBA 高级编程-跨表格多条件筛选
大家好,我是陈小虾,是一名自动化方向的IT民工.写博客是为了记录自己的学习过程,通过不断输出倒逼自己加速成长.但由于水平有限,博客中难免会出现一些BUG,或者有更优方案恳请各位大佬不吝赐教!微信公众号 ...
Excel VBA 高级编程-库存管理系统表
大家好,我是陈小虾,是一名自动化方向的IT民工.写博客是为了记录自己的学习过程,通过不断输出倒逼自己加速成长.但功能说明:由于水平有限,博客中难免会出现一些BUG,或者有更优方案恳请各位大佬不吝赐教! ...
Excel VBA 高级编程-库存管理-出入库系统
大家好,我是陈小虾,是一名自动化方向的IT民工.写博客是为了记录自己的学习过程,通过不断输出倒逼自己加速成长.但功能说明:由于水平有限,博客中难免会出现一些BUG,或者有更优方案恳请各位大佬不吝赐教! ...
Excel VBA高级编程-SQL检索（一）
大家好,我是陈小虾,是一名自动化方向的IT民工.写博客是为了记录自己的学习过程,通过不断输出倒逼自己加速成长.但功能说明:由于水平有限,博客中难免会出现一些BUG,或者有更优方案恳请各位大佬不吝赐教! ...

Excel VBA高级编程 -根据日期查找数据

功能说明：

Excel VBA高级编程 -根据日期查找数据相关推荐

最新文章

热门文章