PDA

Vollständige Version anzeigen : Fehler bei Öffnen von ppt aus Excel aus


Olaf80
12.09.2011, 15:41
Aloha
Ich habe inzwischen das hier fabriziert:

Sub AufrufausExcel()

Dim oExcel As Excel.Application
Dim oPPT As powerPoint.Application

Set oPPT = New powerPoint.Application
oPPT.Visible = True
oPPT.Presentation.Open "C:\Pfadangabe\Dateiname.Dateiendung"

oPPT.Close
oExcel.Close

Set oExcel = Nothing
Set oPPT = Nothing

End Sub

Kann mir bitte Jemand sagen wo der Fehler liegt???

EarlFred
12.09.2011, 16:25
Hallo,

wo der Fehler liegt
Bitte Fehlermeldung / Fehlernummer sowie, wenn angezeigt, die fehlerhafte Zeile angeben!
Welchen der Fehler meinst Du überhaupt? Es hagelt nur so davon in den paar Zeilen Code....

Verweis auf PowerPoint-Bibliothek gesetzt?
oPPT.Presentations.Open "C:\Pfadangabe\Dateiname.Dateiendung"
oPPT.Quit
oExcel.Close
oExcel ist Nothing, da kein Objekt zugewiesen. Also ist die Methode CLOSE nicht anwendbar. Excel kennt Close zudem nicht für die Application.

Sub AufrufausExcel()
Dim oPPT As PowerPoint.Application

Set oPPT = New PowerPoint.Application
oPPT.Visible = True
oPPT.Presentations.Open "C:\Pfadangabe\Dateiname.Dateiendung"
oPPT.Quit

Set oPPT = Nothing
End Sub

Grüße
EarlFred

Olaf80
12.09.2011, 16:31
Das Quit war es anstelle des Close.
Vielen Dank!