標題: [發問] 如何在Excel巨集中關閉PPT? [打印本頁]

---

作者: ocean5757    時間: 2016-2-24 11:17     標題: 如何在Excel巨集中關閉PPT?

透過各位高手的經驗，我已經知道如何在Excel巨集中開啟PPT，如下：
Sub openppt()
    Set file = GetObject("C:\file.ppt")
    file.Application.Visible = True
End Sub

請問，如果要用Excel巨集去關閉開啟中的PPT，有辦法嗎？

---

作者: stillfish00    時間: 2016-2-24 15:48

回復 1# ocean5757

1. Sub Test()
   
2.     Dim oApp As Object: Set oApp = CreateObject("PowerPoint.Application")
   
3.     Dim file As Object
   
4.    
   
5.     'open
   
6.     Set file = oApp.Presentations.Open("C:\file.ppt")
   
7.    
   
8.     'close
   
9.     If oApp.Presentations.Count > 1 Then
   
10.         file.Close  'close presentation
    
11.     Else
    
12.         oApp.Quit   'close power point application
    
13.     End If   
    
14. End Sub

複製代碼

---

作者: ocean5757    時間: 2016-2-26 09:19

回復 2# stillfish00

stillfish00 大大，謝謝您的分享.
不過我用 F8 逐行執行, run 到這行：Set file = oApp.Presentations.Open("C:\file.ppt")
出現錯誤訊息：'Open方法'('Presentations'物件)失敗

---

作者: stillfish00    時間: 2016-2-26 13:38

回復 3# ocean5757
不知道，在我電腦是可以正常開啟關閉的。
也許你的 powerpoint 檔案損毀?
重新新建一個來試試?

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)