[分享]不采用控件或调用API函数的打开对话框，文件选取框和文件夹选取框。

fan0217

打开对话框，一般都采用控件或调用API函数，此函数虽然采用的Microsoft Office 11.0 Object Library，但没有使用常量名称做参数，所以不需要引用Microsoft Office 11.0 Object Library。

Function GetFileName(ByVal DialogType As Integer) As String
'参数DialogType说明：
'1.“打开”对话框
'3.“文件选取器”对话框
'4.“文件夹选取器”对话框
'不对dlgOpen进行声明的原因是：不需要引用Microsoft Office 11.0 Object Library
Set dlgOpen = Application.FileDialog(DialogType)
    With dlgOpen
        .AllowMultiSelect = False
        .Show
    End With
    If dlgOpen.SelectedItems.Count > 0 Then
        GetFileName = dlgOpen.SelectedItems(1)
    Else
        GetFileName = ""
    End If
Set dlgOpen = Nothing
End Function


参数2为“另存为”对话框，采用上述返回值不太合适。打开另存为对话框函数：

Function FileSaveAs()
'不对dlgOpen进行声明的原因是：不需要引用Microsoft Office 11.0 Object Library
Set dlgOpen = Application.FileDialog(2)
    With dlgOpen
        .AllowMultiSelect = False
        .Show
    End With
  Set dlgOpen = Nothing
End Function

游客，如果您要查看本帖隐藏内容请回复

帮助信息请参考：Application 对象的FileDialog 属性

[此贴子已经被作者于2006-2-26 16:26:12编辑过]

一点通

Set dlgOpen = Application.FileDialog(DialogType)

这句出错,请修改一下

fan0217

没有不对啊！在几台电脑上顺利通过。都没有引用Microsoft Office 11.0 Object Library

实在不行就引用：Microsoft Office xx.x Object Library

[此贴子已经被作者于2006-2-26 16:37:01编辑过]

bqwd36

也是一样的问题，2000下面没法用

nagee

ＸＰ中的另存为也不行！

爱情插班生

很好的例子,我喜欢.[em01][em01][em01]

ericchina

在access中没有filedialog对象。

ruige056011

ji几吧麻烦

ruige056011

在发

ruige056011

发啊