Office VBA教程:FileDialog对象

   
FileDialog
多个对象

提供文件对话框,功能与 Microsoft Office 应用程序中标准的“打开”和“保存”对话框类似。利用这些对话框,解决方案的用户可以简便地指定解决方案中应该使用的文件和文件夹。

使用 FileDialog对象

使用 FileDialog属性返回一个 FileDialog对象。FileDialog属性位于每个单独 Office 应用程序的 Application对象中。该属性使用一个参数 DialogType 确定该属性返回的 FileDialog对象类型。FileDialog对象有四种类型:

每个主机应用程序只能实现一个 FileDialog对象实例。因此,在创建多个 FileDialog对象时将延续 FileDialog对象的很多属性。所以,在显示对话框之前请确保已经针对用途正确设置了所有属性。

要使用 FileDialog对象显示一个对话框,必须使用 Show方法。对话框显示后,在用户消除对话框之前将不执行任何代码。本示例创建并显示“文件选取器”对话框,并在消息框中显示每个选定的文件。


Sub Main()
    'Declare a variable as a FileDialog object.
    Dim fd As FileDialog
    'Create a FileDialog object as a File Picker dialog box.
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    'Declare a variable to contain the path
    'of each selected item. Even though the path is a String,
    'the variable must be a Variant because For Each...Next
    'routines only work with Variants and Objects.
    Dim vrtSelectedItem As Variant
    'Use a With...End With block to reference the FileDialog object.
    With fd
        'Use the Show method to display the File Picker dialog box and return the user's action.
        'The user pressed the action button.
        If .Show = -1 Then
            'Step through each string in the FileDialogSelectedItems collection.
            For Each vrtSelectedItem In .SelectedItems
                'vrtSelectedItem is a String that contains the path of each selected item.
                'You can use any file I/O functions that you want to work with this path.
                'This example simply displays the path in a message box.
                MsgBox "The path is: " & vrtSelectedItem
            Next vrtSelectedItem
        'The user pressed Cancel.
        Else
        End If
    End With
    'Set the object variable to Nothing.
    Set fd = Nothing
End Sub

上页:Office VBA教程:DocumentProperty对象 下页:Office VBA教程:FileDialogFilter对象

Office VBA教程:FileDialog对象

Office VBA教程:FileDialogFilter对象 Office VBA教程:FileDialogFilters集合
Office VBA教程:FileDialogSelectedItems集合 Office VBA教程:FileSearch对象
Office VBA教程:FileTypes集合 Office VBA教程:FoundFiles对象
Office VBA教程:HTMLProject对象 Office VBA教程:HTMLProjectItem对象
Office VBA教程:HTMLProjectItems集合对象 Office VBA教程:LanguageSettings对象
Office VBA教程:MsoEnvelope对象 Office VBA教程:NewFile对象
Office VBA教程:ODSOColumn对象 Office VBA教程:ODSOColumns对象
Office VBA教程:ODSOFilter对象 Office VBA教程:ODSOFilters对象
Office VBA教程:OfficeDataSourceObject对象 Office VBA教程:PropertyTest对象
Office VBA教程:PropertyTests集合对象 Office VBA教程:ScopeFolder对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号