[分享]不采用控件或調(diào)用API函數(shù)的打開對話框，文件選取框和文件夾選取框。

fan0217

打開對話框，一般都采用控件或調(diào)用API函數(shù)，此函數(shù)雖然采用的Microsoft Office 11.0 Object Library，但沒有使用常量名稱做參數(shù)，所以不需要引用Microsoft Office 11.0 Object Library。

Function GetFileName(ByVal DialogType As Integer) As String
'參數(shù)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


參數(shù)2為“另存為”對話框，采用上述返回值不太合適。打開另存為對話框函數(shù)：

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

游客，如果您要查看本帖隱藏內(nèi)容請回復(fù)

幫助信息請參考：Application 對象的FileDialog 屬性

[此貼子已經(jīng)被作者于2006-2-26 16:26:12編輯過]

一點通

Set dlgOpen = Application.FileDialog(DialogType)

這句出錯,請修改一下

fan0217

沒有不對��！在幾臺電腦上順利通過。都沒有引用Microsoft Office 11.0 Object Library

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

[此貼子已經(jīng)被作者于2006-2-26 16:37:01編輯過]

bqwd36

也是一樣的問題，2000下面沒法用

nagee

ＸＰ中的另存為也不行！

愛情插班生

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

ericchina

在access中沒有filedialog對象。

ruige056011

ji幾吧麻煩

ruige056011

在發(fā)

ruige056011

發(fā)啊