Dzwebs.Net

撰写电脑技术杂文十余年

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

Admin | 2008-2-2 12:44:27 | 被阅次数 | 6319

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

代码如下:

 引用 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();
   }


网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231