导出Word代码,Asp.Net代码库,德仔网

代码语言
代码分类
【Asp.Net】导出Word
作者:CSDN / 发布于2012/1/11/ 644
<div>public static void ExportToWord(DataGridView dgv, ProgressBar progress, SaveFileDialog savefile)
{
Microsoft.Office.Interop.Word.Document WordDoc = new Microsoft.Office.Interop.Word.Document();
Microsoft.Office.Interop.Word.Table WordTable;
object WordObj;
if (dgv.Rows.Count == 0)
{
return;
}
else
{
savefile.AddExtension = true;
savefile.DefaultExt = ".doc";
savefile.CreatePrompt = true;
savefile.Title = "导出文件保存路径";
savefile.Filter = "Word files (*.doc)|*.doc";
if (savefile.ShowDialog() == DialogResult.OK)
{
progress.Visible = true;
object path = savefile.FileName;
WordObj = System.Reflection.Missing.Value;
//建立word对象
Microsoft.Office.Interop.Word.Application word = new Microsoft.Office.Interop.Word.Application();
WordDoc = word.Documents.Add(ref WordObj, ref WordObj, ref WordObj, ref WordObj);
//建立表格
//将数据生成word表格文件
WordTable = WordDoc.Tables.Add(WordDoc.Paragraphs.Last.Range, dgv.RowCount, dgv.ColumnCount, ref WordObj, ref WordObj);
WordTable.Columns.SetWidth(50, Microsoft.Office.Interop.Word.WdRulerStyle.wdAdjustNone);

try
{
for (int i = 0; i < dgv.Columns.Count; i++)//设置标题
{
WordTable.Cell(0, i + 1).Range.Text = dgv.Columns[i].HeaderText;
WordTable.Cell(0, i + 1).Range.Font.Size = 5;

}
for (int i = 1; i < dgv.Rows.Count; i++)//填充数据
{
for (int j = 0; j < dgv.Columns.Count; j++)
{
WordTable.Cell(i + 1, j + 1).Range.Text = dgv[j, i - 1].Value.ToString();
WordTable.Cell(i+1, j + 1).Range.Font.Size = 5;
}
progress.Value += 100 / dgv.RowCount;
}
WordDoc.SaveAs(ref path, ref WordObj, ref WordObj, ref WordObj, ref WordObj, ref WordObj, ref WordObj, ref WordObj, ref WordObj, ref WordObj, ref WordObj, ref WordObj, ref WordObj, ref WordObj, ref WordObj, ref WordObj);
WordDoc.Close(ref WordObj, ref WordObj, ref WordObj);
progress.Value = 100;
MessageBox.Show("数据已经成功导出到：" + savefile.FileName.ToString(), "导出完成", MessageBoxButtons.OK, MessageBoxIcon.Information);
progress.Value = 0;
progress.Visible = false;
}
catch (Exception e)
{
MessageBox.Show(e.Message, "友情提示", MessageBoxButtons.OK);
}
finally
{
word.Quit(ref WordObj, ref WordObj, ref WordObj);
}

}
}
}
试试其它关键字
　导出Word　
同语言下
可能有用的
CSDN贡献的其它代码(27)