用Access打开mdb（用Access打开文件不在路径上）

用Access打开mdb，原文标题：用Access打开PPT。

分享一个用Access打开PPT演示文档的示例。

一、问题描述：

能使用ACCESS打开PPT演示文档吗？如何操作？

二、解决方法：

使用Application 对象(PowerPoint)，即可解决。具体代码如下：

使用通用函数：

Function OpenPPT(sFile As String, Optional bRunAsSlideShow As Boolean)

'Designed by Daniel Pineault
Dim oPPT As Object
On Error Resume Next
Set oPPT = GetObject("PowerPoint.Application")
If Err.Number <> 0 Then
Err.Clear
Set oPPT = CreateObject("PowerPoint.Application")
End If
On Error GoTo Error_Handler
oPPT.Visible = True
oPPT.Presentations.Open (sFile) '打开对应的PPT演示文档
If bRunAsSlideShow Then oPPT.ActivePresentation.SlideShowSettings.Run
Error_Handler_Exit:
On Error Resume Next
Set oPPT = Nothing
Exit Function
Error_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_Exit
End Function

或者直接打开：

Private Sub Command0_Click()
Dim oPPT As Object
Set oPPT = CreateObject("PowerPoint.Application")
oPPT.Visible = True
oPPT.Presentations.Open "C:UsersZhiQiang.LiDesktopArduino程序设计基础PPTIO口的高级应用.pptx"
End Sub

三、演 示:

四、示例下载：http://www.accessoft.com/article-show.asp?id=19957 里下载示例。

随机文章