delphi 数据导出到word

procedure TFrmWeekAnalysisQry.BtnExportToExcelClick(Sender: TObject);
var wordApp,WordDoc,WrdSelection:variant;
strAdd:string;
i,j,iRangeEnd,iStart,iEnd : integer;
wdPar,wdRange:OleVariant;
oShape, oChart,myCol: OleVariant;
SumJHTonCount, SumWCTonCount, PJTS, PJZCSJ, YSSR, DuoJing: Currency;
SumJHCarCount, SumWCCarCount: Integer;
SumDJ,SumFDJ: Currency;//多经 非多经汇总
begin
wordApp := CreateOleObject(‘Word.Application‘);
wordApp.Visible := true;
wordDoc:=WordApp.Documents.Add();
wordDoc.select;
wrdSelection := WordApp.selection;
strAdd:=‘%s年第%d周战略装车点生产经营分析‘;
strAdd:= Format(strAdd, [FormatDateTime(‘YYYY‘, Date), WeekofYear(Date)]);
wrdSelection.ParagraphFormat.Alignment:=wdAlignParagraphCenter;
wrdSelection.Font.bold := true;
wrdSelection.Font.Size := 15;
//wrdSelection.Font.UnderLine := 1; 下划线
wrdSelection.TypeText(strAdd);
wordApp.selection.TypeParagraph;//换行
wrdSelection.Font.bold := false;
wrdSelection.Font.Size := 10;
wrdSelection.Font.bold := false;
wrdSelection.TypeText(FormatDateTime(‘MM月DD日‘, DateBegin.Date)+‘-‘+FormatDateTime(‘MM月DD日‘, DateEnd.Date));
wordApp.selection.TypeParagraph;//换行
wrdSelection.TypeText(‘西安铁路局货运处‘);
wordApp.selection.TypeParagraph;//换行
wrdSelection.ParagraphFormat.Alignment:=wdAlignParagraphLeft;
wrdSelection.Font.bold := true;
wrdSelection.TypeText(‘1、战略装车点主要运营指标完成情况：‘);
//从新设置字体
wrdSelection.ParagraphFormat.Alignment:=wdAlignParagraphLeft;
wrdSelection.Font.bold := false;
wrdSelection.Font.Size := 10;
wrdSelection.Font.UnderLine := 0;
wdPar:=WordApp.ActiveDocument.Paragraphs.Add;
wdRange:=wdPar.Range;
wdRange := wordApp.ActiveDocument.Content;
wdRange.Collapse(wdCollapseEnd);
wordDoc.Tables.Add(wdRange,cdsMain.RecordCount+ 2,11);
//合并单元格不成功
{iStart:=WordDoc.Tables.Item(1).Cell(1,1).Range.Start;
//myCol:= WordDoc.Tables.Item(1).Cell(1,2);
//myCol:= WordDoc.Tables.Item(1).Columns.Item(2);
//iEnd:=myCol.Cells.Item(myCol.Cells.Count).Range.End;
//iEnd:= WordDoc.Tables.Item(1).Cell(2,1).Range.Start;
iEnd:= iStart+ 1;
wdRange:=WordDoc.Range;
wdRange.Start:=iStart;
wdRange.End :=iEnd;
wdRange.Cells.Merge; }
//插入数据
wordDoc.Tables.Item(1).Cell(1,1).Range.Text:= ‘序号‘;
wordDoc.Tables.Item(1).Cell(1,2).Range.Text:= ‘车站‘;
wordDoc.Tables.Item(1).Cell(1,3).Range.Text:= ‘品类‘;
wordDoc.Tables.Item(1).Cell(1,4).Range.Text:= ‘周计划车数‘;
wordDoc.Tables.Item(1).Cell(1,5).Range.Text:= ‘周计划万吨‘;
wordDoc.Tables.Item(1).Cell(1,6).Range.Text:= ‘周完成车数‘;
wordDoc.Tables.Item(1).Cell(1,7).Range.Text:= ‘周完成万吨‘;
wordDoc.Tables.Item(1).Cell(1,8).Range.Text:= ‘平均停时(小时)‘;
wordDoc.Tables.Item(1).Cell(1,9).Range.Text:= ‘平均装车时间(小时)‘;
wordDoc.Tables.Item(1).Cell(1,10).Range.Text:= ‘运输收入(万元)‘;
wordDoc.Tables.Item(1).Cell(1,11).Range.Text:= ‘多经毛利测算(万元)‘;
cdsMain.First;
SumJHTonCount:= 0;
SumWCTonCount:= 0;
PJTS:= 0;
PJZCSJ:= 0;
YSSR:= 0;
SumJHCarCount:= 0;
SumWCCarCount:= 0;
DuoJing:= 0;
for i:= 2 to cdsMain.RecordCount+ 1 do
begin
wordDoc.Tables.Item(1).Cell(i,1).Range.Text:= cdsMain.FieldByName(‘ROWNUM‘).AsString;
wordDoc.Tables.Item(1).Cell(i,2).Range.Text:= cdsMain.FieldByName(‘UPNAME‘).AsString;
wordDoc.Tables.Item(1).Cell(i,3).Range.Text:= cdsMain.FieldByName(‘PLNAME‘).AsString;
wordDoc.Tables.Item(1).Cell(i,4).Range.Text:= cdsMain.FieldByName(‘PLANCARCOUNT‘).AsString;
wordDoc.Tables.Item(1).Cell(i,5).Range.Text:= cdsMain.FieldByName(‘PLANTONCOUNT‘).AsString;
wordDoc.Tables.Item(1).Cell(i,6).Range.Text:= cdsMain.FieldByName(‘CARCOUNT‘).AsString;
wordDoc.Tables.Item(1).Cell(i,7).Range.Text:= cdsMain.FieldByName(‘TONCOUNT‘).AsString;
wordDoc.Tables.Item(1).Cell(i,8).Range.Text:= cdsMain.FieldByName(‘AVGSTOP‘).AsString;
wordDoc.Tables.Item(1).Cell(i,9).Range.Text:= cdsMain.FieldByName(‘AVGLOAD‘).AsString;
wordDoc.Tables.Item(1).Cell(i,10).Range.Text:= cdsMain.FieldByName(‘TRANSINCOME‘).AsString;
wordDoc.Tables.Item(1).Cell(i,11).Range.Text:= cdsMain.FieldByName(‘DUOJING‘).AsString;
SumJHTonCount:= SumJHTonCount+ cdsMain.FieldByName(‘PLANTONCOUNT‘).AsCurrency;
SumWCTonCount:= SumWCTonCount+ cdsMain.FieldByName(‘TONCOUNT‘).AsCurrency;
PJTS:= PJTS+ cdsMain.FieldByName(‘AVGSTOP‘).AsCurrency;
PJZCSJ:= PJZCSJ+ cdsMain.FieldByName(‘AVGLOAD‘).AsCurrency;
YSSR:= YSSR+ cdsMain.FieldByName(‘TRANSINCOME‘).AsCurrency;
SumJHCarCount:= SumJHCarCount+ cdsMain.FieldByName(‘PLANCARCOUNT‘).AsInteger;
SumWCCarCount:= SumWCCarCount+ cdsMain.FieldByName(‘CARCOUNT‘).AsInteger;
DuoJing:= DuoJing+ cdsMain.FieldByName(‘DUOJING‘).AsCurrency;
cdsMain.Next;
end;
Inc(i);
wordDoc.Tables.Item(1).Cell(i,2).Range.Text:= ‘合计‘;
wordDoc.Tables.Item(1).Cell(i,3).Range.Text:= ‘‘;
wordDoc.Tables.Item(1).Cell(i,4).Range.Text:= IntToStr(SumJHCarCount);
wordDoc.Tables.Item(1).Cell(i,5).Range.Text:= CurrToStr(SumJHTonCount);
wordDoc.Tables.Item(1).Cell(i,6).Range.Text:= IntToStr(SumWCCarCount);
wordDoc.Tables.Item(1).Cell(i,7).Range.Text:= CurrToStr(SumWCTonCount);
if cdsMain.RecordCount> 0 then
begin
wordDoc.Tables.Item(1).Cell(i,8).Range.Text:= CurrToStr(PJTS/ cdsMain.RecordCount);
wordDoc.Tables.Item(1).Cell(i,9).Range.Text:= CurrToStr(PJZCSJ/ cdsMain.RecordCount);
end;
wordDoc.Tables.Item(1).Cell(i,10).Range.Text:= CurrToStr(YSSR);
wordDoc.Tables.Item(1).Cell(i,10).Range.Text:= CurrToStr(DuoJing);

