分享一个用Access打开PPT演示文档的示例。
一、问题描述：
能使用ACCESS打开PPT演示文档吗？如何操作？
二、解决方法：
使用Application 对象(PowerPoint)，即可解决。具体代码如下：
使用通用函数：
Function OpenPPT(sFile As String, Optional bRunAsSlideShow As Boolean)
'Designed by Daniel PineaultDim oPPT As ObjectOn Error Resume NextSet oPPT = GetObject("PowerPoint.Application")If Err.Number <> 0 ThenErr.ClearSet oPPT = CreateObject("PowerPoint.Application")End IfOn Error GoTo Error_HandleroPPT.Visible = TrueoPPT.Presentations.Open (sFile) '打开对应的PPT演示文档If bRunAsSlideShow ThenoPPT.ActivePresentation.SlideShowSettings.RunError_Handler_Exit:On Error Resume NextSet oPPT = NothingExit FunctionError_Handler:MsgBox "The following error has occurred." & vbCrLf & vbCrLf & _"Error Number: " & Err.Number & vbCrLf & _"Error Source: OpenPPT" & vbCrLf & _"Error Description: " & Err.Description, _vbCritical, "An Error has Occurred!"Resume Error_Handler_ExitEnd Function
或者直接打开：
Private Sub Command0_Click()Dim oPPT As ObjectSet oPPT = CreateObject("PowerPoint.Application")oPPT.Visible = TrueoPPT.Presentations.Open "C:\Users\ZhiQiang.Li\Desktop\Arduino\程序设计基础PPT\IO口的高级应用.pptx"End Sub
三、演 示:
