请问用delphi导数据到Excel时怎样合并单元格,并在合并的单元格上填上数据?谢谢!!

Question

请问用delphi导数据到Excel时怎样合并单元格,并在合并的单元格上填上数据?谢谢!!

Answer 1

with ExcelWorkSheet1 do     //将第一行的标题合并居中
    begin
      Columns.AutoFit;
      Cells.Item[1,1] := Title;
      Range[Cells.Item[1,1],Cells.Item[1,4]].HorizontalAlignment:=xlCenter;
      Range[Cells.Item[1,1],Cells.Item[1,4]].VerticalAlignment:=xlCenter;
      Range[Cells.Item[1,1],Cells.Item[1,4]].Select;
      Range[Cells.Item[1,1],Cells.Item[1,4]].Merge(Cells.Item[1,k]);    //合并单元格
      Cells.Item[1, 4].Font.Size :='16';
    end;

Answer 2

procedure TfrmSalaryTotal.prnToExcel;
var
  ExcelApp: Variant; 
beging
  ExcelApp.Workbooks[1].WorkSheets['Grid Data'].Paste;
  //合并标题
  ExcelApp.Workbooks[1].WorkSheets['Grid Data'].Range['a1:j1'].Merge;
  //合并主管处室
  ExcelApp.Workbooks[1].WorkSheets['Grid Data'].Range['a2:j2'].Merge;
  //合并单位
  //ExcelApp.Workbooks[1].WorkSheets['Grid Data'].Range['a3:a4'].Merge;
  //合并合计
  ExcelApp.Workbooks[1].WorkSheets['Grid Data'].Range['b3:d3'].Merge;
  //合并在职职工
  ExcelApp.Workbooks[1].WorkSheets['Grid Data'].Range['e3:g3'].Merge;
  //合并离退职工
  ExcelApp.Workbooks[1].WorkSheets['Grid Data'].Range['h3:j3'].Merge;  //合并页脚
  //Range:='a'+IntToStr(row+4)+':g'+IntToStr(row+4);
  //ExcelApp.Workbooks[1].WorkSheets['Grid Data'].Range[Range].Merge;
  //设置标题字体
  ExcelApp.Workbooks[1].WorkSheets['Grid Data'].Rows[1].Font.Name := '黑体';
  ExcelApp.Workbooks[1].WorkSheets['Grid Data'].Rows[1].Font.Size  := 14;
  ExcelApp.Workbooks[1].WorkSheets['Grid Data'].Rows[1].Font.Bold   := True;
end;

Answer 3

类　别:COM  &  ActiveX  
(一)  使用动态创建的方法  
首先创建  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;

Answer 4

(三) 使用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:='坐标轴说明';