[已解决]悬赏求助修改代码

〃高调的沉默 · 发表于 2015-2-10 16:07

本帖最后由〃高调的沉默于 2015-2-11 14:18 编辑

见附件，现在想达到这样的效果：若文件被复制了，当打开的路径（如，G：财务/……，不要用机器码的）不对就自动删除excel工作簿，事先不要有任何提示，请vba大师赐教。
登陆名:ABC,密码：123

最佳答案

月排行榜 / 总排行榜

QLZ0602

2015-2-11 14:16

If ThisWorkbook.Path <> "G:\练习" Then Call delt

跳转到最佳答案楼层

〃高调的沉默 · 发表于 2015-2-10 21:04

本帖最后由〃高调的沉默于 2015-2-11 14:22 编辑

不管怎样修改路径（自己认为路径对了）都会自动删除。请高手帮忙修改一下吧。

〃高调的沉默 · 发表于 2015-2-11 08:59

{:1112:}

〃高调的沉默 · 发表于 2015-2-11 11:40

没人会呀？{:1312:}

QLZ0602 · 发表于 2015-2-11 12:34

If ThisWorkbook.Path <> "G:\练习\求助.xls " Then Call delt '自杀程序
这句话不对吧？

If ThisWorkbook.Path & “\" & ThisWorkbook.name <> "G:\练习\求助.xls " Then Call delt '自杀程序

〃高调的沉默 · 发表于 2015-2-11 12:46

QLZ0602 发表于 2015-2-11 12:34
If ThisWorkbook.Path "G:\练习\求助.xls " Then Call delt '自杀程序
这句话不对吧？

祝您小年快乐！我试试。

〃高调的沉默 · 发表于 2015-2-11 12:51

本帖最后由〃高调的沉默于 2015-2-11 14:22 编辑

QLZ0602 发表于 2015-2-11 12:34
If ThisWorkbook.Path "G:\练习\求助.xls " Then Call delt '自杀程序
这句话不对吧？

编译语法错误？

QLZ0602 · 发表于 2015-2-11 13:30

是不是双引号全角？

〃高调的沉默 · 发表于 2015-2-11 13:39

QLZ0602 发表于 2015-2-11 13:30
是不是双引号全角？

我也发现这个问题了，可改过后，即是路径对，还是自动删除了，不知道什么原因？请帮忙。

QLZ0602 · 发表于 2015-2-11 13:48

〃高调的沉默发表于 2015-2-11 13:39
我也发现这个问题了，可改过后，即是路径对，还是自动删除了，不知道什么原因？请帮忙。

有QQ吗？我的 695982239

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