No.1

Excel内置了一些文件打开、保存、选择等对话框，本节主要介绍一下如何利用这些内置对话框来进行文件的相关操作。

学习之前，首先认识一下对象FileDialog，此对象提供了文件对话框操作功能。

主要有如下四个功能：

包含了文件选择、打开、另存为，文件夹选择。

上述常量是任选项。

使用方法为：

Dim Fobj As FileDialog

Set Fobj = Application.FileDialog(msoFileDialogFilePicker)

这样就定义了一个FileDialog对象，变量名称为Fobj。

之后对Fobj变量进行属性设置和方法操作就可以了。

FileDialog属性

根据上图属性说明，可以进行相关参数设置，以达到程序所要求的条件。

具体方法下面有示例介绍。

上图示例中，设置了四个按钮，分别对应FileDialog对应的四个方法：打开、选择文件、保存文件和选择文件夹。

利用FileDialog对象可实现任意选择文件功能，选择之后可以对文件进行复制、粘贴、打开等等操作，根据需求功能不同进行编程。

着重介绍一下FileDialog两个方法：

1. show 显示对话框，当单击确定后返回值-1，当单击取消值返回0
2. execute 在调用 Show 方法后立即执行用户的操作

注意一点，如果调用了show方法，在关闭对话框之前就不再执行任何代码了，所以有些属性设置要在调用show之前进行设置，不然会发现不可用。

No.2

下面用一些代码来具体演示，如何实现整个过程。

调用对话框函数

Private Sub FileDialogOpen(cell As Range)
Dim Fobj As FileDialog
Set Fobj = Application.FileDialog(cell.Value)
    With Fobj
        Select Case .DialogType '判断FileDialog类型
                Case 1 '打开文件
                     .AllowMultiSelect = False '设置单选
                      If .Show <> -1 Then Exit Sub
                     .Execute '执行打开文件
                Case 2 '文件另存为
                     If .Show <> -1 Then Exit Sub
                    .Execute '执行另存为
                Case 3, 4 '选择文件
                    .AllowMultiSelect = True
                     If .Show <> -1 Then Exit Sub
                    Dim i As Integer, xArr
                    ReDim xArr(1 To .SelectedItems.Count)
                    For i = 1 To .SelectedItems.Count
                        xArr(i) = vbCrLf & i & ". " & .SelectedItems(i)
                    Next i
                    MsgBox "你选择的是：" & VBA.Join(xArr)
        End Select
    End With
Set Fobj = Nothing
End Sub

打开按钮过程代码

Private Sub CommandButton1_Click() '打开文件
Set cell = ActiveSheet.Range("D6")
FileDialogOpen cell
Set cell = Nothing
End Sub

选择文件按钮代码

Private Sub CommandButton2_Click()
Set cell = ActiveSheet.Range("D4")
FileDialogOpen cell
Set cell = Nothing
End Sub

所有用到FielDialog属性都在代码中体现，仔细看会发现每个用处都十分必要。

• DialogType '判断FileDialog类型
• .AllowMultiSelect = False '设置单选
• .SelectedItems.Count'返回选择文件总数
• .SelectedItems(i)'返回单项文件路径和文件名

有兴趣把属性图中的内容记住，使用就更加方便了。

欢迎关注、收藏

---END---