wordApp.Selection.EndKey(wdStory,EmptyParam);
wdPar := wordApp.ActiveDocument.Paragraphs.Add;
wdRange := wordApp.activeDocument.Content;
wdRange.Collapse(wdCollapseEnd);
if SumJHTonCount<= 0 then SumJHTonCount:= SumWCTonCount;
//if EdtQJHF.Value<= 0 then EdtQJHF.Value:= SumWCTonCount;
//if SumJHCarCount<= 0 then SumJHTonCount:= SumWCCarCount;
wrdSelection.TypeText(‘（1）全局28个战略装车点共装车‘+ IntToStr(SumWCCarCount)+‘辆，完成计划的‘+ GetPercent(SumWCCarCount , SumJHCarCount)+‘；发送货物‘
+CurrToStr(SumWCTonCount)+‘万吨，完成计划的‘+GetPercent(SumWCTonCount , SumJHTonCount)+‘，占全局货发总量的‘
+GetPercent(SumWCTonCount , EdtQJHF.Value)+ ‘。‘);
wordApp.selection.TypeParagraph;//换行
wrdSelection.ParagraphFormat.Alignment:=wdAlignParagraphCenter;
wrdSelection.TypeText(‘图-6 战略装车点装车数完成情况‘);

wordApp.Selection.EndKey(wdStory,EmptyParam);
wdPar := wordApp.ActiveDocument.Paragraphs.Add;
wdRange := wordApp.activeDocument.Content;
wdRange.Collapse(wdCollapseEnd);

