无法从 Excel 打开 Powerpoint 演示文稿

Question

我有一个文件在我的运行 Win XP、Excel 2003 的电脑上运行良好。PowerPoint 驻留在 Office 11 中。需要转到另一台 PC 相同的文件，但 PowerPoint 在 Office 10 中。我的文件“工作”很好，但会无法在所有 PC 上打开 PPT 演示文稿。 所以我需要一种不同的方式来打开它们。 我正在使用 Shell 调用打开，这很好。 我从 Ron DeBruin 那里找到了一个片段，这种片段很有效。 不过，它在公开场合部分失败了。 这是重要的代码。 PowerPoint 确实作为应用程序打开，但文件本身不在应用程序中打开。 我收到一个自动化错误，并在同一个弹出窗口中出现Unspecified Error 。 Excel 是否有更好的方法来查找 PowerPoint 所在的位置并以这种方式打开它？

    Public Sub Start_Viewer(ProgFile)

      Dim objPPT As Object
      Dim PrgName As String

      Set objPPT = CreateObject("PowerPoint.Application")
      objPPT.Visible = True

      PrgName = Mid(ProgFile, InStrRev(ProgFile, "\") + 1, InStrRev(ProgFile, ".") - InStrRev(ProgFile, "\") - 1)

      objPPT.Presentations.Open FileName:="S:\Lab\EHS\SAFETY\" & PrgName & "\PPT\" & PrgName & ".ppt"
      Workbooks.Open FileName:="S:\Lab\EHS\SAFETY\" & PrgName & "\Quizzes\" & PrgName & " Quiz.xls"

    End Sub

objPPT.Presentations.Open是失败的部分。 我在打开后添加了FileName，因为我在某处的另一篇文章中看到了它。 不管有没有那个，它都会失败。

仅适用于我的 PC 的原始工作代码。

      Public Sub Start_Viewer(ProgFile)

      '  This works for PowerPoint in this location only and on my work PC
      '  It fails on other pcs at work when PowerPoint resides elsewhere.

      '  ProgFile is the path passed from the calling subroutine _
         and opens the PowwerPoint Presentation for that file
      RetVal = Shell("C:\Program Files\Microsoft Office\Office\PPTView.exe " & Chr(34) & ProgFile & Chr(34), 1)

      Watched = MsgBox("Have you finished the presentation?", vbYesNo, "Verify Presentation Watched")
        Select Case 6
                 ' PrgName is JUST the extracted FileName (no path no extension) to give me folder names
                 PrgName = Mid(ProgFile, InStrRev(ProgFile, "\") + 1, InStrRev(ProgFile, ".") - InStrRev(ProgFile, "\") - 1)
                 Workbooks.Open FileName:="S:\Lab\EHS\SAFETY\" & PrgName & "\Quizzes\" & PrgName & "Quiz.xls"
               Case 7
                 Exit Sub
        End Select
      End Sub

Answer 1

您可能需要检查EzPaste以自动执行从 Excel 粘贴到 PPT 的过程