| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 519 人关注过本帖
标题:新手上路,求指导!
只看楼主 加入收藏
yuyangfeng
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2011-7-26
结帖率:0
收藏
已结贴  问题点数:10 回复次数:2 
新手上路,求指导!
我想用delphi编写一个小软件,可以将excel中的大量数据以图形的形式输出到word中以便于分析!也就是绘制这些数据点的过程线,我不知道用什么方法去做,求各位大哥给思路!给出要用的关键代码!让我慢慢摸索!万分感谢!
搜索更多相关主题的帖子: 新手上路 excel 软件 word 
2011-07-27 09:04
yuutian
Rank: 7Rank: 7Rank: 7
等 级:黑侠
帖 子:137
专家分:686
注 册:2010-10-27
收藏
得分:10 
这些你可以参考一下:
程序代码:
( 一 ) 使用动态创建的方法 

首先创建 Excel 对象,使用ComObj :
Var
  ExcelApp : Variant ;
  ExcelApp := CreateOleObject ( '' Excel.Application '' ) ; 

  1 ) 显示当前窗口:
  ExcelApp.Visible := True ; 

  2 ) 更改 Excel 标题栏:
ExcelApp.Caption := '' 应用程序调用 Microsoft Excel '' ; 

3 ) 添加新工作簿:
ExcelApp.WorkBooks.Add ; 

4 ) 打开已存在的工作簿:
ExcelApp.WorkBooks.Open ( '' C : \Excel\Demo.xls '' ) ; 

5 ) 设置第2个工作表为活动工作表:
ExcelApp.WorkSheets [ 2 ] .Activate ;
或
ExcelApp.WorksSheets [ '' Sheet2 '' ] .Activate ; 

6 ) 给单元格赋值:
ExcelApp.Cells [ 1 , 4 ] .Value := '' 第一行第四列 '' ; 

7 ) 设置指定列的宽度(单位:字符个数),以第一列为例:
ExcelApp.ActiveSheet.Columns [ 1 ] .ColumnsWidth := 5 ; 

8 ) 设置指定行的高度(单位:磅)(1磅=0.035 厘米),以第二行为例:
ExcelApp.ActiveSheet.Rows [ 2 ] .RowHeight := 1 / 0.035 ; // 1厘米 

9 ) 在第8行之前插入分页符:
ExcelApp.WorkSheets [ 1 ] .Rows [ 8 ] .PageBreak := 1 ; 

10 ) 在第8列之前删除分页符:
ExcelApp.ActiveSheet.Columns [ 4 ] .PageBreak := 0 ; 

11 ) 指定边框线宽度:
ExcelApp.ActiveSheet.Range [ '' B3 : D4 '' ] .Borders [ 2 ] .Weight := 3 ;
1 - 左 2 - 右 3 - 顶 4 - 底 5 - 斜 ( \ ) 6 - 斜 ( / ) 

12 ) 清除第一行第四列单元格公式:
ExcelApp.ActiveSheet.Cells [ 1 , 4 ] .ClearContents ; 

13 ) 设置第一行字体属性:
ExcelApp.ActiveSheet.Rows [ 1 ] .Font.Name := '' 隶书 '' ;
ExcelApp.ActiveSheet.Rows [ 1 ] .Font.Color := clBlue ;
ExcelApp.ActiveSheet.Rows [ 1 ] .Font.Bold := True ;
ExcelApp.ActiveSheet.Rows [ 1 ] .Font.UnderLine := True ; 

14 ) 进行页面设置: 