oShape:= wordApp.Selection.InlineShapes.AddOleObject(ClassType:=‘MSGraph.Chart.8‘,FileName:=‘‘,LinkToFile :=False,DisplayAsIcon :=False);
oChart:= oShape.OleFormat.Object;
oChart.Application.DataSheet.Cells.Clear;
oChart.ChartArea.Font.Size:= 8;
oChart.Application.Update;
oChart.ChartType:= 51;// 1是面积图 4是线形图 5是饼图 51是柱状图
//添加行标题
oChart.Application.DataSheet.Cells[2,1].Value:= ‘计划‘;
oChart.Application.DataSheet.Cells[3,1].Value:= ‘实际完成‘;
//添加列标题
oChart.Application.DataSheet.Cells[1,2].Value:= ‘上周‘;
oChart.Application.DataSheet.Cells[1,3].Value:= ‘本周‘;

oChart.Application.DataSheet.Cells[2, 2].Value:= LastPlanCarCount;
oChart.Application.DataSheet.Cells[2, 3].Value:= SumJHCarCount;
oChart.Application.DataSheet.Cells[3, 2].Value:= LastImplCarCount;
oChart.Application.DataSheet.Cells[3, 3].Value:= SumWCCarCount;
oChart.Application.Update;
oChart.Application.Quit;

wordApp.Selection.EndKey(wdStory,EmptyParam);
wdPar := wordApp.ActiveDocument.Paragraphs.Add;
wdRange := wordApp.activeDocument.Content;
wdRange.Collapse(wdCollapseEnd);
wrdSelection.TypeText(‘图-7 战略装车点货物发送量完成情况‘);
wordApp.Selection.EndKey(wdStory,EmptyParam);
wdPar := wordApp.ActiveDocument.Paragraphs.Add;
wdRange := wordApp.activeDocument.Content;
wdRange.Collapse(wdCollapseEnd);

oShape:= wordApp.Selection.InlineShapes.AddOleObject(ClassType:=‘MSGraph.Chart.8‘,FileName:=‘‘,LinkToFile :=False,DisplayAsIcon :=False);
oChart:= oShape.OleFormat.Object;
oChart.Application.DataSheet.Cells.Clear;
oChart.ChartArea.Font.Size:= 8;
oChart.Application.Update;
oChart.ChartType:= 51;// 1是面积图 4是线形图 5是饼图 51是柱状图
//添加行标题
oChart.Application.DataSheet.Cells[2,1].Value:= ‘计划‘;
oChart.Application.DataSheet.Cells[3,1].Value:= ‘实际完成‘;
//添加列标题
oChart.Application.DataSheet.Cells[1,2].Value:= ‘上周‘;
oChart.Application.DataSheet.Cells[1,3].Value:= ‘本周‘;

