看一段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('一、戰略裝車點主要運營指標完成狀況：');
//重新設置字體
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(' 三、毛利分析：本週實現毛利'+ 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;