a.页眉:
ExcelApp.ActiveSheet.PageSetup.CenterHeader := '' 报表演示 '' ;
b.页脚:
ExcelApp.ActiveSheet.PageSetup.CenterFooter := '' 第&P页 '' ;
c.页眉到顶端边距2cm:
ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 2 / 0.035 ;
d.页脚到底端边距3cm:
ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 3 / 0.035 ;
e.顶边距2cm:
ExcelApp.ActiveSheet.PageSetup.TopMargin := 2 / 0.035 ;
f.底边距2cm:
ExcelApp.ActiveSheet.PageSetup.BottomMargin := 2 / 0.035 ;
g.左边距2cm:
ExcelApp.ActiveSheet.PageSetup.LeftMargin := 2 / 0.035 ;
h.右边距2cm:
ExcelApp.ActiveSheet.PageSetup.RightMargin := 2 / 0.035 ;
i.页面水平居中:
ExcelApp.ActiveSheet.PageSetup.CenterHorizontally := 2 / 0.035 ;
j.页面垂直居中:
ExcelApp.ActiveSheet.PageSetup.CenterVertically := 2 / 0.035 ;
k.打印单元格网线:
ExcelApp.ActiveSheet.PageSetup.PrintGridLines := True ; 

15 ) 拷贝操作: 

a.拷贝整个工作表:
ExcelApp.ActiveSheet.Used.Range.Copy ;
b.拷贝指定区域:
ExcelApp.ActiveSheet.Range [ '' A1 : E2 '' ] .Copy ;
c.从A1位置开始粘贴:
ExcelApp.ActiveSheet.Range. [ '' A1 '' ] .PasteSpecial ;
d.从文件尾部开始粘贴:
ExcelApp.ActiveSheet.Range.PasteSpecial ; 

16 ) 插入一行或一列:
a.ExcelApp.ActiveSheet.Rows [ 2 ] .Insert ;
b.ExcelApp.ActiveSheet.Columns [ 1 ] .Insert ; 

17 ) 删除一行或一列:
a.ExcelApp.ActiveSheet.Rows [ 2 ] .Delete ;
b.ExcelApp.ActiveSheet.Columns [ 1 ] .Delete ; 

18 ) 打印预览工作表:
ExcelApp.ActiveSheet.PrintPreview ; 

19 ) 打印输出工作表:
ExcelApp.ActiveSheet.PrintOut ; 

20 ) 工作表保存:
If Not ExcelApp.ActiveWorkBook.Saved Then
  ExcelApp.ActiveSheet.PrintPreview ; 

21 ) 工作表另存为:
ExcelApp.SaveAs ( '' C : \Excel\Demo1.xls '' ) ; 

22 ) 放弃存盘:
ExcelApp.ActiveWorkBook.Saved := True ; 

23 ) 关闭工作簿:
ExcelApp.WorkBooks.Close ; 

24 ) 退出 Excel:
ExcelApp.Quit ; 

( 二 ) 使用Delphi 控件方法
在Form中分别放入ExcelApplication , ExcelWorkbook和ExcelWorksheet。 

1 ) 打开Excel
ExcelApplication1.Connect ; 

2 ) 显示当前窗口:
ExcelApplication1.Visible [ 0 ] := True ; 

3 ) 更改 Excel 标题栏:
ExcelApplication1.Caption := '' 应用程序调用 Microsoft Excel '' ; 

4 ) 添加新工作簿:
ExcelWorkbook1.ConnectTo ( ExcelApplication1.Workbooks.Add ( EmptyParam , 0 ) ) ; 

5 ) 添加新工作表:
Var
  Temp_Worksheet : _WorkSheet ;
Begin
  Temp_Worksheet := ExcelWorkbook1.
    WorkSheets.Add ( EmptyParam , EmptyParam , EmptyParam , EmptyParam , 0 ) As _WorkSheet ;
  ExcelWorkSheet1.ConnectTo ( Temp_WorkSheet ) ;
End ; 

6 ) 打开已存在的工作簿:
ExcelApplication1.Workbooks.Open ( c : \a.xls
  EmptyParam , EmptyParam , EmptyParam , EmptyParam ,
  EmptyParam , EmptyParam , EmptyParam , EmptyParam ,
  EmptyParam , EmptyParam , EmptyParam , EmptyParam , 0 ) 

