|
No.1 Excel内置了一些文件打开、保存、选择等对话框，本节主要介绍一下如何利用这些内置对话框来进行文件的相关操作。
学习之前，首先认识一下对象FileDialog，此对象提供了文件对话框操作功能。 主要有如下四个功能：
包含了文件选择、打开、另存为，文件夹选择。 上述常量是任选项。 使用方法为： Dim Fobj As FileDialog Set Fobj = Application.FileDialog(msoFileDialogFilePicker) 这样就定义了一个FileDialog对象，变量名称为Fobj。 之后对Fobj变量进行属性设置和方法操作就可以了。 FileDialog属性
根据上图属性说明，可以进行相关参数设置，以达到程序所要求的条件。 具体方法下面有示例介绍。
上图示例中，设置了四个按钮，分别对应FileDialog对应的四个方法：打开、选择文件、保存文件和选择文件夹。
选择文件 利用FileDialog对象可实现任意选择文件功能，选择之后可以对文件进行复制、粘贴、打开等等操作，根据需求功能不同进行编程。
打开文件 着重介绍一下FileDialog两个方法： show 显示对话框，当单击确定后返回值-1，当单击取消值返回0execute 在调用 Show 方法后立即执行用户的操作注意一点，如果调用了show方法，在关闭对话框之前就不再执行任何代码了，所以有些属性设置要在调用show之前进行设置，不然会发现不可用。
No.2 下面用一些代码来具体演示，如何实现整个过程。 调用对话框函数 Private Sub FileDialogOpen(cell As Range)Dim Fobj As FileDialogSet Fobj = Application.FileDialog(cell.Value)With FobjSelect 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 = TrueIf .Show <> -1 Then Exit SubDim i As Integer, xArrReDim xArr(1 To .SelectedItems.Count)For i = 1 To .SelectedItems.CountxArr(i) = vbCrLf & i & ". " & .SelectedItems(i)Next iMsgBox "你选择的是：" & VBA.Join(xArr)End SelectEnd WithSet Fobj = NothingEnd Sub 打开按钮过程代码 Private Sub CommandButton1_Click() '打开文件Set cell = ActiveSheet.Range("D6")FileDialogOpen cellSet cell = NothingEnd Sub选择文件按钮代码Private Sub CommandButton2_Click()Set cell = ActiveSheet.Range("D4")FileDialogOpen cellSet cell = NothingEnd Sub 所有用到FielDialog属性都在代码中体现，仔细看会发现每个用处都十分必要。 .DialogType '判断FileDialog类型.AllowMultiSelect = False '设置单选.SelectedItems.Count'返回选择文件总数.SelectedItems(i)'返回单项文件路径和文件名有兴趣把属性图中的内容记住，使用就更加方便了。 |
|
|
