个文件的名称为:" & Application.RecentFiles(3).Name Р Application.RecentFiles(3).Open Р End Sub Р 示例 01-10:打开文件(FindFile 方法) Р Sub FindFileOpen() Р On Error Resume Next Р MsgBox "请打开文件", vbOKOnly + vbInformation, "打开文件" Р If Not Application.FindFile Then Р MsgBox "文件未找到", vbOKOnly + vbInformation, "打开失败" Р End If Р End Sub Р 示例说明:本示例将显示“打开”文件对话框,若用户未打开文件(即点击“取消”按钮),则会显Р 示“打开失败”信息框。示例中使用了 FindFile 方法,用来显示“打开”对话框并让用户打开一Р 个文件。如果成功打开一个新文件,则该值为 True。如果用户取消了操作并退出该对话框,Р 则该值为 False。Р 示例 01-11:文件对话框操作(FileDialog 属性) Р Sub UseFileDialogOpen() Р Dim lngCount As Long Р '开启"打开文件"对话框Р With Application.FileDialog(msoFileDialogOpen) Р .AllowMultiSelect = True Р .Show Р '显示所选的每个文件的路径Р For lngCount = 1 To .SelectedItems.Count Р MsgBox .SelectedItems(lngCount) Р Next lngCount Р 2006 年 9 月 9 日- 3 - http://fanjy.blog.
全文预览