7 ) 设置第2个工作表为活动工作表:
ExcelApplication1.WorkSheets [ 2 ] .Activate ;
或
ExcelApplication1.WorksSheets [ '' Sheet2 '' ] .Activate ; 

8 ) 给单元格赋值:
ExcelApplication1.Cells [ 1 , 4 ] .Value := '' 第一行第四列 '' ; 

9 ) 设置指定列的宽度(单位:字符个数),以第一列为例:
ExcelApplication1.ActiveSheet.Columns [ 1 ] .ColumnsWidth := 5 ; 

10 ) 设置指定行的高度(单位:磅)(1磅=0.035 厘米),以第二行为例:
ExcelApplication1.ActiveSheet.Rows [ 2 ] .RowHeight := 1 / 0.035 ; // 1厘米 

11 ) 在第8行之前插入分页符:
ExcelApplication1.WorkSheets [ 1 ] .Rows [ 8 ] .PageBreak := 1 ; 

12 ) 在第8列之前删除分页符:
ExcelApplication1.ActiveSheet.Columns [ 4 ] .PageBreak := 0 ; 

13 ) 指定边框线宽度:
ExcelApplication1.ActiveSheet.Range [ '' B3 : D4 '' ] .Borders [ 2 ] .Weight := 3 ;
1 - 左 2 - 右 3 - 顶 4 - 底 5 - 斜 ( \ ) 6 - 斜 ( / ) 

14 ) 清除第一行第四列单元格公式:
ExcelApplication1.ActiveSheet.Cells [ 1 , 4 ] .ClearContents ; 

15 ) 设置第一行字体属性:
ExcelApplication1.ActiveSheet.Rows [ 1 ] .Font.Name := '' 隶书 '' ;
ExcelApplication1.ActiveSheet.Rows [ 1 ] .Font.Color := clBlue ;
ExcelApplication1.ActiveSheet.Rows [ 1 ] .Font.Bold := True ;
ExcelApplication1.ActiveSheet.Rows [ 1 ] .Font.UnderLine := True ; 

16 ) 进行页面设置:
a.页眉:
ExcelApplication1.ActiveSheet.PageSetup.CenterHeader := '' 报表演示 '' ;
b.页脚:
ExcelApplication1.ActiveSheet.PageSetup.CenterFooter := '' 第&P页 '' ;
c.页眉到顶端边距2cm:
ExcelApplication1.ActiveSheet.PageSetup.HeaderMargin := 2 / 0.035 ;
d.页脚到底端边距3cm:
ExcelApplication1.ActiveSheet.PageSetup.HeaderMargin := 3 / 0.035 ;
e.顶边距2cm:
ExcelApplication1.ActiveSheet.PageSetup.TopMargin := 2 / 0.035 ;
f.底边距2cm:
ExcelApplication1.ActiveSheet.PageSetup.BottomMargin := 2 / 0.035 ;
g.左边距2cm:
ExcelAppli 

cation1.ActiveSheet.PageSetup.LeftMargin := 2 / 0.035 ;
h.右边距2cm:
ExcelApplication1.ActiveSheet.PageSetup.RightMargin := 2 / 0.035 ;
i.页面水平居中:
ExcelApplication1.ActiveSheet.PageSetup.CenterHorizontally := 2 / 0.035 ;
j.页面垂直居中:
ExcelApplication1.ActiveSheet.PageSetup.CenterVertically := 2 / 0.035 ;
k.打印单元格网线:
ExcelApplication1.ActiveSheet.PageSetup.PrintGridLines := True ; 

17 ) 拷贝操作: 

a.拷贝整个工作表:
ExcelApplication1.ActiveSheet.Used.Range.Copy ; 

b.拷贝指定区域:
ExcelApplication1.ActiveSheet.Range [ '' A1 : E2 '' ] .Copy ; 

