根据日期段，从Access内计算并将结果导入到Excel

ruuw

ACCESS内的数据，根据EXCEL内的日期段进行计算，并将结果导入到EXCEL。希望的结果见附件。

ruuw

工作中急用的，自己顶一下，请高手帮忙，谢谢！

999110022

刚下夜班没有时间弄，给你个思路自己搞搞吧？
1，vba连接数据库
2，计算期初库存数量，思路是分别查询期初以前的所有出库，入库数量，然后入库减去出库就是期初库存数量。计算期初入库数量sql1:--SELECT sum (数据源.数量) as 入库小计 FROM 数据源 WHERE (((数据源.小类)="B02") AND ((数据源.出入类型)="入库") AND ((数据源.日期)<#11/3/2019#))
计算期初出库数量sql2:--SELECT sum (数据源.数量) as 出库小计 FROM 数据源 WHERE (((数据源.小类)="B02") AND ((数据源.出入类型)="出库") AND ((数据源.日期)<#11/3/2019#))
此处以小类为B02，期初日期为2019/11/3为例。
sql1-sql2就是期初库存数量。
3.当期入库数量sql:--SELECT sum (数据源.数量) as 入库小计 FROM 数据源 WHERE (((数据源.小类)="B02") AND ((数据源.出入类型)="入库") AND ((数据源.日期) between #11/3/2019# and #11/4/2019#))
4.当期出库数量sql:--SELECT sum (数据源.数量) as 出库小计 FROM 数据源 WHERE (((数据源.小类)="B02") AND ((数据源.出入类型)="出库") AND ((数据源.日期) between #11/3/2019# and #11/4/2019#))

剩下的就是循环查询excel文件里每一行的数据了。for.....loop循环了。
希望能帮得上你的忙。

蓝桥玄霜

统计的代码：

ruuw

999110022 发表于 2019-10-22 10:24
刚下夜班没有时间弄，给你个思路自己搞搞吧？
1，vba连接数据库
2，计算期初库存数量，思路是分别查询期 ...

谢谢回复，但我就一菜鸟，真看不懂，唉........能做成附件上传吗？谢谢！

ruuw

蓝桥玄霜 发表于 2019-10-22 10:46
统计的代码：

老大，感谢回复，可否给个附件下载，谢谢！

ruuw

蓝桥玄霜 发表于 2019-10-22 10:46
统计的代码：

老大，根据你提供的程序，我输入好了，但运行出错，这是什么原因？可否帮忙修正，谢谢！

ruuw

ruuw 发表于 2019-10-22 12:16
老大，根据你提供的程序，我输入好了，但运行出错，这是什么原因？可否帮忙修正，谢谢！

再顶一下，高手快点出现吧，江湖救急，谢谢了。

ruuw

蓝桥玄霜 发表于 2019-10-22 10:46
统计的代码：

原来是自己输入错误，现总算搞定了，谢谢！

999110022

看看这个行不行，代码有点啰嗦，懒得简化了，只求能得到效果就好。
我的系统是日文环境汉字显示有问题，所以我把需要用到的字段给改成英文名称了。