Vanuit powerpoint, macro starten in reeds geopend Excel bestand

[Len85]

Besten,

Om powerpoint na het openen van de 2de slide tijdens een slideshow een macro in Excel uit te voeren heb ik na uren zoeken (ik ben een beginner met VBA) in Powerpoint deze code gemaakt.

Sub OnSlideShowPageChange(ByVal SSW As SlideShowWindow)
    If SSW.View.CurrentShowPosition = 2 Then
             
      Dim XL As Object
      Set XL = CreateObject("Excel.Application")
      XL.Workbooks.Open ("G:\Bestand.xls")
      XL.Run "Macro1"

    End If
End Sub

Dit werkt (het Excel bestand wordt geopend en macro1 wordt uitgevoerd), maar dan moet het Excel bestand gesloten zijn en door niemand anders in gebruik zijn. Ik wil het Excel bestand al geopend hebben, bovenstaande code naar dat geopende bestand verwijzen en daarin Macro1 uitvoeren. Dit laatste krijg ik maar niet voor elkaar. Iemand enig idee?

Cheers.

 

[wampier]

Ik kan het jammer genoeg even niet testen, maar volgens mij moet zoiets kunnen:

Dim XL As Object
Set XL = CreateObject("Excel.Application")
XL.Run ("bestand.xls!macro1")

 

[Len85]

Thx voor je reactie, maar helaas werkt deze code (bij mij) niet. Wellicht toch verstandig om nog te testen, misschien ligt het ergens anders aan.
Anders toevallig nog meer ingevingen?

 

[wampier]

Set XL = GetObject(, "Excel.Application")

ipv createobject. even overheen gekeken, de run code werkt

 

[Len85]

Thx! Dat was het inderdaad. Het viel me wel op dat de naam van het Excel-bestand in ieder geval geen spatie en/of '-' mag bevatten.

Sub OnSlideShowPageChange(ByVal SSW As SlideShowWindow)
    If SSW.View.CurrentShowPosition = 2 Then

      Dim XL As Object
      Set XL = GetObject(, "Excel.Application")
      XL.Run ("Bestand.xls!Macro1")

    End If
End Sub

 

[Len85]

--