Also hier noch mal ganz genau:
Sub dateiAuslesen()
Dim appPPTalt As Object, appPPTneu As Object
Set appPPTalt = CreateObject("PowerPoint.Application")
Set appPPTneu = CreateObject("PowerPoint.Application")
appPPTalt.Visible = True
appPPTneu.Visible = True
Dim dateiName As String
dateiName = "C:\...\MusterProfile_Feb2011(alt).ppt"
appPPTalt.Presentations.Open "C:\...\MusterProfile_Feb2011(alt).ppt" 'FUNKTIONIERT
appPPTalt.Presentations.Open dateiName 'FUNKTIONIERT NICHT
appPPTalt.Presentations.Open (dateiName) 'FUNKTIONIERT NICHT
appPPTalt.Presentations.Open (Chr(34) & dateiName & Chr(34)) 'FUNKTIONIERT NICHT
appPPTalt.Quit
End Sub
|