zu dem Thema Excel und Powerpoint gibt es eine ganz Reihe von Beiträgen aber ich habe leider nicht das gefunden was ich brauche.
Ich möchte gern aus einer Excel Tabelle mehere Powerpoint Dokumente nacheinander öffnen, die verknüpfungen aktualisieren und dann wieder schließen.
Aktuelle bin ich dabei soweit:
Private Declare
Sub Sleep Lib "kernel32.dll" ( _
ByVal dwMilliseconds As Long)
Declare
Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal _
lpDirectory As String, _
ByVal lpnShowCmd As Long) As Long
Sub ppt()
Dim i As Integer, wkbQ As Workbook, wksQ As Worksheet, wksZ As Worksheet
'dann die Datei öffnen
For i = 47 To 60
Application.DisplayAlerts = False
ShellExecute 0, "open", Sheets("Schalter").Cells(i, 9), "", "", 3 'hier steht der Pfad drinn
'Verknüpfungen aktualisieren
Dim intIndex As Integer 'dient zum warten bis Aktualisierung rum ist
For intIndex = 1 To 100
Sleep 10
DoEvents
Next
' msgbox ("aktualisiert")
ShellExecute 0, "close", Sheets("Schalter").Cells(i, 9), "", "", 3
Next i
End Sub
Wenn es zudem noch möglich wäre, sollte eine warnmeldung erscheinen wenn die Excel Datei zu der Verknüpft
ist, nicht im gleichen Ordner ist wie die ppt. (aber das wäre nur das i Tüpfelchen).
Würde mich sehr freuen, wenn mir da jemand helfen könnte.
Vielen Dank
Jens