主题：关于PPT报表

有点甜，第一句中的用代码实现，能给个简单的例子吗？谢谢！http://bbs.csdn.net/topics/391937345 这个参考是C#代码，不知道怎么转成狐表的代码，麻烦有点甜 给个简单的例子，谢谢！

参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=77213&skin=0

 

c#转vb.net，参考 http://converter.telerik.com/

 

感谢！今晚试试

C#代码：

Microsoft.Office.Interop.PowerPoint.Application PPT = new Microsoft.Office.Interop.PowerPoint.Application();//创建PPT应用
Microsoft.Office.Interop.PowerPoint.Presentation MyPres = null;//PPT应用的实例
Microsoft.Office.Interop.PowerPoint.Slide MySlide = null;//PPT中的幻灯片
MyPres = PPT.Presentations.Open("D:\test.pptx", MsoTriState.msoFalse, MsoTriState.msoFalse, MsoTriState.msoTrue);//此处将一个PPT实例给了MyPres

MySlide = MyPres.Slides.Add(1, Microsoft.Office.Interop.PowerPoint.PpSlideLayout.ppLayoutBlank);//像PPT实例中，添加一个空白页，位置是“第一页”

 

在线转换成的VB代码：

Dim PPT As New Microsoft.Office.Interop.PowerPoint.Application()

'创建PPT应用
Dim MyPres As Microsoft.Office.Interop.PowerPoint.Presentation = Nothing

'PPT应用的实例
Dim MySlide As Microsoft.Office.Interop.PowerPoint.Slide = Nothing 'PPT中的幻灯片

MyPres = PPT.Presentations.Open("D:" & vbTab & "est.pptx", MsoTriState.msoFalse, MsoTriState.msoFalse, MsoTriState.msoTrue)

'此处将一个PPT实例给了MyPres
MySlide = MyPres.Slides.Add(1, Microsoft.Office.Interop.PowerPoint.PpSlideLayout.ppLayoutBlank)
'像PPT实例中，添加一个空白页，位置是“第一页”

 

在命令窗口中执行 报错 如下截图

 

此主题相关图片如下：qq图片20171015233021.png

 

请问是这错误是什么意思呢？

Microsoft.Office.Core.MsoTriState.msoFalse

Dim PPT As New Microsoft.Office.Interop.PowerPoint.Application()
'创建PPT应用
Dim MyPres As Microsoft.Office.Interop.PowerPoint.Presentation = Nothing
'PPT应用的实例
Dim MySlide As Microsoft.Office.Interop.PowerPoint.Slide = Nothing 'PPT中的幻灯片
MyPres = PPT.Presentations.Open("D:" & vbTab & "est.pptx", Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoTrue)
'此处将一个PPT实例给了MyPres
MySlide = MyPres.Slides.Add(1, Microsoft.Office.Interop.PowerPoint.PpSlideLayout.ppLayoutBlank)
'像PPT实例中,添加一个空白页,位置是"第一页"

 

添加上去后，提示如下图错误

 

此主题相关图片如下：qq图片20171016101224.png

你的路径问题吧？
 
MyPres = PPT.Presentations.Open("D:\est.pptx", Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoTrue)

路径是 直接C# 那直接转换 过来的，原路径 “D:\TEST.PPTX”
此主题相关图片如下：qq图片20171016105051.png

改成

 

MyPres = PPT.Presentations.Open("D:\test.pptx", 0,0,0)