c.从A1位置开始粘贴:
ExcelApplication1.ActiveSheet.Range. [ '' A1 '' ] .PasteSpecial ; 

d.从文件尾部开始粘贴:
ExcelApplication1.ActiveSheet.Range.PasteSpecial ; 

18 ) 插入一行或一列:
a.ExcelApplication1.ActiveSheet.Rows [ 2 ] .Insert ;
b.ExcelApplication1.ActiveSheet.Columns [ 1 ] .Insert ; 

19 ) 删除一行或一列:
a.ExcelApplication1.ActiveSheet.Rows [ 2 ] .Delete ;
b.ExcelApplication1.ActiveSheet.Columns [ 1 ] .Delete ; 

20 ) 打印预览工作表:
ExcelApplication1.ActiveSheet.PrintPreview ; 

21 ) 打印输出工作表:
ExcelApplication1.ActiveSheet.PrintOut ; 

22 ) 工作表保存:
If Not ExcelApplication1.ActiveWorkBook.Saved Then
  ExcelApplication1.ActiveSheet.PrintPreview ; 

23 ) 工作表另存为:
ExcelApplication1.SaveAs ( '' C : \Excel\Demo1.xls '' ) ; 

24 ) 放弃存盘:
ExcelApplication1.ActiveWorkBook.Saved := True ; 

25 ) 关闭工作簿:
ExcelApplication1.WorkBooks.Close ; 

26 ) 退出 Excel:
ExcelApplication1.Quit ;
ExcelApplication1.Disconnect ; 

( 三 ) 使用Delphi 控制Excle二维图
在Form中分别放入ExcelApplication , ExcelWorkbook和ExcelWorksheet
Var
  asheet1 , achart , range : variant ; 

  1 )选择当第一个工作薄第一个工作表
    asheet1 := ExcelApplication1.Workbooks [ 1 ] .Worksheets [ 1 ] ; 

  2 )增加一个二维图
    achart := asheet1.chartobjects.add ( 100 , 100 , 200 , 200 ) ; 

  3 )选择二维图的形态
    achart.chart.charttype := 4 ; 

  4 )给二维图赋值
    series := achart.chart.seriescollection ;
  range := sheet1!r2c3 : r3c9 ;
  series.add ( range , true ) ; 

  5 )加上二维图的标题
    achart.Chart.HasTitle := True ;
  achart.Chart.ChartTitle.Characters.Text := ’ Excle二维图’ 

  6 )改变二维图的标题字体大小
    achart.Chart.ChartTitle.Font.size := 6 ; 

  7 )给二维图加下标说明
    achart.Chart.Axes ( xlCategory , xlPrimary ) .HasTitle := True ;
  achart.Chart.Axes ( xlCategory , xlPrimary ) .AxisTitle.Characters.Text := '' 下标说明 '' ; 

  8 )给二维图加左标说明
    achart.Chart.Axes ( xlValue , xlPrimary ) .HasTitle := True ;
  achart.Chart.Axes ( xlValue , xlPrimary ) .AxisTitle.Characters.Text := '' 左标说明 '' ; 

  9 )给二维图加右标说明
    achart.Chart.Axes ( xlValue , xlSecondary ) .HasTitle := True ;
  achart.Chart.Axes ( xlValue , xlSecondary ) .AxisTitle.Characters.Text := '' 右标说明 '' ; 

  10 )改变二维图的显示区大小
    achart.Chart.PlotArea.Left := 5 ;
  achart.Chart.PlotArea.Width := 223 ;
  achart.Chart.PlotArea.Height := 108 ; 

  11 )给二维图坐标轴加上说明
    achart.chart.seriescollection [ 1 ] .NAME := '' 坐标轴说明 '' ;

