Application.GetOpenFilename 方法解析

unrains

感谢如此细致的讲解，直达我心

淡淡的邪

我遇到一个这样的问题  如果fileToOpen定义为string的话  会在if fileToOpen = false处报错，如果要判断有没有选择文件 必须把fileToOpen定义为变体变量 ，请问各位老师这是什么原因？

EH-yb

淡淡的邪 发表于 2019-5-18 21:40
我遇到一个这样的问题  如果fileToOpen定义为string的话  会在if fileToOpen = false处报错，如果要判断有 ...

（1） 如果用户取消了对话框，if fileToOpen = false是不会报错的。

（2） 如果用户选择了文件，if fileToOpen = false，是会报错的。如果选择了文件，那么fileToOpen是一个带路径的文件名，而false是布尔逻辑，不是同一个类型，两者怎么能用“=”相比较呢。

（3） if fileToOpen = false不能解决用户（选择文件）或者（选择取消对话框）而出现的程序错误。也就是说如果if fileToOpen = false与if fileToOpen <> false 同时出现在过程里，不管用户是否选择文件都比然出错。

（4） 解决方法：如果没有选择文件，则是取消了对话框，此时fileToOpen是一个布尔值。判断fileToOpen值的类型是不是布尔型，用VarType函数返回值确认，If VarType(fileToOpen) =11 Then Msgbox “你没有选择文件” :Exit Sub（如果是布尔值则返回11）。

以下是MultiSeelect参数的说明

（I）将MultiSeelect 为True，则返回值将是一个包含所有选定文件名的数组 。如果用户取消了对话框，则该值为一个变量值，值为False。若果用户选择了文件，那么fileToOpen的返回是一个数组，而数组的类型为变体Variant。定义的类型应与之相匹配。
（II）如果MultiSelect 为False（默认为False），则返回值是一个变量值（注意不是数组），该值为包含路径的文件名。如果用户“取消”了对话框，则fileToOpen的值为False。

淡淡的邪

EH-yb 发表于 2019-7-21 14:01
（1）  如果用户取消了对话框，if fileToOpen = false是不会报错的。（2） 如果用户选择了文件，if fileT ...

谢谢回复 ！！