读取SQL表数据保存到Word并将Word文档保存到服务器代码

Admin | 2008-2-2 12:44:27 | TrackRecord: 2099 Times | Tag标签:asp.net 打印本页

您当前所处的位置是:〖首页〗→【文章页】 本站共有16个图文教程栏目,请用心拜读!

本站提供经典的Excel公式函数实例,Word排版技巧,PPT教程;同时更兼有Flash,PowerPoint,数据库等技术文章。

代码如下:

 引用 Microsoft Word 11.0 Object Library
  public bool ExportWord( DataTable Table )
  {
   object Missing = System.Reflection.Missing.Value;
   int NumRows, NumColumns, rowIndex, colIndex;
   object FileName = Word文件名; //如:c:\tets.doc 
   Word.ApplicationClass wordApp = new Word.ApplicationClass();
   Word.Document myDoc = null;
   Word.Table oTable;
   rowIndex = 1;
   colIndex = 0;
   try
   {
    wordApp.Documents.Add(ref Missing,ref Missing,ref Missing, ref Missing);
    myDoc = wordApp.ActiveDocument;
    oTable = myDoc.Tables.Add(myDoc.Range(ref Missing, ref Missing),NumRows=Table.Rows.Count + 1, NumColumns=Table.Columns.Count,ref Missing,ref Missing);

    foreach(DataColumn Col in Table.Columns)
    {
     colIndex = colIndex + 1;
     oTable.Cell(1, colIndex).Range.InsertAfter(Col.ColumnName);
    }

    foreach(DataRow Row in Table.Rows)
    {
     rowIndex = rowIndex + 1;
     colIndex = 0;
     foreach(DataColumn Col in Table.Columns)
     {
      colIndex = colIndex + 1;
      oTable.Cell(rowIndex, colIndex).Range.InsertAfter(Row[Col.ColumnName].ToString());
     }
    }

    oTable.Borders.InsideLineStyle = Word.WdLineStyle.wdLineStyleDashDot;
    oTable.Borders.OutsideLineStyle = Word.WdLineStyle.wdLineStyleDot;
    wordApp.Visible = false;
   
    myDoc.SaveAs2000(ref FileName,ref Missing,ref Missing,ref Missing,ref Missing,ref Missing,ref Missing,ref Missing,ref Missing,ref Missing,ref Missing );
    
    return true;
   }
   catch
   {
    return false;
   }
   finally
   {
    myDoc.Close( ref Missing,ref Missing,ref Missing );
    System.Runtime.InteropServices.Marshal.ReleaseComObject( myDoc );
    myDoc = null;
    GC.Collect();
    wordApp.Quit( ref Missing,ref Missing, ref Missing );
    System.Runtime.InteropServices.Marshal.ReleaseComObject( wordApp );
    wordApp = null;
    GC.Collect();
   }



上一篇:读取Excel表格数据插入到SQL数据库代    下一篇:如何用.net打包自动安装数据库上篇

会员评论列表:
针对本篇文章或本站,请您发表个人的建议或批评!
FreeBoxPc

谷歌搜索 百度搜索 本站仅与内容具备一定的实用价值的原创网站交换友情链接,力争为大众做出更优质的服务!
All Rights Reserved版权所有 本站备案信息:滇ICP备11001339号-2 站长联系方式 Email:dzwebs@126.com