2011-07-27 20:28
yuutian
Rank: 7Rank: 7Rank: 7
等 级:黑侠
帖 子:137
专家分:686
注 册:2010-10-27
收藏
得分:0 
这个是word操作:
程序代码:
 1、在当前程序目录下建立以标题字段命名的Word文件
  exepath:=application.ExeName;
  for index:=1 to length(exepath) do
  if exepath[index]='\' then
  i:=index;
  exepath:=copy(exepath,1,i);
  doc_file:=exepath+mc+'.doc';
  以标题字段“mc”命名Word文件
  try
  Wordapplication1.connect;
  except
  messagedlg('没有安装Word',mterror,[mbok],0);
  abort;
  end;
  Wordapplication1.Caption := 'XX计划书';
  Wordapplication1.visible := true;
  Worddocument1.activate;
  2、设置纸张大小
  Wordapplication1.ActiveDocument.PageSetup.PageWidth:=XXX;
  Wordapplication1.ActiveDocument.PageSetup.PageHeight:=XXX;
  Wordapplication1.ActiveDocument.PageSetup.LeftMargin := XX;
  //设置左边距
  Wordapplication1.ActiveDocument.PageSetup.rightMargin := XX; 
  //设置右边距
  3、插入页码
  var fpage,pagea:olevariant;
  fpage:=true;
  pagea:=wdAlignPageNumberCenter;
  Wordapplication1.activedocument.sections.item(1).Footers.item(1).PageNumbers.Add(pagea,fpage);
  4、设置页面横向打印
  s:=Wordapplication1.selection.start;
  e:=Wordapplication1.selection.start;
  aa:=wdSectionBreakNextPage;
  Wordapplication1.ActiveDocument.Range(s,e).InsertBreak(aa);
  Wordapplication1.Selection.Start:=Wordapplication1.Selection.Start + 1;
  s:=Wordapplication1.Selection.start;
  e:=Wordapplication1.ActiveDocument.Content.End_;
  Wordapplication1.ActiveDocument.Range(S,e).PageSetup.Orientation:=wdOrientLandscape;
  5、设置字体、字号
  Wordapplication1.Selection.Font.Size:=18;
  Wordapplication1.Selection.Font.Name := '黑体';
  Wordapplication1.Selection.TypeParagraph;
  Wordapplication1.Selection.ParagraphFormat.Alignment:= wdAlignParagraphCenter;
  Wordapplication1.Selection.TypeParagraph;
  Wordapplication1.Selection.TypeText(dbedit4.text);
  //标题 
  Wordapplication1.Selection.Font.Size := 14;
  Wordapplication1.Selection.Font.Name := '宋体';
  Wordapplication1.Selection.TypeParagraph;
  Wordapplication1.Selection.TypeParagraph;
  Wordapplication1.Selection.ParagraphFormat.Alignment := wdAlignParagraphJustify;
  Wordapplication1.Selection.TypeText(' '+trim(dbmemo1.text));
  //正文
   ... ...
  6、插入表格
  Wordapplication1.Selection.Font.Size :=10;
  adoquery2.Active:=false;
  adoquery2.active:=true;
  doc:=Wordapplication1.activedocument;
  counts:=adoquery2.RecordCount;
  //记录数决定表格的行数
  t:=doc.tables.Add(Wordapplication1.selection.range,counts+1,5);//5列
  t.cell(1,1).range.text:= '单位';
  t.Cell(1,1).Width:=120;
  t.cell(1,1).range.Paragraphs.Alignment:= wdAlignParagraphCenter;
  t.cell(1,2).range.text:= '姓名';
   ... ...
  //依次写入其他字段的表头
  for i:=2 to counts+1 do
  begin
  t.cell(i,1).range.text:=adoquery2.field
  byname('dw').asstring;
  t.Cell(i,1).Width:=120;
  t.cell(i,1).range.Paragraphs.Alignment:=
   wdAlignParagraphCenter;
  t.cell(i,2).range.text:=adoquery2.field
  byname('xm').asstring;
  ... ...
  Adoquery2.next;
  End;
2011-07-27 20:31
快速回复:新手上路,求指导!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.023270 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved