如何实现：编写vba d出文件对话框，并打开选中文件？

Excel

开发人员参考

Application.Dialogs

属性

返回一个

Dialogs

集合，该集合表示所有内置对话框的。只读。

语法

表达式.Dialogs

表达式

一个代表

Application

对象的变量。

示例

本示例显示“文件”菜单的“打开”对话框。

Visual

Basic

for

Applications

Application.Dialogs(xlDialogOpen).Show

搞一个事件引发Application.Dialogs(xlDialogOpen).Show

就会

d出文件对话框

至于打开文件，要看你是这么打开的

引用控件。VBA是VisualBasic的一种宏语言，是微软开发出来在其桌面应用程序中执行通用的自动化任务的编程语言，打开PPT出现d窗是引用控件的问题，将PPT中的使用vba程序的控件去掉即可。VBA主要能用来扩展Windows的应用程序功能，特别是MicrosoftOffice软件。

一、打开word文件代码：Set wo = CreateObject("Word.Application")\x0d\x0awo.Documents.Open ThisWorkbook.Path &"\流程.doc"\x0d\x0awo.Visible = True\x0d\x0a二、打开ppt文件代码：方法1：\x0d\x0aSet wo = CreateObject("Powerpoint.Application")\x0d\x0awo.Visible = True\x0d\x0awo.Presentations.Open ThisWorkbook.Path &filename方法2：Sub dd()Dim filepath$, filename$\x0d\x0afilepath = Chr(34) &ThisWorkbook.Path &filename &Chr(34)\x0d\x0aShell "POWERPNT.EXE " &filepathEnd Sub附：双击打开PPS文件，在演示完后退出PPS时并没有PowerPoint主窗口保留，但在Excel中使用VBA打开的PPS文件，在演示完PPS退出后，PowerPoint主窗口仍然打开。\x0d\x0a这里使用一个循环判断演示窗口是否存在，加上错误捕捉程序来处理上面这个问题。\x0d\x0aPrivateSub CommandButton1_Click()\x0d\x0aDim wo AsObject Dim app AsObject\x0d\x0a' 创建PowerPoint应用实例\x0d\x0aSet app = CreateObject("Powerpoint.Application")\x0d\x0a' 使PowerPoint可见\x0d\x0aapp.Visible = True ' 打开PPS文件\x0d\x0aSet wo = app.Presentations.Open(ThisWorkbook.Path &"\a.pps")\x0d\x0a' 当PPS演示结束时，wo对象的SlideShowWindow不存在，捕捉到错误\x0d\x0aOnErrorGoTo errHandle\x0d\x0a' PPS演示时全屏

---