一小段代码，请来看看
Private oPpt As PowerPoint.Application
Private ppt As PowerPoint.Presentation
Set oPpt = CreateObject("PowerPoint.Application")
Set ppt = oPpt.Presentations.Open("c:\a.ppt")
怎么运行到最后一句Set ppt = oPpt.Presentations.Open("c:\a.ppt")抱错啊
错误代码：
Run_time error '-2147188160(80048240)'
Presentation(unknown member):Invalid request.The PowerPoint
Frame window does not exist.
我用类似的方法打开word，excel没有问题，请问该如何打开ppt文档呢？
问题点数：20、回复次数：7Top
1 楼of123（）回复于 2005-09-08 11:14:03 得分 10
' Open PowerPoint
Dim strPowerPointFile As String
Dim pptobj As PowerPoint.Application
Set pptobj = New PowerPoint.Application
pptobj.Visible = True
strPowerPointFile = "c:\a.ppt"
pptobj.Presentations.Open(strPowerPointFile)
Top
2 楼bbhere（俺是二等小兵(baby,i'll be right here waiting for you)）回复于 2005-09-08 11:21:08 得分 2
有星星的就是一针见血Top
3 楼of123（）回复于 2005-09-08 11:21:13 得分 2
or:
'......
Set pptobj = New PowerPoint.Application
pptobj.Visible = True
Set pptobj = New PowerPoint.Application
pptobj.Visible = True
Dim ppt As PowerPoint.Presentation
Set ppt = oPpt.Presentations.Open("c:\a.ppt")
' Close PowerPoint
pptobj.Quit
Set pptobj = Nothing
Top
4 楼crycoming（瞎编）回复于 2005-09-08 11:23:05 得分 2
Set oPpt = CreateObject("PowerPoint.Application")
oPPT.Visible = msoTrueTop
5 楼crycoming（瞎编）回复于 2005-09-08 11:24:25 得分 2
晚了Top
6 楼vansoft（Vansoft Workroom）回复于 2005-09-08 11:35:05 得分 2
PPT很特別，必須得顯示運行，而其他的可以隱藏。Top
7 楼loki2k（loki）回复于 2005-09-08 14:23:03 得分 0
靠，那一定要显示才能了，我也试了，非常感谢大家
可是他奶奶的我不希望他显示啊
试了下先显示再打开然后隐藏，奶奶的不行，提示不能隐藏
如何搞？Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
