Excel VBA和文件夹-1.2.2创建文件夹注意事项
前景提要
上一节我们分享了通过输入框创建文件夹的过程中,如果出现输入错误的符号,导致程序报错,无法正常运行情况的判断,(忘记了的话,可以拉到最下面,有传送门)今天我们继续研究这个方面的问题,我们都知道通过输入框来创建文件夹的话,我们需要输入我们想要的文件名点击确定执行下一步,但是有时候,因为种种原因,我们还没有想好文件名,或者其他人仅仅是测试下这个功能,在弹出了输入框之后,选择了取消按钮,这个时候会有什么情况发生呢?
经过实践,我们发现后面的程序并没有关闭,反而是正常执行了,并且在我们指定的位置创建了一个名为“false”的文件夹,这是为什么呢?
原来当我们选择了取消之后,filename就等于了“false”所以这个时候我们必须要进行判断了,那么如何判断点击的就是取消,还是操作者就想要创建名为“false”的文件呢?
代码区
Sub test()
Dim FileName As Variant '声明一个Variant型变量
FileName = Application.InputBox("请输入文件夹名称", "文件夹名称", Format(Date, "yyyy-mm-dd"))
If TypeName(FileName) = "Boolean" Then '如果用户按下了取消键(取消键的返回值是False,它的类型名称是“Boolean”
Exit Sub '那么退出程序
Else '否则
********
end if
语法说明
在通过输入框输入文件名的过程中,按下取消 如果这样操作的话,系统会选择在路径下创建一个名为“false"的文件夹,这并不是我们想要的结果,因为并没有做出选择,这个时候我们可以将文件名定义为一个变体类型,如果选择了取消按钮,变量就是boolean类型的变量,那可能是没有做出选择了,如果输入了字符串,那么变量就是文本类型,通过这个方式来判断客户是选择了取消按钮还是真的打算建立一个false的文件夹
实际操作中,可以将******换成你想要执行的程序
今天的知识点,你get了吗?
本人已经打算长期分享一些网络搜集的各种VBA知识,如果大家有问题也可以提出来共同解决,一起进步,毕竟VBA的世界还是很大的。
因为基本上都是自学的,很多代码和知识都是来源于网络的,如果在分享的过程中,正好拿了某位大神的代码,请告诉我,我将标注代码来源出处,也方便大家学习分享,谢谢!
=========往期精彩集锦=======
VBA与文件夹
Excel VBA——文件夹的相关操作(1)
Excel VBA和文件夹-1.2.1创建文件夹注意事项