[已解决][求助]关于GetOpenFilename的疑惑

willin2000 · 发表于 2007-7-19 19:27

为什么下面这段代码, 有时即便你选了文件,但还是显示没有选择文件,但将EXCEL关掉再打开又好了,过一会又不行了.

检查下来是因为在那时,Nfilename得到仅是一个string.(正确时应该是Array)

Option Explicit

Sub Macro2()
    Dim Nfilename As Variant
    Nfilename = Application.GetOpenFilename("Excel Files (*.xls), *.xls", , "Ñ¡ÔñÎÄ¼þ", , True)
    If Not IsArray(Nfilename) Then MsgBox "你没有选择文件": Exit Sub
End Sub

以前遇到过如果对Nfilename 使用和布尔比较后会这样, 但从来没有碰到过这种情况.

[此贴子已经被作者于2007-8-16 12:04:41编辑过]

taller · 发表于 2007-7-19 20:15

To: willin2000版主

帮助中已经说明：本方法返回的是选定的文件名或用户输入的文件名。返回的名称可能包含路径的说明。如果 MultiSelect 为为 True，则返回值将是一个包含所有选定文件名的数组（即使仅选定了一个文件名）。如果用户取消了对话框，则该值为 False。

willin2000 · 发表于 2007-7-19 20:35

谢谢taller兄, 这个我知道的.

现在的问题是我选了文件(一个或多个)后,还是说没选文件.即Not IsArray(Nfilename)永远是TRUE,不管你选不选. 要关闭EXCEL 重来才行,

当Not IsArray(Nfilename)永远是TRUE时, 我发现Nfilename是一个字符串类型, 所以此时如果写s=Nfilename(1),程序会报告出错:类型不匹配.也就是当出错时,即使你选了文件,我把代码DEBUG成:

Sub Macro2()
    Dim Nfilename As Variant
    Nfilename = Application.GetOpenFilename("Excel Files (*.xls), *.xls", , , , True)
    s=Nfilename(1)

End Sub

s=Nfilename(1)那时会出错.

并且此时,插入任何新的模块或程序, Nfilename = Application.GetOpenFilename("Excel Files (*.xls), *.xls", , , , True)得到的Nfilename永远只会是STRING 直到退出EXCEL重来.

taller · 发表于 2007-7-19 20:40

在我的Excel2003中测试多次，没有你说的问题，只要不选择文件，IsArray(Nfilename)结果就为False

willin2000 · 发表于 2007-7-19 23:23

是啊,Excel2003中没有这个问题,只是Excel2000才会有,我在另一台机子上运行

Nfilename = Application.GetOpenFilename("Excel Files (*.xls), *.xls", , , , True)

IsArray(Nfilename)居然总是FALSE,也就是GetOpenFilename multi根本没办法用上.

hiyou · 发表于 2007-7-19 23:23

我在2002中试过楼主的代码,没有这个问题

用了MULTISELECT参数为TRUE,选中一个文件,返回的也是ARRAY,不是STRING(除非你的位置搞错，比如逗号少了一个，但贴子上都给足了4个）

更早的OFFICE2000和97不知有没有这个问题（唉，97都不知道有没有GETOPENFILENAME）

willin2000 · 发表于 2007-7-20 00:01

坛上是否还有在用2000的, 或以前用2000时也遇到过这个问题?

希望能找到解决的办法,因为不全是不可以,有时还是能返回数组的.

我的猜测是Dim Nfilename As Variant没有起到作用,即EXCEL自动"聪明"地认为它应该是STRING.

[此贴子已经被作者于2007-7-20 0:07:36编辑过]

hiyou · 发表于 2007-7-20 06:49

按你说的情况，只是要凑合着用，不是要追根究底，倒也不是不可以

不要对NFileName作判定数组，而是先作FALSE判定，因为选中文件，不管是STRING还是ARRAY，总之是成功了，放弃才是FALSE

然后再判定，IS STRING THEN ，IS ARRAY THEN ，做两个分支好了

willin2000 · 发表于 2007-7-20 07:50

不是要凑合着能用, 我选择了几个文件,它只返回一个(类型STRING).

hiyou · 发表于 2007-7-20 10:18

升级到2003啊...

以前对2003的HELP很感冒

怎么都是ONLINE HLEP，似乎没有本机的CHM...

想要找个整齐的索引都没有了，*_*

特意都要找齐2000或2002的CHM做记念

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