oChart.Application.DataSheet.Cells[2, 2].Value:= LastPlanTonCount;
oChart.Application.DataSheet.Cells[2, 3].Value:= SumJHTonCount;
oChart.Application.DataSheet.Cells[3, 2].Value:= LastImplTonCount;
oChart.Application.DataSheet.Cells[3, 3].Value:= SumWCTonCount;
oChart.Application.Update;
oChart.Application.Quit;

wordApp.Selection.EndKey(wdStory,EmptyParam);
wdPar := wordApp.ActiveDocument.Paragraphs.Add;
wdRange := wordApp.activeDocument.Content;
wdRange.Collapse(wdCollapseEnd);
wrdSelection.TypeText(‘图-8 战略装车量占货物发送量情况‘);
wordApp.Selection.EndKey(wdStory,EmptyParam);
wdPar := wordApp.ActiveDocument.Paragraphs.Add;
wdRange := wordApp.activeDocument.Content;
wdRange.Collapse(wdCollapseEnd);

oShape:= wordApp.Selection.InlineShapes.AddOleObject(ClassType:=‘MSGraph.Chart.8‘,FileName:=‘‘,LinkToFile :=False,DisplayAsIcon :=False);
oChart:= oShape.OleFormat.Object;
oChart.Application.DataSheet.Cells.Clear;
oChart.ChartArea.Font.Size:= 8;
oChart.Application.Update;
oChart.ChartType:= 5;// 1是面积图 4是线形图 5是饼图 51是柱状图
//添加行标题
oChart.Application.DataSheet.Cells[2,1].Value:= ‘发送万吨‘;
//添加列标题
oChart.Application.DataSheet.Cells[1,2].Value:= ‘战略装车点‘;
oChart.Application.DataSheet.Cells[1,3].Value:= ‘其他装车‘;
oChart.Application.DataSheet.Cells[2, 2].Value:= SumWCTonCount;
oChart.Application.DataSheet.Cells[2, 3].Value:= EdtQJHF.Value;
oChart.Application.Update;
oChart.Application.Quit;

wordApp.Selection.EndKey(wdStory,EmptyParam);
wdPar := wordApp.ActiveDocument.Paragraphs.Add;
wdRange := wordApp.activeDocument.Content;
wdRange.Collapse(wdCollapseEnd);
wrdSelection.TypeText(‘图-9 战略装车量分品类完成情况‘);
wordApp.Selection.EndKey(wdStory,EmptyParam);
wdPar := wordApp.ActiveDocument.Paragraphs.Add;
wdRange := wordApp.activeDocument.Content;
wdRange.Collapse(wdCollapseEnd);

oShape:= wordApp.Selection.InlineShapes.AddOleObject(ClassType:=‘MSGraph.Chart.8‘,FileName:=‘‘,LinkToFile :=False,DisplayAsIcon :=False);
oChart:= oShape.OleFormat.Object;
oChart.Application.DataSheet.Cells.Clear;
oChart.ChartArea.Font.Size:= 8;
oChart.Application.Update;
oChart.ChartType:= 5;// 1是面积图 4是线形图 5是饼图 51是柱状图
//添加行标题
oChart.Application.DataSheet.Cells[2,1].Value:= ‘发送万吨‘;
//添加列标题
cdsGroupByPL.First;
for i:= 2 to cdsGroupByPL.RecordCount+ 1 do
begin
oChart.Application.DataSheet.Cells[1,i].Value:= Trim(cdsGroupByPL.FieldByName(‘PLNAME‘).AsString);
oChart.Application.DataSheet.Cells[2, i].Value:= cdsGroupByPL.FieldByName(‘TONCOUNT‘).AsCurrency;
cdsGroupByPL.Next;
end;
oChart.Application.Update;
oChart.Application.Quit;

