【周五•VBA进阶】完美打印文件存放路径和名称。Excel VBA Application对象Fil...

Excel 2013 VBA进阶实战教程系列

第-10.1-节  文件对话框操作

    做报表，就少不了对各类Excel文件的打开编辑操作，今天小编excel小课堂(ID：excel-xiaoketang 长按复制)就分享下Application对象的FileDialog属性，轻松获取文件的完整路径和名称。

01

Application.FileDialog 属性

    Application.FileDialog 属性返回一个 FileDialog 对象，该对象表示文件对话框的实例。

语法：表达式 . FileDialog( fileDialogType )

表达式 一个代表 Application 对象的变量。

fileDialogType 必需 MsoFileDialogType 文件对话框的类型。MsoFileDialogType 可为以下 MsoFileDialogType 常量之一。

02

FileDialog 对象常用属性

    Application.FileDialog 属性返回一个 FileDialog 对象，在玩转这个对象之前，先来了解下它都有那些属性。

03

显示每个文件的路径

    说得再多，不如一次实践。在本示例中，Microsoft Excel 打开文件对话框，允许用户选择一个或多个文件。选中这些文件之后，Excel 将逐条显示每个文件的路径。

Sub UseFileDialogOpen()

    Dim lngCount As Long

    '打开文件对话框

    With Application.FileDialog(msoFileDialogOpen)

        .AllowMultiSelect = True

        .Show

        ' 显示所选文件的完整路径

        For lngCount = 1 To .SelectedItems.Count

            msgbox .SelectedItems(lngCount)

        Next lngCount

    End With

End Sub