运行出错，不知道什么原因

yuzhc8818 · 发表于 2018-6-5 14:24

各位大神，帮忙看看。不知道什么问题。运行一直提示出错。

yylucke · 发表于 2018-6-5 14:30

这句错误
'Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
修改为
Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=YES;IMEX=0"";"""
原因：你那句是2003及以前的版本。

yylucke · 发表于 2018-6-5 14:33

3.请不要更改各个表格的名称，否则会出现错误；
这个可以修改，你把所有的sheet引用修改为sheet1，sheet2……这样的格式，这样代码就直接引用sheet的内部name，而与sheet显示的名称无关。

yuzhc8818 · 发表于 2018-6-5 21:16

yylucke 发表于 2018-6-5 14:30
这句错误
'Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" ...

这个运行没发现问题，是【自动勾对】这里面的代码有问题。

yylucke · 发表于 2018-6-6 10:37

yuzhc8818 发表于 2018-6-5 21:16
这个运行没发现问题，是【自动勾对】这里面的代码有问题。

我按照我说的修改了那句后，所有按钮能正常运行，没有报错。
至于数据是否正确，倒是没有细看。

yylucke · 发表于 2018-6-6 11:08

我是搞财务的，其实电子对账，初看简单，实则很复杂。因为
1、一对多的关系
2、数据一样，交易实质不一样，普通程序并不能判断这两笔业务是否是一样的。
建议：
1、转次月不要生成新的工作簿，只要把调节表生成副本，并以年月来命名该工作表。因为跨月比对，在同一个工作簿方便。可以按年转新工作簿。

yylucke · 发表于 2018-6-6 12:46

本帖最后由 yylucke 于 2018-6-6 12:48 编辑

我重写了，完成了勾对。后面生成银行余额调节表，以及后续月份的对账，你自己处理吧。
为了不对使用者造成困惑，对账日志表可以深度隐藏，调试程序的时候显示。

yuzhc8818 · 发表于 2018-6-26 21:20

yylucke 发表于 2018-6-6 12:46
我重写了，完成了勾对。后面生成银行余额调节表，以及后续月份的对账，你自己处理吧。
为了不对使用者造成 ...

非常感谢.....

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

[已解决] 运行出错，不知道什么原因

评分