wordApp.Selection.EndKey(wdStory,EmptyParam);
wdPar := wordApp.ActiveDocument.Paragraphs.Add;
wdRange := wordApp.activeDocument.Content;
wdRange.Collapse(wdCollapseEnd);
wrdSelection.TypeText(‘ （2）货车停留时间平均为‘+ GetDiv(PJTS,cdsMain.RecordCount)+‘小时,较考核目标超‘+GetOverloadTime(PJTS,cdsMain.RecordCount,5)+‘小时，‘
+‘较全局平均停时减少2.8小时；平均装车作业时间‘+ GetDiv(PJZCSJ, cdsMain.RecordCount)+‘小时，较考核目标超‘+GetOverloadTime(PJZCSJ,cdsMain.RecordCount,2)+‘小时。‘);
wordApp.selection.TypeParagraph;//换行
wrdSelection.TypeText(‘ （3）路局多经参与经营的12个战略装车点，本周总计完成‘+ IntToStr(SumWCCarCount)
+‘车，比上周‘+ IntToStr(Trunc(LastImplCarCount))+‘车多装‘+ IntToStr(Trunc(SumWCCarCount- LastImplCarCount))+‘车，增加了‘
+GetPercent(SumJHCarCount- LastImplCarCount, LastImplCarCount)+‘，日均装车‘+GetDiv(SumWCTonCount, Trunc(DateEnd.Date-DateBegin.Date+ 1))
+‘车。占全局战略装车点发送总量的‘+ GetPercent(SumWCCarCount, EdtQJHF.Value)+‘。‘);
wordApp.selection.TypeParagraph;//换行
wrdSelection.TypeText(‘ 3、毛利分析：本周实现毛利‘+ CurrToStr(DuoJing)+‘万元，和上周基本持平。‘);
SumDJ:= 0;
SumFDJ:= 0;
cdsMain.First;
with cdsMain do
begin
DisableControls;
while not Eof do
begin
if FieldByName(‘DJCY‘).AsInteger= 0 then
SumDJ:= SumDJ+ FieldByName(‘TONCOUNT‘).AsCurrency
else
SumFDJ:= SumFDJ+ FieldByName(‘TONCOUNT‘).AsCurrency;
cdsMain.Next;
end;
EnableControls;
end;
wordApp.selection.TypeParagraph;//换行
wrdSelection.ParagraphFormat.Alignment:=wdAlignParagraphCenter;
wrdSelection.TypeText(‘图-10 多经参与战略装车情况‘);
wordApp.Selection.EndKey(wdStory,EmptyParam);
wdPar := wordApp.ActiveDocument.Paragraphs.Add;
wdRange := wordApp.activeDocument.Content;
wdRange.Collapse(wdCollapseEnd);

oShape:= wordApp.Selection.InlineShapes.AddOleObject(ClassType:=‘MSGraph.Chart.8‘,FileName:=‘‘,LinkToFile :=False,DisplayAsIcon :=False);
oChart:= oShape.OleFormat.Object;
oChart.Application.DataSheet.Cells.Clear;
oChart.ChartArea.Font.Size:= 8;
oChart.Application.Update;
oChart.ChartType:= 5;// 1是面积图 4是线形图 5是饼图 51是柱状图
//添加行标题
oChart.Application.DataSheet.Cells[2,1].Value:= ‘发送吨‘;
//添加列标题
oChart.Application.DataSheet.Cells[1,2].Value:= ‘多经参与经营发送吨‘;
oChart.Application.DataSheet.Cells[1,3].Value:= ‘其他战略装车点发送吨‘;
oChart.Application.DataSheet.Cells[2, 2].Value:= SumDJ;
oChart.Application.DataSheet.Cells[2, 3].Value:= SumFDJ;
oChart.Application.Update;
oChart.Application.Quit;

wordApp.selection.TypeParagraph;//换行
wrdSelection.ParagraphFormat.Alignment:=wdAlignParagraphCenter;
wrdSelection.TypeText(‘图-11 多经参与战略装车点经营收入（万元）‘);
wordApp.Selection.EndKey(wdStory,EmptyParam);
wdPar := wordApp.ActiveDocument.Paragraphs.Add;
wdRange := wordApp.activeDocument.Content;
wdRange.Collapse(wdCollapseEnd);

oShape:= wordApp.Selection.InlineShapes.AddOleObject(ClassType:=‘MSGraph.Chart.8‘,FileName:=‘‘,LinkToFile :=False,DisplayAsIcon :=False);
oChart:= oShape.OleFormat.Object;
oChart.Application.DataSheet.Cells.Clear;
oChart.ChartArea.Font.Size:= 8;
oChart.Application.Update;
oChart.ChartType:= 51;// 1是面积图 4是线形图 5是饼图 51是柱状图
//添加行标题
oChart.Application.DataSheet.Cells[2,1].Value:= ‘收入（万元）‘;
//添加列标题
oChart.Application.DataSheet.Cells[1,2].Value:= ‘本周‘;
oChart.Application.DataSheet.Cells[1,3].Value:= ‘上周‘;
oChart.Application.DataSheet.Cells[2, 2].Value:= 319.14;
oChart.Application.DataSheet.Cells[2, 3].Value:= 314.96;
oChart.Application.Update;
oChart.Application.Quit;

