新人求助，麻烦帮忙缩减下对应的代码

yueyuexian5 · 发表于 2018-9-4 10:31

liulang0808 发表于 2018-9-3 20:32
楼主看看是不是这个意思吧

谢谢大大，测试是可以的，不过我照抄过去的时候不行。
With Workbooks.Open(ThisWorkbook.Path & "\S-随机活动1.xls")
[img]%5Burl=https://imgchr.com/i/iSa5v9%5D

[/url][/img]

yueyuexian5 · 发表于 2018-9-4 10:34

本帖最后由 yueyuexian5 于 2018-9-4 10:47 编辑

liulang0808 发表于 2018-9-3 20:32
楼主看看是不是这个意思吧

大佬，我自己试了一下可以，就是我要的办法，不过照抄过去时候提示失败。
With Workbooks.Open(ThisWorkbook.Path & "\S-随机活动1.xls")
方法open 作用于对象'workbooks'时失败。

发现问题了，没有放在同个文件夹 (ThisWorkbook.Path & "\是搜索同个文件夹，谢谢大佬！！！！

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

[求助] 新人求助，麻烦帮忙缩减下对应的代码

点评