程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> .NET網頁編程 >> ASP.NET >> ASP.NET基礎 >> ASP.NET中實現導出ppt文件數據的實例分享

ASP.NET中實現導出ppt文件數據的實例分享

編輯:ASP.NET基礎

 前一段時間因工作需要,需增加ppt數據的導出下載。發現網絡上這方面資料並不是很多,零零散散地找到一些相關的資料,經過自己的試驗,終於完成相關功能。應博友要求,在此分享下我的經驗,不好之處還望大家多多指出。

  在做之前,首先需要添加相關引用Microsoft.Office.Interop.PowerPoint.dll。

using PowerPoint = Microsoft.Office.Interop.PowerPoint;

  操作PPT代碼如下:

復制代碼
 

    public void createPPT()
    {
      try
      {
        //ppt存儲路徑
        string path = string.Format("{0}/{1}.ppt", Server.MapPath("."), DateTime.Now.Ticks.ToString());
        //ppt引用的模版路徑
        string MyTemplateFile = "d:\\test.pot";
        PowerPoint.ApplicationClass MyApp;
        PowerPoint.Presentations MyPresSet;
        PowerPoint._Presentation MyPres;
        PowerPoint.Shape objShape;
        PowerPoint.Slides objSlides;
        PowerPoint._Slide MySlide;
        PowerPoint.TextRange objTextRng;
        PowerPoint.Table table = null;
        MyApp = new PowerPoint.ApplicationClass();
        //如果已存在,則刪除
        if (File.Exists((string)path))
        {
          File.Delete((string)path);
        }
        Object Nothing = Missing.Value;
        //套用模版
        MyPres = MyApp.Presentations.Open(MyTemplateFile, MsoTriState.msoFalse, MsoTriState.msoFalse, MsoTriState.msoFalse);
        MyPresSet = MyApp.Presentations;
        objSlides = MyPres.Slides;

        //創建第一張PPT ppLayoutTitle指定模板首頁
        MySlide = objSlides.Add(1, PowerPoint.PpSlideLayout.ppLayoutTitle);
        //添加一行文字(left:10,top:110,width:700,height:400)
        objTextRng = MySlide.Shapes.AddLabel(MsoTextOrientation.msoTextOrientationHorizontal, 10, 110, 700, 400).TextFrame.TextRange;
        objTextRng.Text = " PPT";
        objTextRng.Font.Color.RGB = 0x66CCFF; //設置字的顏色
        objTextRng.Font.Size = 42; //字號
        
        //創建第二張PPT ppLayoutBlank指定無標題頁
        MySlide = objSlides.Add(2, PowerPoint.PpSlideLayout.ppLayoutBlank);
        //插入圖片
        MySlide.Shapes.AddPicture("1.jpg", MsoTriState.msoFalse, MsoTriState.msoTrue, 110, 140, 500, 300);
        
        //創建第三張PPT ppLayoutTitleOnly指定僅有標題頁
        MySlide = objSlides.Add(3, PowerPoint.PpSlideLayout.ppLayoutTitleOnly);
        objTextRng = MySlide.Shapes[1].TextFrame.TextRange;
        objTextRng.Text = "目錄";
        objTextRng.Font.Size = 32;
        //插入圖片
        MySlide.Shapes.AddPicture("1.jpg", MsoTriState.msoFalse, MsoTriState.msoTrue, 110, 140, 500, 300);
        
        //創建第四張PPT
        MySlide = objSlides.Add(3, PowerPoint.PpSlideLayout.ppLayoutBlank);
        //添加一個表格
        objShape = MySlide.Shapes.AddTable(3, 3, 105, 150, 400, 100);
        table = objShape.Table;
        for (int i = 1; i <= table.Rows.Count; i++)
        {
          for (int j = 1; j <= table.Columns.Count; j++)
          {
            table.Cell(i, j).Shape.TextFrame.TextRange.Font.Size = 12;
            table.Cell(i, j).Shape.TextFrame.TextRange.Text = string.Format("[{0},{1}]", i, j);
          }
        }
        
        
        //保存格式
        PowerPoint.PpSaveAsFileType format = PowerPoint.PpSaveAsFileType.ppSaveAsDefault;
        //內容保存
        MyPres.SaveAs(path, format, Microsoft.Office.Core.MsoTriState.msoFalse);
        //關閉excelDoc文檔對象
        MyPres.Close();
        //關閉excelApp組件對象
        MyApp.Quit();
      }

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved