Excel VBA Error 467 beim Versuch, eine PowerPoint-Präsentation zu öffnen

Question

Ziel des Codes: Wenn PowerPoint geöffnet ist und die gesuchte Präsentation geöffnet ist, dann aktualisieren Sie es. Wenn die Präsentation geschlossen ist, öffnen Sie sie. Falls PowerPoint geschlossen ist, erstellen Sie eine neue Instanz.

Fehler: nach mehreren Benutzer haben es laufen auf mulitple Computern in den letzten 2 Wochen, heute einer des Benutzers erhält die folgende Fehlermeldung:

Laufzeitfehler 467: Die Remote-Server-Maschine existiert nicht oder ist nicht verfügbar

Leitungscode highlightned auf den Debug-Modus:

Set ppPres = ppProgram.Presentations.Item(i) 

entsprechender Abschnitt des Modulcode:

Public Sub UpdatePowerPoint(PowerPointFile) 

Dim ppProgram       As PowerPoint.Application 
Dim ppPres        As PowerPoint.Presentation 
Dim ppFullPath       As String 
Dim ppName        As String 
Dim activeSlide       As PowerPoint.Slide 

Dim cht         As Excel.ChartObject 
Dim myShape        As Object 
Dim myChart        As Object 
Dim SlideNum, GPLRank     As Integer 
Dim ShapeNum       As Integer 
Dim shapeStageStat      As Shape 

On Error Resume Next 
Set ppProgram = GetObject(, "PowerPoint.Application") 
On Error GoTo 0 

ppFullPath = PowerPointFile 
PPT_Export_Success = True 

' check if PowerPoint instance is open 
If ppProgram Is Nothing Then 
    Set ppProgram = New PowerPoint.Application 
    i = 1 
Else 
    If ppProgram.Presentations.count > 0 Then 
     ppName = Mid(ppFullPath, InStrRev(ppFullPath, "\") + 1, Len(ppFullPath)) 
     i = 1 
     ppCount = ppProgram.Presentations.count 
     Do Until i = ppCount + 1 
      If ppProgram.Presentations.Item(i).Name = ppName Then 
       Set ppPres = ppProgram.Presentations.Item(i) 
       GoTo OnePager_Pres_Found 
      Else 
       i = i + 1 
      End If 
     Loop 
    End If 
End If 

ppProgram.Presentations.Open Filename:=PowerPointFile 

' *** Getting the ERROR at the line below *** 
Set ppPres = ppProgram.Presentations.Item(i) 

OnePager_Pres_Found: 
ppPres.Windows(1).Activate ' activate the One-Pager Presentation in case you have several open, and the One_pager is currently not the app "on-focus" 

' --- Added Class script to allow PowerPoint ScreenUpdating set to FALSE --- 
Dim myClass_PPT       As Class_PPT 

Set myClass_PPT = New Class_PPT 
myClass_PPT.ScreenUpdating = False 

' loop through all PowerPoint Slides, and copy all Chart objects from Excel 
For ProjectCounter = 0 To NumberofProjectShts 
    ' copying charts, shapes and other objects 

Next ' ProjectCounter = 0 To NumberofProjectShts 

AppActivate ("Microsoft PowerPoint") 
Set activeSlide = Nothing 
Set ppPres = Nothing 
Set ppProgram = Nothing 

End Sub 

Answer 1

Ihre Code - unter extrahieren - sieht ein wenig seltsam für mich:

' check if PowerPoint instance is open 
If ppProgram Is Nothing Then 
    Set ppProgram = New PowerPoint.Application 
    i = 1 
Else 
    If ppProgram.Presentations.count > 0 Then 
     ppName = Mid(ppFullPath, InStrRev(ppFullPath, "\") + 1, Len(ppFullPath)) 
     i = 1 
     ppCount = ppProgram.Presentations.count 
     Do Until i = ppCount + 1 
      If ppProgram.Presentations.Item(i).Name = ppName Then 
       Set ppPres = ppProgram.Presentations.Item(i) 
       GoTo OnePager_Pres_Found 
      Else 
       i = i + 1 
      End If 
     Loop 
    End If 
End If 

ppProgram.Presentations.Open Filename:=PowerPointFile 

' *** Getting the ERROR at the line below *** 
Set ppPres = ppProgram.Presentations.Item(i) 

OnePager_Pres_Found: 
ppPres.Windows(1).Activate ' activate the One-Pager Presentation in case you have several open, and the One_pager is currently not the app "on-focus" 

Im Fall ist Powerpoint mit einigen Präsentationen geöffnet, aber nicht die gewünschte (PowerPointFile), auf der Linie, die Ihnen den Fehler gibt, was versuchst du zu tun? (i ist gleich dem Presentations.count)

Ich denke, dass es falsch ist und durch die gerade geöffnete ActivePresentation ersetzt werden soll.

Vielleicht können Sie den Code ein wenig strukturieren, um eine klarere Struktur/Fallbehandlung zu haben.