订单班是什么意思:excel VBA打开word文件和ppt文件
来源:百度文库 编辑:九乡新闻网 时间:2024/07/07 11:15:06
一、打开word文件代码:
Set wo = CreateObject("Word.Application")
wo.Documents.Open ThisWorkbook.Path & "\流程.doc"
wo.Visible = True
二、打开ppt文件代码:
方法1:
Set wo = CreateObject("Powerpoint.Application")
wo.Visible = True
wo.Presentations.Open ThisWorkbook.Path & filename
方法2:
Sub dd()
Dim filepath$, filename$
filepath = Chr(34) & ThisWorkbook.Path & filename & Chr(34)
Shell "POWERPNT.EXE " & filepath
End Sub
附:双击打开PPS文件,在演示完后退出PPS时并没有PowerPoint主窗口保留,但在Excel中使用VBA打开的PPS文件,在演示完PPS退出后,PowerPoint主窗口仍然打开。
这里使用一个循环判断演示窗口是否存在,加上错误捕捉程序来处理上面这个问题。
Private Sub CommandButton1_Click()
Dim wo As Object
Dim app As Object
' 创建PowerPoint应用实例
Set app = CreateObject("Powerpoint.Application")
' 使PowerPoint可见
app.Visible = True
' 打开PPS文件
Set wo = app.Presentations.Open(ThisWorkbook.Path & "\a.pps")
' 当PPS演示结束时,wo对象的SlideShowWindow不存在,捕捉到错误
On Error GoTo errHandle
' PPS演示时全屏
Do While wo.SlideShowWindow.isFullScreen
DoEvents
Loop
errHandle:
' 退出PowerPoint
app.Quit
Set app = Nothing
Set wo = Nothing
End Sub
excel VBA打开word文件和ppt文件
页面打开word excel,pdf文件
不打开EXCEL文件的前提下读取数据的方法之一_VBA教程、excel VBA编程、VBA...
将ppt文件转换为word文件
打开word文件自动打印
打开word文件自动打印
Word文档转成ppt文件
如何打开损坏的Word文件
yy将ppt文件转换为word文件
将ppt文件转换为word文件------ 种子张
将ppt文件转换为word文件---- 种子张
将ppt文件转换为word文件2
将ppt文件转换为word文件55
将ppt文件转换为word文件的软件
将ppt文件转换为word文件1
怎样将word、excel文件转换为PDF文件
如何将word、excel文件转换为PDF文件
"WORD无法打开文档 用户没有访问权"问题解决和怎样“用文本恢复转换器打开文件”? word文件无法读取此文档,文档可能已损坏
"WORD无法打开文档 用户没有访问权"问题解决和怎样“用文本恢复转换器打开文件”? word文件无法读取此文档,文档可能已损坏
VBA 读写文件详细参数
Excel动画教程:一次打开多个Excel文件
找回断电、死机前未储存的Word和Excel文件
找回断电、死机前未储存的Word和Excel文件
怎样将PPT文件转换为Word文档