读取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();
}
会员评论列表:

正在加载数据,请稍后……
针对本篇文章或本站,请您发表个人的建议或批评!