[已解决]判断弹出文件选择框是否选择文件

竹岩

Application.Dialogs(1).Show

这个语句后面我想判断是否打开文件应该如何写，就是如果打开了继续执行，如果没有选择文件则退出sub

if 判断没有打开 then
 exit sub
end if

[此贴子已经被作者于2009-12-31 13:59:35编辑过]

最佳答案

月排行榜 / 总排行榜

amulee

2009-12-31 14:13

Application.Dialogs(1).Show这个是真的打开文件了

然后可以用是否有Workbook存在来判断。换一个方法，一般采取如下方式：

Sub test()
    Filename = Application.GetOpenFilename
    If Filename = False Then
        MsgBox "未选择文件。程序退出！"
        Exit Sub
    Else
        MsgBox "选择了" & Filename & "！程序继续进行。"
        Workbooks.Open Filename
    End If
   
End Sub

跳转到最佳答案楼层

amulee

Application.Dialogs(1).Show这个是真的打开文件了

然后可以用是否有Workbook存在来判断。换一个方法，一般采取如下方式：

Sub test()
    Filename = Application.GetOpenFilename
    If Filename = False Then
        MsgBox "未选择文件。程序退出！"
        Exit Sub
    Else
        MsgBox "选择了" & Filename & "！程序继续进行。"
        Workbooks.Open Filename
    End If
   
End Sub