1 创建Excel文件 要在Delphi中控制Excel,就必须用到OLE自动化。现在一般采用OLE2来创建OLE对象,当激活一个OLE对象时,服务器程序仅在容器程序内部激活,这就是所谓的“就地激活”(in-place activation)。 创建Excel文件时,先创建一个OLE对象,然后在对象中建立工作表worksheet,如函数createExcel所示:function createExcel:variant; var v:variant; sheet:variant; begin v:=createoleobject('Excel.Application');//创建OLE对象 v.visible:=true; v.workbooks.add(-4167); //添加工作表 v.workbooks[1].sheets[1].name:='test'; sheet:=v.workbooks[1].sheets['test']; return v; end; 2 数据表格控制 Excel表格的控制,主要包括数据的导入、修改;单元格的合并、边框的控制;表格的复制、粘贴等。当报表格式一定的情况下,表格的复制、粘贴显得尤为重要,这样,可以先制作一个文件模板,然后按照实际需要输出多页报表即可。 (1)数据的导入(importData)procedure importData; var I,j:integer; v:variant; begin v:=createExcel; //创建Excel文件test for I:=0 to maxcolumn do begin for j:=0 to maxrow do v.workbooks[1].sheets[1].cells[I,j]:=I*j; //导入数据 end; end; (2)单元格的合并、边框的控制(lineStylecontrol) 单元格的合并,是在选定合并范围的情况下进行的。边框控制可以操作边框线条的是否显示。其他方式的控制,可以仿照下面过程进行。procedure lineStylecontrol; var v,sheet,range:variant; begin v:=createExecl; sheet:= v.workbooks[1].sheets[1]; range:=sheet.range[sheet.cells[1,1],sheet.cells[39,30]];//选定表格 range.select; range.merge; //合并单元格 range.borders.linestyle:=xlcontinuous; //置边框线可见 range.font.size:=9; //改变表格内文本字体大小 end;
(3)表格的复制与粘贴(copyandPaste)procedure copyandPaste; var v,sheet,range:variant; begin v:=createExecl; sheet:= v.workbooks[1].sheets[1]; range:=sheet.range[sheet.cells[1,1],sheet.cells[39,30]]; range.select; //选定要复制的表格 range.copy; //复制选定的表格 sheet.range[sheet.cells[40,1],sheet.cells[40,1]].select; //选择要粘贴的位置 sheet.paste; //粘贴表格 end; 3 文件的保存 文件保存是在创建文件的基础上进行的,过程saveFile说明了文件保存过程中应该注意的问题:procedure saveFile; var sheet,v:variant; begin v:=createExcel; if savedialog.execute then begin v.workbooks[1].saveas(savedialog.FileName);//保存文件 v.workbooks[1].close; //关闭工作表 v.quit; //关闭Excel v := unassigned; end; end;
var i,j,F:integer; s:string; begin try ExcelApp:=CreateOleObject('Excel.Application'); Workbook:=CreateOleobject('Excel.Sheet'); except Application.MessageBox('无法运行Excel,请确认是否已安装 Office 软件!','提示',Mb_OK+MB_IconWarning); end; ExcelApp.Visible := true; //增加一个工作表 Workbook:=ExcelApp.workBooks.Add; //单元格合并 Workbook.worksheets[1].range['A1:K1'].Merge(True); //单元格居中 Workbook.worksheets[1].range['A1:K2'].HorizontalAlignment := $FFFFEFF4; //报表头 Workbook.WorkSheets[1].Cells[1,1].Value :=Lbl_Title.Caption; //表头 J := 2; with AdoQy_GongGong do begin for I:=1 to Fields.Count do Workbook.worksheets[1].cells[J,I].value:=Fields[I-1].DisplayName; // Workbook.worksheets[1].Range['A1:J2'].Font.Color := clBlue; //字体 Workbook.worksheets[1].Range['A1:K1'].Font.Name := '隶书'; //字号 Workbook.worksheets[1].Range['A1:K1'].Font.Size := 18; Inc(J); First; while not eof do begin for I:=1 to fields.Count do begin Workbook.worksheets[1].cells.Item[j,i]:=Fields[i-1].AsString; end; Next; Inc(J); end; J:=FieldCount; s := 'A3:I'+ IntToStr(j); s := 'A1:L'+ IntToStr(j+2); Try For F:=0 to J-1 do Workbook.worksheets[1].Columns[F+1].ColumnWidth := DBGD_GongGongWS.Columns[F].Width/5; Except end; Workbook.worksheets[1].Rows[1].RowHeight := 30; //报表头居中 // Workbook.worksheets[1].Rows[1].VerticalAlignment := $FFFFEFF4; //设置数据行字体 // s:='A1:L'+inttostr(UdQuery1.RecordCount-2); Workbook.worksheets[1].Range[s].Font.Name := '仿宋'; //划表线 case J of 9:s := 'A2:I'+ IntToStr(AdoQY_gongGong.recordcount+2); 10:s := 'A2:J'+ IntToStr(AdoQY_gongGong.recordcount+2); 11:s := 'A2:K'+ IntToStr(AdoQY_gongGong.recordcount+2); 15:s := 'A2:O'+ IntToStr(AdoQY_gongGong.recordcount+2); End; Workbook.worksheets[1].Range[s].Borders.LineStyle := 1; //设置页面 // Workbook.WorkSheets[1].PageSetup.CenterHorizontally := true; // Workbook.worksheets[1].pagesetup.PrintTitleRows := 'A1'; //Workbook.WorkSheets[1].PageSetup.PaperSize := $9; end; 在Use中增加ComObj
创建Excel文件时,先创建一个OLE对象,然后在对象中建立工作表worksheet,如函数createExcel所示:function createExcel:variant;
var
v:variant;
sheet:variant;
begin
v:=createoleobject('Excel.Application');//创建OLE对象
v.visible:=true;
v.workbooks.add(-4167); //添加工作表
v.workbooks[1].sheets[1].name:='test';
sheet:=v.workbooks[1].sheets['test'];
return v;
end; 2 数据表格控制 Excel表格的控制,主要包括数据的导入、修改;单元格的合并、边框的控制;表格的复制、粘贴等。当报表格式一定的情况下,表格的复制、粘贴显得尤为重要,这样,可以先制作一个文件模板,然后按照实际需要输出多页报表即可。 (1)数据的导入(importData)procedure importData;
var
I,j:integer;
v:variant;
begin
v:=createExcel; //创建Excel文件test
for I:=0 to maxcolumn do
begin
for j:=0 to maxrow do
v.workbooks[1].sheets[1].cells[I,j]:=I*j; //导入数据
end;
end; (2)单元格的合并、边框的控制(lineStylecontrol) 单元格的合并,是在选定合并范围的情况下进行的。边框控制可以操作边框线条的是否显示。其他方式的控制,可以仿照下面过程进行。procedure lineStylecontrol;
var
v,sheet,range:variant;
begin
v:=createExecl;
sheet:= v.workbooks[1].sheets[1];
range:=sheet.range[sheet.cells[1,1],sheet.cells[39,30]];//选定表格
range.select;
range.merge; //合并单元格
range.borders.linestyle:=xlcontinuous; //置边框线可见
range.font.size:=9; //改变表格内文本字体大小
end;
var
v,sheet,range:variant;
begin
v:=createExecl;
sheet:= v.workbooks[1].sheets[1];
range:=sheet.range[sheet.cells[1,1],sheet.cells[39,30]];
range.select; //选定要复制的表格
range.copy; //复制选定的表格
sheet.range[sheet.cells[40,1],sheet.cells[40,1]].select; //选择要粘贴的位置
sheet.paste; //粘贴表格
end; 3 文件的保存 文件保存是在创建文件的基础上进行的,过程saveFile说明了文件保存过程中应该注意的问题:procedure saveFile;
var
sheet,v:variant;
begin
v:=createExcel;
if savedialog.execute then
begin
v.workbooks[1].saveas(savedialog.FileName);//保存文件
v.workbooks[1].close; //关闭工作表
v.quit; //关闭Excel
v := unassigned;
end;
end;
i,j,F:integer;
s:string;
begin
try
ExcelApp:=CreateOleObject('Excel.Application');
Workbook:=CreateOleobject('Excel.Sheet');
except
Application.MessageBox('无法运行Excel,请确认是否已安装 Office 软件!','提示',Mb_OK+MB_IconWarning);
end;
ExcelApp.Visible := true;
//增加一个工作表
Workbook:=ExcelApp.workBooks.Add;
//单元格合并
Workbook.worksheets[1].range['A1:K1'].Merge(True);
//单元格居中
Workbook.worksheets[1].range['A1:K2'].HorizontalAlignment := $FFFFEFF4;
//报表头
Workbook.WorkSheets[1].Cells[1,1].Value :=Lbl_Title.Caption;
//表头
J := 2;
with AdoQy_GongGong do
begin
for I:=1 to Fields.Count do
Workbook.worksheets[1].cells[J,I].value:=Fields[I-1].DisplayName;
// Workbook.worksheets[1].Range['A1:J2'].Font.Color := clBlue;
//字体
Workbook.worksheets[1].Range['A1:K1'].Font.Name := '隶书';
//字号
Workbook.worksheets[1].Range['A1:K1'].Font.Size := 18;
Inc(J);
First;
while not eof do
begin
for I:=1 to fields.Count do
begin
Workbook.worksheets[1].cells.Item[j,i]:=Fields[i-1].AsString;
end;
Next;
Inc(J);
end;
J:=FieldCount;
s := 'A3:I'+ IntToStr(j);
s := 'A1:L'+ IntToStr(j+2);
Try
For F:=0 to J-1 do
Workbook.worksheets[1].Columns[F+1].ColumnWidth := DBGD_GongGongWS.Columns[F].Width/5;
Except
end;
Workbook.worksheets[1].Rows[1].RowHeight := 30;
//报表头居中
// Workbook.worksheets[1].Rows[1].VerticalAlignment := $FFFFEFF4;
//设置数据行字体
// s:='A1:L'+inttostr(UdQuery1.RecordCount-2);
Workbook.worksheets[1].Range[s].Font.Name := '仿宋';
//划表线
case J of
9:s := 'A2:I'+ IntToStr(AdoQY_gongGong.recordcount+2);
10:s := 'A2:J'+ IntToStr(AdoQY_gongGong.recordcount+2);
11:s := 'A2:K'+ IntToStr(AdoQY_gongGong.recordcount+2);
15:s := 'A2:O'+ IntToStr(AdoQY_gongGong.recordcount+2);
End;
Workbook.worksheets[1].Range[s].Borders.LineStyle := 1;
//设置页面
// Workbook.WorkSheets[1].PageSetup.CenterHorizontally := true;
// Workbook.worksheets[1].pagesetup.PrintTitleRows := 'A1';
//Workbook.WorkSheets[1].PageSetup.PaperSize := $9;
end;
在Use中增加ComObj