2,506
社区成员
发帖
与我相关
我的任务
分享如何判断GetOpenFilename的返回值
Dim filenames As Variant
Dim fn As Variant
Dim filename As String
filenames = Application.GetOpenFilename("Excel(*.xls),*.xls", 0, "Open a file", Null, True)
For Each fn In filenames
filename = CStr(fn)
...
Next
如果在出现对话框的时候点取消就会出错，怎么解决阿，先谢谢了
Dim fn As Variant
Dim filename As String
filenames = Application.GetOpenFilename("Excel(*.xls),*.xls", 0, "Open a file", Null, True)
For Each fn In filenames
filename = CStr(fn)
...
Next
如果在出现对话框的时候点取消就会出错，怎么解决阿，先谢谢了
...全文
请发表友善的回复…
发表回复
fqyugu 2004-11-26
- 打赏
- 举报
有没有什么函数能判断变量的类型阿，比如这里判断filenames的类型
fqyugu 2004-11-26
- 打赏
- 举报
不好意思，写错了，点取消时，filnames = "False",
filenames = Application.GetOpenFilename("Excel(*.xls),*.xls", 0, "Open a file", Null, True)
'判断在这里判断一下filename
if trim(filename) & ""<>"" then //选中文件时，trim(filenames) 类型不匹配
For Each fn In filenames
filename = CStr(fn)
...
Next
end if
filenames = Application.GetOpenFilename("Excel(*.xls),*.xls", 0, "Open a file", Null, True)
'判断在这里判断一下filename
if trim(filename) & ""<>"" then //选中文件时，trim(filenames) 类型不匹配
For Each fn In filenames
filename = CStr(fn)
...
Next
end if
tztz520 2004-11-26
- 打赏
- 举报
filenames = Application.GetOpenFilename("Excel(*.xls),*.xls", 0, "Open a file", Null, True)
'判断在这里判断一下filename
if trim(filename) & ""<>"" then
For Each fn In filenames
filename = CStr(fn)
...
Next
end if
'判断在这里判断一下filename
if trim(filename) & ""<>"" then
For Each fn In filenames
filename = CStr(fn)
...
Next
end if
fqyugu 2004-11-26
- 打赏
- 举报
如果选了文件运行正常，如果没有选任何文件点的是取消，这时候filename = "False",接下来就出错了
lxcc 2004-11-26
- 打赏
- 举报
Dim filenames As Variant
Dim fn As Variant
Dim filename As String
filenames = Application.GetOpenFilename("Excel(*.xls),*.xls", 0, "Open a file", Null, True)
For Each fn In filenames
filename = CStr(fn)
MsgBox filename
Next
在Excel正常啊?
Dim fn As Variant
Dim filename As String
filenames = Application.GetOpenFilename("Excel(*.xls),*.xls", 0, "Open a file", Null, True)
For Each fn In filenames
filename = CStr(fn)
MsgBox filename
Next
在Excel正常啊?
fqyugu 2004-11-26
- 打赏
- 举报
For Each fn In filenames ///在这就报错了，Type mismatch
if str(fn) & ""<>"" then
filename = Str(fn)
end if
...
Next
if str(fn) & ""<>"" then
filename = Str(fn)
end if
...
Next
tztz520 2004-11-26
- 打赏
- 举报
For Each fn In filenames
if str(fn) & ""<>"" then
filename = Str(fn)
end if
...
Next
if str(fn) & ""<>"" then
filename = Str(fn)
end if
...
Next
