如何屏蔽掉提示并退出sub？

sampsonpon · 发表于 2024-10-4 09:00

本帖最后由 sampsonpon 于 2024-10-4 11:21 编辑

如图，因为找不到而报错。如何屏蔽掉提示并退出sub？

quqiyuan · 发表于 2024-10-4 09:41

本帖最后由 quqiyuan 于 2024-10-4 09:42 编辑

在set ...open前插入
f=dir(path)
if f="" then exit sub

sampsonpon · 发表于 2024-10-4 09:58

quqiyuan 发表于 2024-10-4 09:41
在set ...open前插入
f=dir(path)
if f="" then exit sub

运行停顿，提示“变量未定义"

quqiyuan · 发表于 2024-10-4 10:12

sampsonpon 发表于 2024-10-4 09:58
运行停顿，提示“变量未定义"

你定义啊，你代码前面要求定义才能使用，所以，你定义一下嘛：dim f，或者取消第一行，不要定义，我看你也是老会员啦，这个还看不懂？

quqiyuan · 发表于 2024-10-4 10:13

sampsonpon 发表于 2024-10-4 09:58
运行停顿，提示“变量未定义"

定义啊，dim f

sampsonpon · 发表于 2024-10-4 10:53

quqiyuan 发表于 2024-10-4 09:41
在set ...open前插入
f=dir(path)
if f="" then exit sub

假如代码是这样的，也是当找不到文件或者文件夹时，又该如何？

quqiyuan · 发表于 2024-10-4 11:00

sampsonpon 发表于 2024-10-4 10:53
假如代码是这样的，也是当找不到文件或者文件夹时，又该如何？

for each 。。。前插入这个试试
if not fso.FolderExists(p) then exit sub
dir也可以，不过用fso了这个更方便了

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

[已解决] 如何屏蔽掉提示并退出sub？