edwin13387
Gebruiker
- Lid geworden
- 12 jun 2015
- Berichten
- 46
Goede morgen,
Even geleden heb ik een vraag gesteld over het via VBA updaten van een powerpoint.
Uiteindelijk is deze code er uit gekomen:
Nu loopt het nog steeds vast, en dit zit hem in hoe powerpoint update denk ik.
Voor elke link wordt het bestand geopend, de data overgehaald en weer gesloten.
Per update vind dit dus +/- 15 keer plaats.
Echter enkel bij de 1e wordt gekeken of het bestand read-only is.
Ik vroeg me dus af of er een code is voor het updaten van 1 link, of updaten zonder het workbook conbtinue te sluiten.
Als ik hem in deze code niet sluit, komt er een error dat het bestand al open is.
mvg
Edwin
Even geleden heb ik een vraag gesteld over het via VBA updaten van een powerpoint.
Uiteindelijk is deze code er uit gekomen:
Code:
Sub OnSlideShowPageChange()
If elapsed = 0 Then elapsed = Timer
'NOTE this is 15 SECONDS to test for 15 minutes use 900
If Timer > elapsed + 10 Then
elapsed = Timer
Call UpdateLinks
End If
End Sub
Sub OnSlideShowTerminate()
elapsed = 0
End Sub
Sub UpdateLinks()
Dim xlApp As Object
Dim xlWorkBook As Object
Set xlApp = CreateObject("Excel.Application")
If xlApp.workbooks.Open("I:\OEE\testbestand\presentatie\test.xlsx").ReadOnly = True Then
xlApp.workbooks.Close
Exit Sub
Else
With ActivePresentation
.UpdateLinks
End With
End If
xlApp.workbooks.Close
End Sub
Nu loopt het nog steeds vast, en dit zit hem in hoe powerpoint update denk ik.
Voor elke link wordt het bestand geopend, de data overgehaald en weer gesloten.
Per update vind dit dus +/- 15 keer plaats.
Echter enkel bij de 1e wordt gekeken of het bestand read-only is.
Ik vroeg me dus af of er een code is voor het updaten van 1 link, of updaten zonder het workbook conbtinue te sluiten.
Als ik hem in deze code niet sluit, komt er een error dat het bestand al open is.
mvg
Edwin