[已解决]再问老师，请问这个如何修改？

lygkkk · 发表于 2017-2-20 20:50

本帖最后由 lygkkk 于 2017-2-20 20:53 编辑

你是点的公司小类分表么？我刚刚试了下没有问题

要不你单步运行看看什么地方出错

love_liwu · 发表于 2017-2-20 21:30

lygkkk 发表于 2017-2-20 20:50
你是点的公司小类分表么？我刚刚试了下没有问题

要不你单步运行看看什么地方出错

老师，您是不是在压缩文件少添加了文档，我只看到《客户信息表》这个工作簿哦？

lygkkk · 发表于 2017-2-20 21:45

还有个你自己有的我就没丢进去了
你2个文件放一起就可以了

love_liwu · 发表于 2017-2-20 21:47

lygkkk 发表于 2017-2-20 21:45
还有个你自己有的我就没丢进去了
你2个文件放一起就可以了

我按F8，逐句运行，就出现了之前的错误提示。提示错误 office2013.PNG

lygkkk · 发表于 2017-2-20 22:32

按了1下F8就这样了？

love_liwu · 发表于 2017-2-20 22:36

本帖最后由 love_liwu 于 2017-2-20 22:42 编辑

lygkkk 发表于 2017-2-20 22:32
按了1下F8就这样了？

不是，在这一句后Workbooks.Open (My_path & "顾客信息登记表.xls")，话说我是运行CommandButton2_Click代码。不见CommandButton1_Click代码，应该是没有这段代码吧？

lygkkk · 发表于 2017-2-20 23:09

算了我重新发下吧 2张表都丢进去

love_liwu · 发表于 2017-2-20 23:28

本帖最后由 love_liwu 于 2017-2-20 23:31 编辑

lygkkk 发表于 2017-2-20 23:09
算了我重新发下吧 2张表都丢进去

好奇怪啊，你把那个表格丢进去就可以了，我再看看。感谢！
PS：代码感觉好长，能否精简些？

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