1Excel内置了打开、保存和选择文件的对话框。本节主要介绍如何使用这些内置对话框进行与文件相关的操作。
在学习之前，先了解一下FileDialog这个对象，它提供了文件对话框操作的功能。有如下四个主要功能：
包括文件选择、打开、另存为和文件夹选择。以上常量是可选的。方法是：dim Fobj as file dialog set Fobj=application . file dialog(msofiledialog file picker)。这样就定义了一个filedialog对象，变量名为fobj。之后，您可以设置属性并操作Fobj变量的方法。FileDialog属性
根据以上属性描述，可以设置相关参数以满足程序的要求。具体方法用下面的例子来描述。
上例中设置了四个按钮，分别对应FileDialog的四个方法：打开、选择文件、保存文件、选择文件夹。
选择文件
FileDialog对象可以用来实现任意选择文件的功能。选择文件后，可以进行复制、粘贴、打开等操作，根据不同的功能进行编程。
打开文件
着重介绍了文件对话两种方法：
显示“显示”对话框。单击“确定”时，将返回值-1，单击“取消”时，将返回值0。Execute将在调用show方法后立即执行用户的操作。注意，如果调用了show方法，在对话框关闭之前不会执行任何代码，所以在调用show之前要设置一些属性设置，否则会发现不可用。
No.2下面是一些代码，演示如何实现整个过程。呼叫对话功能
Private Sub FileDialogOpen(单元格作为区域)Dim Fobj作为FileDialogSet Fobj=Application。FileDialog(单元格。值)与Fobj选择案例。DialogType '判断文件Dialog type Case 1 '打开文件。AllowMultiSelect=False '设置无线电If。Show -1然后退出Sub。执行“打开文件案例2 ”,将文件另存为I . F . Show-1，然后退出Sub。执行“另存为案例3，4”选择文件。允许multiselect=trueif.show-1然后退出sub dim I作为整数，xArr ReDim xArr(1 To . selecteditems . count)For I=1 To . selecteditems . count xArr(I)=vbCrLf I ''您选择的是：' VBA . join(xarr)end select end with set fobj=nothing end sub open按钮过程代码
private command button 1 _ click()' open file set cell=active sheet . range(' D6 ')文件对话框open cell set cell=nothing end sub select文件按钮代码
private command button 2 _ click()set cell=active sheet . range(' D4 ')file dialog open cell set cell=nothing end sub使用的所有FielDialog属性都反映在代码中。如果你仔细观察，你会发现每一个用途都是必要的。
判断文件的类型。AllowMultiSelect=False '设置单个单选按钮。选择编辑项目。“计数”返回所选文件的总数。返回单个文件的路径和文件名。如果有兴趣记住属性图的内容，使用起来会更方便。注意，收集完毕-