wordApp.Selection.EndKey(wdStory,EmptyParam);
wdPar := wordApp.ActiveDocument.Paragraphs.Add;
wdRange := wordApp.activeDocument.Content;
wdRange.Collapse(wdCollapseEnd);
wrdSelection.TypeText(‘ （4）装车分析：与上周一样，全局仅有黄陵、安口南两个战略装车点到达日均装运一列的要求，‘
+‘占全局战略装车点总数的7%。周装车少于100车的有梅家坪、白水江、燕子砭、咸阳西4个点。‘);
wordApp.selection.TypeParagraph;//换行
wrdSelection.TypeText(‘2.存在问题及分析：‘);
wordApp.selection.TypeParagraph;//换行
wrdSelection.TypeText(‘ （1）全局共有14个装车点为完成周装车计划。完成比例在50%以下的有桑树坪、合阳、白水江、燕子砭4个战略装车点，占总数的14%‘);
wordApp.selection.TypeParagraph;//换行
wrdSelection.TypeText(‘ 主要原因有四个方面。一是空出来源紧张，不能满足日均装车需求。装运大宗货源煤炭、石油需要的敞车、罐车缺口较大。‘
+‘如牛家梁在请求车5418车的情况下，仅承认了916车；柞水、官渡、三桥也存在此类原因。本周共产生坏车及过期车2104量，‘
+‘修复使用1745车。三是停限装原因，战略装车点请求车兑现率仅为41%。四是货源依旧不足。铁矿石、焦炭市场不好影响装车。‘);
wordApp.selection.TypeParagraph;//换行
wrdSelection.TypeText(‘ （2）一是装车速度较慢，影响装车时间，造成平均停时较大，如合阳点专用线装车为漏斗漏煤，装车速度较快，平煤采取刮板刮平后，‘
+‘人工平顶，速度较慢，引起停时较大。二是坏车修复时间长，也是引起停时较大的一个重要原因。‘);
wordApp.selection.TypeParagraph;//换行
wrdSelection.TypeText(‘3.战略装车点下周重点工作：‘);
wordApp.selection.TypeParagraph;//换行
wrdSelection.TypeText(‘ （1）加大货源组织工作。广泛宣传战略装车点优势，公布资源受理电话、去向、运输品类和开行时间，在货运计划、配空车‘
+‘等方面予以优惠政策，重点做好新建战略装车点瑶曲、安口南的货源组织工作，开发战略装车点新货源，保证装车上量。‘);
wordApp.selection.TypeParagraph;//换行
wrdSelection.TypeText(‘ （2）提高承认车兑现率。对组织不力造成承认车落空的进行认真分析，纳入考核并追究管理责任。调度、运输、货运部门要加强协作，‘
+‘落实战略装车点计划、承认、配空、挂运四优先制度。‘);
wordApp.selection.TypeParagraph;//换行
wrdSelection.TypeText(‘ （3）大力压缩等待时间。与专用线加强协调，增强战略装车点装车、平顶、加固车门人员力量，压缩撞车后的整理等待时间。‘);
end;

时间： 2024-11-05 22:32:13

delphi 数据导出到word的相关文章

Delphi 数据导出到Excel

好多办公软件特别是财务软件,都需要配备把数据导出到Excel,下面就来介绍两种数据导出方法 1.ADODB导出查询结果(此方法需要安装Excel) 2.二维表数据导出(根据Excel文件结构生成二进制文件流,不需要安装Excel) 3.如果涉及到复杂表头的(例如合并字段等),未做研究,下面也没介绍相关资料,请止步. 第一种,ADODB导出查询结果(此方法需要安装Excel) //uses DB, ADODB, ComObj, ComCtrls, excel2000, StdCtrls, adoi

使用NPOI将数据导出为word格式里的table

