古力娜扎吻戏视频,杨幂视频是不是真的,免费国产美女视频永久免费

excel中如何通過VBA打開word文件和ppt文件？

JT_man >《VBA》

2010.05.05

關(guān)注

一、打開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時(shí)并沒有PowerPoint主窗口保留，但在Excel中使用VBA打開的PPS文件，在演示完P(guān)PS退出后，PowerPoint主窗口仍然打開。

　　這里使用一個(gè)循環(huán)判斷演示窗口是否存在，加上錯誤捕捉程序來處理上面這個(gè)問題。

Private Sub CommandButton1_Click()
    Dim wo As Object
    Dim app As Object

    ' 創(chuàng)建PowerPoint應(yīng)用實(shí)例
    Set app = CreateObject("Powerpoint.Application")
    ' 使PowerPoint可見
    app.Visible = True
    ' 打開PPS文件
    Set wo = app.Presentations.Open(ThisWorkbook.Path & "\a.pps")

    ' 當(dāng)PPS演示結(jié)束時(shí)，wo對象的SlideShowWindow不存在，捕捉到錯誤
    On Error GoTo errHandle
    ' PPS演示時(shí)全屏
    Do While wo.SlideShowWindow.isFullScreen
        DoEvents
    Loop
errHandle:
    ' 退出PowerPoint
    app.Quit
    Set app = Nothing
    Set wo = Nothing
End Sub

本站僅提供存儲服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請點(diǎn)擊舉報(bào)。

打開APP，閱讀全文并永久保存查看更多類似文章

巧將PPT幻燈片轉(zhuǎn)換為SWF動畫方法

PPt經(jīng)常用的115個(gè)技巧【二】--- 祝子的日志 - 網(wǎng)易博客

將pps格式文件轉(zhuǎn)換為ppt的方法

PPT動畫教程35：保存自動播放演示文稿

引用如何從pps中提取聲音文件 - 成靖的日志 - 網(wǎng)易博客

PPS轉(zhuǎn)PPT：PowerPoint Slide Show(PPS)轉(zhuǎn)換為可編輯的PPT文件的方法

更多類似文章 >>

国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看