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

ruuw · 发表于 2019-10-23 15:20

本帖最后由 ruuw 于 2019-10-23 15:26 编辑

999110022 发表于 2019-10-23 15:07
下载下来以后在我电脑里面文件名是汉字的地方是乱码，在vbe里面fname变量的值里面写的文件名也是乱码，我没 ...

我这显示的结果如下图：另外可不可以“本期未库存结存”也直接在ACCESS计算后导出，不要在EXCEL内用公式计算。

999110022 · 发表于 2019-10-23 15:29

这个我就说不好是什么原因了，没有报错正常运行说明能够正常连接数据库。但是取出的数据都不对的话就奇怪了。
要不你试试在VBE里面按F8键一行一行的执行代码，再在本地窗口里面看看各个变量的状况，应该就能查出来是哪里出的问题。

zpy2 · 发表于 2019-10-23 15:45

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

这种感觉sql也可以先group by再join可以不要循环的。

999110022 · 发表于 2019-10-23 15:56

第一次在数据库取大类和小类的信息没有问题正常取出来了并写到文件里了。说明数据库连接没有问题，能够正常查询。
第二次取数据时出现了问题，数据库返回的结果估计是空值，所以全填写的0。现在最大的嫌疑就是那四个sql语句的问题。而这四个语句里面我觉得嫌疑最大的就是type字段里面的出和入。
你先试着把sql语句里面的出和入两个字删掉，再重新打字输入一下，看看能不能解决。
实在不行就把数据库里面的出入库那里把出和入改成英文比如in和out之类的，然后在sql语句里面type='in'和type='out'的写。
我的经验教训就是在数据库里面字段名能不写汉字就不写汉字，拼音都行。关键字段里面的信息的话也是尽量不写成汉字。就怕以后sql查询时会出一些莫名其妙的问题。

999110022 · 发表于 2019-10-23 16:04

另外你提的要求自动填写F列的信息的话在For i = 5 To Sheets(1).Range("b65536").End(xlUp).Row这个循环的最后，NEXT之前写上
Sheets(1).Range("F" & i).Value = Sheets(1).Range("C" & i).Value + Sheets(1).Range("D" & i).Value - Sheets(1).Range("E" & i).Value
就好了。

ruuw · 发表于 2019-10-23 16:31

999110022 发表于 2019-10-23 16:04
另外你提的要求自动填写F列的信息的话在For i = 5 To Sheets(1).Range("b65536").End(xlUp).Row这个循环的 ...

我这出现的情况如下图，请教一下，要改哪里？

999110022 · 发表于 2019-10-23 16:49

这个是我电脑的截屏，你看看吧。

ruuw · 发表于 2019-10-24 07:41

999110022 发表于 2019-10-23 16:49
这个是我电脑的截屏，你看看吧。

我把你程序中的日文转换成中文后，问题没了。但运算过程有点卡，是不是还可以优化？

999110022 · 发表于 2019-10-24 08:50

这两天都是早班，白天上班弄不了，晚上回家还要陪孩子玩。周末吧。正好想想楼上的提出来的sql语句的事。
另外，你数据库里面有多少条数据啊？很多吗？

opiona · 发表于 2019-10-24 11:30

统计.rar (49.54 KB, 下载次数: 11)
一句SQL搞定

		自动登录	找回密码
密码			免费注册

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

评分

评分

最新热点 /1