开发环境:VS2013+MySQL5.5+EF6+NPOI2.0.6 格式:WinForm+CodeFirst PS:vs2013的CodeFirst很方便了啊 CodeFirst方式就不再赘述了. 此Demo托管地址:http://git.oschina.net/uustudy/ExportImportWord.git 另外推荐下NPOI代码托管地址:https://github.com/tonyqus/npoi 作者博客:http://tonyqus.sinaapp.com/ 使用nuget

数据导出生成word附件使用POI的XWPFTemplate对象

比较常用的实现Java导入.导出Excel的技术有两种Jakarta POI和Java Excel.Jakarta POI 是一套用于访问微软格式文档的Java API.Jakarta POI有很多组件组成,其中有用于 操作Excel格式文件的HSSF和 用于操作Word的HWPF: 一.前端使用get请求和post请求都可以 get请求: window.location.href= appPath+"/export/handoverForm?ticketId="+self.ticke

c#中数据从数据库到客户端主要几种的导出方式(导出到excel，导出到word)

本人大学新手一枚,在大学工作室学习asp.net,从中积累的一些小的知识和大家一起分享与讨论. 今天的主题是导出数据.现在从服务器端到客户端数据的几种主要方式有:web页面呈现(各种view..),导出到excel,导出到word,导出到报表等.我今天讲下我实际开发项目中用到的导出到excel和导出到word. 一.导出到excel 主要有以下两种方法: (1)用数据展示控件如GridView或者ListView等,先把需要导出的数据展示在web页面上,然后再利用Response的另存为功能,将

站在巨人的肩膀上——人事项目数据导出word

最近在做人事项目中的,数据导出word,具体的说就是从web客户端页面获取信息,添加到信函模板中,再导出为word文档.总结一下,学会了两种方法,1.通过将word模板转换为html文件,输出word.2.利用第三方组件Aspose.Words操作word模板,输出word. 一.通过将word模板转换为html文件,输出word 1.制作word模板,在word文档中要添加内容的地方输入占位符. 2.把word模板另存为html文件. 文件-另存为-网页htm文件. 3前台代码 <asp:Bu

通用的web系统数据导出功能设计实现（导出excel2003/2007 word pdf zip等）

转自:http://www.cnblogs.com/xqin/p/3165258.html 前言 我们在做web系统中,导出也是很常用的一个功能,如果每一个数据列表都要对应写一个导出的方法不太现实.现在就想设计一个共通的功能来实现这个导出. 需求分析 在开始之前我们先要明白我们要实现怎样一个功能 1.支持导出excel2003/excel2007 word pdf等文件格式 2.支持数据分页,可以导出全部页或指定页 3.支持导出的文档再压缩zip rar 7z 4.支持导出多行的题头 5.支持格

Java 实现HTML富文本导出至word完美解决方案

一. 问题的提出 最近用java开发一个科技项目信息管理系统,里面有一个根据项目申请书的模板填写项目申报信息的功能,有一个科技项目申请书word导出功能. 已有的实现方式:采用标准的jsp模板输出实现,简单地说,就是把数据渲染进jsp页面,然后将此页面另存为doc文档,从而达到word导出效果.但是存在以下几个问题: (1) 由于导出的html网页格式,打开word后,默认显示的视图模式为WEB版式视图: (2) 修改word文档后,会新增一个相关联的文件夹,word的html中会引用这个文件夹

Spire.Office for .NET 提供制图，制表，电子邮件，条形码以及数据导出的功能

Spire.Office for .NET是e-iceblue公司推出的一款.NET控件包.它包含所有该公司发布的.NET的控件.通过Spire.Office for .NET,开发人员可以轻松的操作商业中最流行格式的文件,主要包括Word, Excel, PDF,XML和HTML.除了强大的文件操作组件,Spire.Office for .NET 还提供制图,制表,电子邮件,条形码以及数据导出的功能. Spire.Office for .NET 包含以下产品: Spire.Doc for .N

支持将数据导出到Excel文档的时候设置单元格格式的.NET控件Spire.DataExport

Spire.DataExport for .NET是e-iceblue公司推出的一款数据导出类.NET控件.作为一款专业的数据导出控件,Spire.DataExport for .NET可以帮助开发人员轻松快速的从各种主流数据库中导出数据并存储于各种文件格式中.他支持从SQL Command, DataTable,ListView中导出数据并存储于MS Excel,MS Word, HTML, XML, PDF, MS Access, DBF, SQL Script, SYLK, DIF, CS