在form中将数据打印到EXCEL文件(单元格合并、改变字体大小等操作)
[标题]在form中将数据打印到EXCEL文件的一些其他问题，请高手帮忙解决！
[发贴人]lizhiqiang
[分类]FORM分类.输出成EXCEL
--------------------------------------------
看过有关 关于数据打印到EXCEL文件的问题，现在的问题是：当数据输出倒Excel后，怎样根据生成数据的行列数，在Excel内自动画出单元格表格（线），怎样根据数据分组情况，进行单元格合并、改变字体大小等操作(通过程序自动实现！)?请高手帮忙解决？
--------------------------------------------
本文整理并转载自：阿莫OracleDeveloper论坛(http://www.oradev.net)
第二來源http://oracledev.5d6d.com/thread-8835-1-1.html
/******************************************************************/
| Excel文件排版 |
/******************************************************************/
--EXCEL排版，配置合并单元格
Procedure SP_ExcelMergeSet(
Sheet IN OUT OLE2.obj_type,--工作表对象
P_Row1 IN NUMBER, --起始单元格行坐标
P_Col1 IN NUMBER, --起始单元格列坐标
P_Row2 IN NUMBER, --终止单元格行坐标
P_Col2 IN NUMBER, --终止单元格列坐标
P_Type In Number:=1 --是否合并，1：合并；0，不合并
)
Is
CellStart ole2.obj_type;
CellEnd ole2.obj_type;
Rang ole2.Obj_type;
args_End ole2.list_type;
args_Rang ole2.list_type;
args_Start ole2.list_type;
Begin
--设置起始单元格对象 CellStart
args_Start:=ole2.create_arglist;
ole2.add_arg(args_Start,P_Row1);
ole2.add_arg(args_Start,P_col1);
CellStart:=ole2.get_obj_property(sheet,'Cells',args_Start);
--设置终止单元格对象 CellEnd
args_End:=ole2.create_arglist;
ole2.add_arg(args_End,P_Row2);
ole2.add_arg(args_End,P_Col2);
CellEnd:=ole2.get_obj_property(sheet,'Cells',args_End);
--设置排版单元格对象 Rang
args_Rang:=ole2.create_arglist;
ole2.add_arg(args_Rang,FN_Get26Change(P_Col1)||P_Row1||':'||Fn_Get26Change(P_Col2)||P_Row2);
--ole2.add_arg_Obj(args_Rang,CellStart);
--ole2.add_arg_Obj(args_Rang,CellEnd);
Rang:=ole2.get_obj_property(sheet,'Range',args_Rang);
--排版-合并单元格
ole2.Set_property(Rang,'MergeCells',1); --设置合并单元格
--释放对象
ole2.destroy_arglist(args_Start);
ole2.destroy_arglist(args_End);
ole2.destroy_arglist(args_Rang);
ole2.release_obj(Rang);
ole2.release_obj(CellStart);
ole2.release_obj(CellEnd);
Null;
end;
--EXCEL排版，设置分页线
Procedure SP_ExcelSetPage(
Sheet IN OUT OLE2.obj_type,--工作表对象
P_Col IN NUMBER --单元格行坐标
)
Is
--定义单元格对象
Cell ole2.obj_type;
args ole2.list_type;
args_Page ole2.list_type;
--定义分页对象
PageRow Ole2.Obj_Type;
Begin
--配置起始单元格行对象
args:=ole2.create_arglist;
ole2.add_arg(args,P_Col);
PageRow:=ole2.get_obj_property(sheet,'Rows',args);
--设置分页符
ole2.Set_Property(PageRow,'PageBreak',-4135);
--释放对象
ole2.destroy_arglist(args);
ole2.destroy_arglist(args_Page);
ole2.release_obj(Cell);
ole2.release_obj(PageRow);
End;
--EXCEL排版，设置行高
Procedure SP_ExcelSetRowHeight(
Sheet IN OUT OLE2.obj_type,--工作表对象
P_Row1 IN NUMBER, --起始单元格行坐标
P_Row2 IN NUMBER, --终止单元格行坐标
P_RowHeight In Number --行高
)
Is
CellStart ole2.obj_type;
args_Start ole2.list_type;
CellEnd ole2.obj_type;
args_End ole2.list_type;
Args_Rang Ole2.List_Type;
Rang Ole2.Obj_Type;
Begin
--设置起始单元格对象 CellStart
args_Start:=ole2.create_arglist;
ole2.add_arg(args_Start,P_Row1);
ole2.add_arg(args_Start,1);
CellStart:=ole2.get_obj_property(sheet,'Cells',args_Start);
--设置终止单元格对象 CellEnd
args_End:=ole2.create_arglist;
ole2.add_arg(args_End,P_Row2);
ole2.add_arg(args_End,1);
CellEnd:=ole2.get_obj_property(sheet,'Cells',args_End);
--设置排版单元格对象 Rang
args_Rang:=ole2.create_arglist;
ole2.add_arg(args_Rang,FN_Get26Change(1)||P_Row1||':'||Fn_Get26Change(1)||P_Row2);
--ole2.add_arg_Obj(args_Rang,CellStart);
--ole2.add_arg_Obj(args_Rang,CellEnd);
Rang:=ole2.get_obj_property(sheet,'Range',args_Rang);
--单元格排版
ole2.Set_property(Rang,'RowHeight',P_RowHeight); --设置行宽
--释放对象
ole2.destroy_arglist(args_Start);
ole2.destroy_arglist(args_End);
ole2.destroy_arglist(args_Rang);
ole2.release_obj(CellStart);
ole2.release_obj(CellEnd);
ole2.release_obj(Rang);
End;
--EXCEL排版，设置列宽
Procedure SP_ExcelSetColumnWeight(
Sheet IN OUT OLE2.obj_type,--工作表对象
P_Col1 IN NUMBER, --起始单元格列坐标
P_Col2 IN NUMBER, --终止单元格列坐标
P_ColumnWeight In Number --列宽
)
Is
CellStart ole2.obj_type;
args_Start ole2.list_type;
CellEnd ole2.obj_type;
args_End ole2.list_type;
Args_Rang Ole2.List_Type;
Rang Ole2.Obj_Type;
Begin
--设置起始单元格对象 CellStart
args_Start:=ole2.create_arglist;
ole2.add_arg(args_Start,1);
ole2.add_arg(args_Start,P_Col1);
CellStart:=ole2.get_obj_property(sheet,'Cells',args_Start);
--设置终止单元格对象 CellEnd
args_End:=ole2.create_arglist;
ole2.add_arg(args_End,1);
ole2.add_arg(args_End,P_Col2);
CellEnd:=ole2.get_obj_property(sheet,'Cells',args_End);
--设置排版单元格对象 Rang
args_Rang:=ole2.create_arglist;
ole2.add_arg(args_Rang,FN_Get26Change(P_col1)||'1'||':'||Fn_Get26Change(P_Col2)||'1');
Rang:=ole2.get_obj_property(sheet,'Range',args_Rang);
--单元格排版
ole2.Set_property(Rang,'ColumnWidth',P_ColumnWeight); --设置列宽
--ole2.Set_property(Rang,'VerticalAlignment',3); --设置垂直对象，居中
--ole2.Set_property(Rang,'HorizontalAlignment',3); --设置水平对齐，居中
--释放对象
ole2.destroy_arglist(args_Start);
ole2.destroy_arglist(args_End);
ole2.destroy_arglist(args_Rang);
ole2.release_obj(CellStart);
ole2.release_obj(CellEnd);
ole2.release_obj(Rang);
End;
--EXCEL排版，设置对齐方式
Procedure SP_ExcelSetAlign(
Sheet IN OUT OLE2.obj_type,--工作表对象
P_Row1 IN NUMBER, --起始单元格列坐标
P_Col1 IN NUMBER, --起始单元格行坐标
P_Row2 IN NUMBER, --终止单元格列坐标
P_Col2 IN NUMBER, --终止单元格行坐标
P_VerticalAlign In Number:=3, --垂直方向对齐模式，0：两端对齐；1：向上；2：向下；3：居中
P_HorizontalAlign In Number:=3 --水平方向对齐模式，0：两端对齐；1：向左；2：向右；3：居中
)
Is
CellStart ole2.obj_type;
args_Start ole2.list_type;
CellEnd ole2.obj_type;
args_End ole2.list_type;
Args_Rang Ole2.List_Type;
Rang Ole2.Obj_Type;
P_Vertical Number;
P_Horizontal Number;
Begin
--设置起始单元格对象 CellStart
args_Start:=ole2.create_arglist;
ole2.add_arg(args_Start,P_Row1);
ole2.add_arg(args_Start,P_Col1);
CellStart:=ole2.get_obj_property(sheet,'Cells',args_Start);
--设置终止单元格对象 CellEnd
args_End:=ole2.create_arglist;
ole2.add_arg(args_End,P_Row2);
ole2.add_arg(args_End,P_Col2);
CellEnd:=ole2.get_obj_property(sheet,'Cells',args_End);
--设置排版单元格对象 Rang
args_Rang:=ole2.create_arglist;
ole2.add_arg(args_Rang,FN_Get26Change(P_Col1)||P_Row1||':'||Fn_Get26Change(P_Col2)||P_Row2);
--ole2.add_arg_Obj(args_Rang,CellStart);
--ole2.add_arg_Obj(args_Rang,CellEnd);
Rang:=ole2.get_obj_property(sheet,'Range',args_Rang);
--单元格排版
If P_VerticalAlign=0 Then
P_Vertical:=-4130; --两端对齐
ElsIf P_VerticalAlign=1 Then
P_Vertical:=-4160; --向左对齐
ElsIf P_VerticalAlign=2 Then
P_Vertical:=-4107; --向右对齐
ElsIf P_VerticalAlign=3 Then
P_Vertical:=-4108; --居中对齐
End If;
If P_HorizontalAlign=0 Then
P_Horizontal:=1; --两端对齐
ElsIf P_HorizontalAlign=1 then
P_Horizontal:=-4131; --向上对齐
ElsIf P_HorizontalAlign=2 Then
P_Horizontal:=-4152; --向下对齐
ElsIf P_HorizontalAlign=3 Then
P_Horizontal:=-4108; --居中对齐
End If;
ole2.Set_property(Rang,'VerticalAlignment',P_Vertical); --设置垂直对象，居中
ole2.Set_property(Rang,'HorizontalAlignment',P_Horizontal); --设置水平对齐，居中
--释放对象
ole2.destroy_arglist(args_Start);
ole2.destroy_arglist(args_End);
ole2.destroy_arglist(args_Rang);
ole2.release_obj(CellStart);
ole2.release_obj(CellEnd);
ole2.release_obj(Rang);
End;
--EXCEL排版，设置自动换行
Procedure SP_AutoNewLine(
Sheet IN OUT OLE2.obj_type,--工作表对象
P_Row1 IN NUMBER, --起始单元格列坐标
P_Col1 IN NUMBER, --起始单元格行坐标
P_Row2 IN NUMBER, --终止单元格列坐标
P_Col2 IN NUMBER, --终止单元格行坐标
P_Type In Number:=0 --是否自动换行，1：自动换行，0：不自动换行
)
Is
CellStart ole2.obj_type;
args_Start ole2.list_type;
CellEnd ole2.obj_type;
args_End ole2.list_type;
Args_Rang Ole2.List_Type;
Rang Ole2.Obj_Type;
Begin
--设置起始单元格对象 CellStart
args_Start:=ole2.create_arglist;
ole2.add_arg(args_Start,P_Row1);
ole2.add_arg(args_Start,P_Col1);
CellStart:=ole2.get_obj_property(sheet,'Cells',args_Start);
--设置终止单元格对象 CellEnd
args_End:=ole2.create_arglist;
ole2.add_arg(args_End,P_Row2);
ole2.add_arg(args_End,P_Col2);
CellEnd:=ole2.get_obj_property(sheet,'Cells',args_End);
--设置排版单元格对象 Rang
args_Rang:=ole2.create_arglist;
ole2.add_arg(args_Rang,FN_Get26Change(P_Col1)||P_Row1||':'||Fn_Get26Change(P_Col2)||P_Row2);
--ole2.add_arg_Obj(args_Rang,CellStart);
--ole2.add_arg_Obj(args_Rang,CellEnd);
Rang:=ole2.get_obj_property(sheet,'Range',args_Rang);
ole2.Set_property(Rang,'WrapText',P_Type); --设置自动换行
--释放对象
ole2.destroy_arglist(args_Start);
ole2.destroy_arglist(args_End);
ole2.destroy_arglist(args_Rang);
ole2.release_obj(CellStart);
ole2.release_obj(CellEnd);
ole2.release_obj(Rang);
End;
--EXCEL排版，配置边框线
Procedure SP_ExcelBorderSet_Old(
Sheet IN OUT OLE2.obj_type, --工作表对象
P_Row1 IN NUMBER, --起始单元格行坐标
P_Col1 IN NUMBER, --起始单元格列坐标
P_Row2 IN NUMBER, --终止单元格行坐标
P_Col2 IN NUMBER, --终止单元格列坐标
P_Type In Number:=1 --设置是否加边框，1：加边框；0：不加边框
)
Is
--定义单元格对象
CellStart ole2.obj_type;
args_Start ole2.list_type;
CellEnd ole2.obj_type;
args_End ole2.list_type;
args_Rang ole2.list_type;
Rang ole2.Obj_type;
--定义边框对象
Args_Border_AllOut Ole2.List_Type; --5
Args_Border_AllIn Ole2.List_Type; --6
Args_Border_OutLeft Ole2.List_Type; --7
Args_Border_OutTop Ole2.List_Type; --8
Args_Border_OutBottom Ole2.List_Type; --9
Args_Border_OutRight Ole2.List_Type; --10
Args_Border_InVertical Ole2.List_Type; --11
Args_Border_InHorizontal Ole2.List_Type; --12
border_AllIn ole2.obj_type;
border_AllOut ole2.obj_type;
border_OutLeft ole2.obj_type;
border_OutTop ole2.obj_type;
border_OutBottom ole2.obj_type;
border_OutRight ole2.obj_type;
border_InVertical ole2.obj_type;
border_InHorizontal ole2.obj_type;
Begin
--配置起始单元格对象 CellStart
args_Start:=ole2.create_arglist;
ole2.add_arg(args_Start,P_Row1);
ole2.add_arg(args_Start,P_Col1);
CellStart:=ole2.get_obj_property(sheet,'Cells',args_Start);
--配置终止单元格对象 CellEnd
args_End:=ole2.create_arglist;
ole2.add_arg(args_End,P_Row2);
ole2.add_arg(args_End,P_Col2);
CellEnd:=ole2.get_obj_property(sheet,'Cells',args_End);
--配置排版单元格对象 Rang
args_Rang:=ole2.create_arglist;
ole2.add_arg(args_Rang,FN_Get26Change(P_Col1)||P_Row1||':'||Fn_Get26Change(P_Col2)||P_Row2);
--ole2.add_arg_Obj(args_Rang,CellStart);
--ole2.add_arg_Obj(args_Rang,CellEnd);
Rang:=ole2.get_obj_property(sheet,'Range',args_Rang);
--配置边框线对象 BORDERline
Args_Border_AllOut:=Ole2.Create_ArgList; --所有外框，用于初始化
Ole2.Add_Arg(Args_Border_AllOut,5);
Args_Border_AllIn :=Ole2.Create_ArgList;--所有内框，用于初始化
Ole2.Add_Arg(Args_Border_AllIn,6);
Args_Border_OutLeft:=Ole2.Create_ArgList;--外框左边
Ole2.Add_Arg(Args_Border_OutLeft,7);
Args_Border_OutTop:=Ole2.Create_ArgList;--外框上边
Ole2.Add_Arg(Args_Border_OutTop,8);
Args_Border_OutBottom:=Ole2.Create_ArgList;--外框下边
Ole2.Add_Arg(Args_Border_OutBottom,9);
Args_Border_OutRight:=Ole2.Create_ArgList;--外框右边
Ole2.Add_Arg(Args_Border_OutRight,10);
Args_Border_InVertical:=Ole2.Create_ArgList;--内框垂直
Ole2.Add_Arg(Args_Border_InVertical,11);
Args_Border_InHorizontal:=Ole2.Create_ArgList;--内框水平垂直
Ole2.Add_Arg(Args_Border_InHorizontal,12);
Border_AllOut:=ole2.Get_Obj_Property(Rang,'Borders',Args_Border_AllOut);
Border_AllIn:=ole2.Get_Obj_Property(Rang,'Borders',Args_Border_AllIn);
Border_OutLeft:=ole2.Get_Obj_Property(Rang,'Borders',Args_Border_OutLeft);
Border_OutTop:=ole2.Get_Obj_Property(Rang,'Borders',Args_Border_OutTop);
Border_OutBottom:=ole2.Get_Obj_Property(Rang,'Borders',Args_Border_OutBottom);
Border_OutRight:=ole2.Get_Obj_Property(Rang,'Borders',Args_Border_OutRight);
Border_InVertical:=ole2.Get_Obj_Property(Rang,'Borders',Args_Border_InVertical);
Border_InHorizontal:=ole2.Get_Obj_Property(Rang,'Borders',Args_Border_InHorizontal);
--设置边框线
--初始化边框线
ole2.Set_property(Border_AllIn,'LineStyle',0); --初始化所有内边框线
ole2.Set_property(Border_AllOut,'LineStyle',0); --初始化所有外边框线
If P_Type=1 Then
--设置外框
ole2.Set_property(Border_OutLeft,'LineStyle',1); --设置外边框左边
ole2.Set_property(Border_OutRight,'LineStyle',1); --设置外边框右边
ole2.Set_property(Border_OutTop,'LineStyle',1); --设置外边框上边
ole2.Set_property(Border_OutBottom,'LineStyle',1); --设置外边框下边
--设置内框
If Not P_Col1=P_Col2 Then --垂直单元格不相同，才需要设置内框垂直边框线
ole2.Set_property(Border_InVertical,'LineStyle',1); --设置内框垂直边框线
End If;
If Not P_Row1=P_Row2 Then --水平单元格不相同，才需要设置内框水平边框线
ole2.Set_property(Border_InHorizontal,'LineStyle',1); --设置内框水平边框线
End If;
End If;
--释放对象
ole2.destroy_arglist(args_Start);
ole2.destroy_arglist(args_End);
ole2.destroy_arglist(args_Rang);
ole2.release_obj(CellStart);
ole2.release_obj(CellEnd);
ole2.release_obj(Rang);
--定义边框对象
ole2.destroy_arglist(Args_Border_AllOut);
ole2.destroy_arglist(Args_Border_AllIn);
ole2.destroy_arglist(Args_Border_OutLeft);
ole2.destroy_arglist(Args_Border_OutTop);
ole2.destroy_arglist(Args_Border_OutBottom);
ole2.destroy_arglist(Args_Border_OutRight);
ole2.destroy_arglist(Args_Border_InVertical);
ole2.destroy_arglist(Args_Border_InHorizontal);
ole2.release_obj(border_AllIn);
ole2.release_obj(border_AllOut);
ole2.release_obj(border_OutLeft);
ole2.release_obj(border_OutTop);
ole2.release_obj(border_OutBottom);
ole2.release_obj(border_OutRight);
ole2.release_obj(border_InVertical);
ole2.release_obj(border_InHorizontal);
end;
--EXCEL排版，配置边框线(边框线可控制)
Procedure SP_ExcelBorderSet( Sheet IN OUT OLE2.obj_type,--工作表对象
P_Row1 IN NUMBER, --起始单元格行坐标 P_Col1 IN NUMBER, --起始单元格列坐标 P_Row2 IN NUMBER, --终止单元格行坐标
P_Col2 IN NUMBER, --终止单元格列坐标
P_OutType In Number:=1, --设置外部边框是否加边框线，1：加边框；0：不加边框 P_VerticalType In Number:=0, --设置内部纵向是否加边框线，1：加边框；0：不加边框 P_HorizontalType In Number:=0 --设置内部横向是否加边框线，1：加边框；0：不加边框 )
Is
--定义单元格对象
CellStart ole2.obj_type;
args_Start ole2.list_type;
CellEnd ole2.obj_type;
args_End ole2.list_type;
args_Rang ole2.list_type;
Rang ole2.Obj_type;
--定义边框对象
Args_Border_AllOut Ole2.List_Type; --5
Args_Border_AllIn Ole2.List_Type; --6
Args_Border_OutLeft Ole2.List_Type; --7
Args_Border_OutTop Ole2.List_Type; --8
Args_Border_OutBottom Ole2.List_Type; --9
Args_Border_OutRight Ole2.List_Type; --10
Args_Border_InVertical Ole2.List_Type; --11
Args_Border_InHorizontal Ole2.List_Type; --12
border_AllIn ole2.obj_type;
border_AllOut ole2.obj_type;
border_OutLeft ole2.obj_type;
border_OutTop ole2.obj_type;
border_OutBottom ole2.obj_type;
border_OutRight ole2.obj_type;
border_InVertical ole2.obj_type;
border_InHorizontal ole2.obj_type;
Begin
--配置起始单元格对象 CellStart
args_Start:=ole2.create_arglist;
ole2.add_arg(args_Start,P_Row1);
ole2.add_arg(args_Start,P_Col1);
CellStart:=ole2.get_obj_property(sheet,'Cells',args_Start);
--配置终止单元格对象 CellEnd
args_End:=ole2.create_arglist;
ole2.add_arg(args_End,P_Row2);
ole2.add_arg(args_End,P_Col2);
CellEnd:=ole2.get_obj_property(sheet,'Cells',args_End);
--配置排版单元格对象 Rang
args_Rang:=ole2.create_arglist;
ole2.add_arg(args_Rang,FN_Get26Change(P_Col1)||P_Row1||':'||Fn_Get26Change(P_Col2)||P_Row2);
--ole2.add_arg_Obj(args_Rang,CellStart);
--ole2.add_arg_Obj(args_Rang,CellEnd);
Rang:=ole2.get_obj_property(sheet,'Range',args_Rang);
--配置边框线对象 BORDERline
Args_Border_AllOut:=Ole2.Create_ArgList; --所有外框，用于初始化
Ole2.Add_Arg(Args_Border_AllOut,5);
Args_Border_AllIn :=Ole2.Create_ArgList;--所有内框，用于初始化
Ole2.Add_Arg(Args_Border_AllIn,6);
Args_Border_OutLeft:=Ole2.Create_ArgList;--外框左边
Ole2.Add_Arg(Args_Border_OutLeft,7);
Args_Border_OutTop:=Ole2.Create_ArgList;--外框上边
Ole2.Add_Arg(Args_Border_OutTop,8);
Args_Border_OutBottom:=Ole2.Create_ArgList;--外框下边
Ole2.Add_Arg(Args_Border_OutBottom,9);
Args_Border_OutRight:=Ole2.Create_ArgList;--外框右边
Ole2.Add_Arg(Args_Border_OutRight,10);
Args_Border_InVertical:=Ole2.Create_ArgList;--内框垂直
Ole2.Add_Arg(Args_Border_InVertical,11);
Args_Border_InHorizontal:=Ole2.Create_ArgList;--内框水平垂直
Ole2.Add_Arg(Args_Border_InHorizontal,12);
Border_AllOut:=ole2.Get_Obj_Property(Rang,'Borders',Args_Border_AllOut);
Border_AllIn:=ole2.Get_Obj_Property(Rang,'Borders',Args_Border_AllIn);
Border_OutLeft:=ole2.Get_Obj_Property(Rang,'Borders',Args_Border_OutLeft);
Border_OutTop:=ole2.Get_Obj_Property(Rang,'Borders',Args_Border_OutTop);
Border_OutBottom:=ole2.Get_Obj_Property(Rang,'Borders',Args_Border_OutBottom);
Border_OutRight:=ole2.Get_Obj_Property(Rang,'Borders',Args_Border_OutRight);
Border_InVertical:=ole2.Get_Obj_Property(Rang,'Borders',Args_Border_InVertical);
Border_InHorizontal:=ole2.Get_Obj_Property(Rang,'Borders',Args_Border_InHorizontal);
--设置边框线
--初始化边框线
ole2.Set_property(Border_AllIn,'LineStyle',0); --初始化所有内边框线
ole2.Set_property(Border_AllOut,'LineStyle',0); --初始化所有外边框线
If P_OutType=1 Then
--设置外框
ole2.Set_property(Border_OutLeft,'LineStyle',1); --设置外边框左边
ole2.Set_property(Border_OutRight,'LineStyle',1); --设置外边框右边
ole2.Set_property(Border_OutTop,'LineStyle',1); --设置外边框上边
ole2.Set_property(Border_OutBottom,'LineStyle',1); --设置外边框下边
End If;
If P_VerticalType=1 Then
--设置内框纵向
If Not P_Col1=P_Col2 Then --垂直单元格不相同，才需要设置内框垂直边框线
ole2.Set_property(Border_InVertical,'LineStyle',1); --设置内框垂直边框线
End If;
End If;
If P_HorizontalType=1 Then
If Not P_Row1=P_Row2 Then --水平单元格不相同，才需要设置内框水平边框线
ole2.Set_property(Border_InHorizontal,'LineStyle',1); --设置内框水平边框线
End If;
End If;
--释放对象
ole2.destroy_arglist(args_Start);
ole2.destroy_arglist(args_End);
ole2.destroy_arglist(args_Rang);
ole2.release_obj(CellStart);
ole2.release_obj(CellEnd);
ole2.release_obj(Rang);
--定义边
ole2.destroy_arglist(Args_Border_AllIn);
ole2.destroy_arglist(Args_Border_OutLeft);
ole2.destroy_arglist(Args_Border_OutTop);
ole2.destroy_arglist(Args_Border_OutBottom);
ole2.destroy_arglist(Args_Border_OutRight);
ole2.destroy_arglist(Args_Border_InVertical);
ole2.destroy_arglist(Args_Border_InHorizontal);
ole2.release_obj(border_AllIn);
ole2.release_obj(border_AllOut);
ole2.release_obj(border_OutLeft);
ole2.release_obj(border_OutTop);
ole2.release_obj(border_OutBottom);
ole2.release_obj(border_OutRight);
ole2.release_obj(border_InVertical);
ole2.release_obj(border_InHorizontal);
end;
--EXCEL排版，配置单元格数值类型
Procedure SP_ExcelCellType(Sheet IN OUT OLE2.obj_type,--工作表对象
P_Row1 IN NUMBER, --起始单元格行坐标
P_Col1 IN NUMBER, --起始单元格列坐标
P_Row2 IN NUMBER, --终止单元格行坐标
P_Col2 IN NUMBER, --终止单元格列坐标
P_Type In Varchar2:='Char'
--设置是否加边框，'char'字符型，'date'日期型,'number999'999数值型，'Number.99' 999.99数值型，'Number9,999.99' 9,999.99数值型
)
Is
CellStart ole2.obj_type;
args_Start ole2.list_type;
CellEnd ole2.obj_type;
args_End ole2.list_type;
Args_Rang Ole2.List_Type;
Rang Ole2.Obj_Type;
Begin
--设置起始单元格对象 CellStart
args_Start:=ole2.create_arglist;
ole2.add_arg(args_Start,P_Row1);
ole2.add_arg(args_Start,P_Col1);
CellStart:=ole2.get_obj_property(sheet,'Cells',args_Start);
--设置终止单元格对象 CellEnd
args_End:=ole2.create_arglist;
ole2.add_arg(args_End,P_Row2);
ole2.add_arg(args_End,P_Col2);
CellEnd:=ole2.get_obj_property(sheet,'Cells',args_End);
--设置排版单元格对象 Rang
args_Rang:=ole2.create_arglist;
ole2.add_arg(args_Rang,FN_Get26Change(P_Col1)||P_Row1||':'||Fn_Get26Change(P_Col2)||P_Row2);
--ole2.add_arg_Obj(args_Rang,CellStart);
--ole2.add_arg_Obj(args_Rang,CellEnd);
Rang:=ole2.get_obj_property(sheet,'Range',args_Rang);
--设置单元格类型
if Upper(P_Type)='CHAR' Then
ole2.Set_property(Rang,'NumberFormatLocal','@'); --设置单元格类型（通用型）
ElsIf Upper(P_Type)='DATE' Then
ole2.Set_property(Rang,'NumberFormatLocal','yyyy.mm.dd'); --设置单元格类型（日期型）
ElsIf Upper(P_Type)='NUMBER999' Then
ole2.Set_property(Rang,'NumberFormatLocal','0_ '); --设置单元格类型（数值型999）
ElsIf Upper(P_Type)='NUMBER999.99' Then
ole2.Set_property(Rang,'NumberFormatLocal','0.00_ '); --设置单元格类型（数值型999.99）
ElsIf Upper(P_Type)='NUMBER9,999.99' Then
ole2.Set_property(Rang,'NumberFormatLocal','#,##0.00'); --设置单元格类型（数值型999,999.99）
End If;
--释放对象
ole2.destroy_arglist(args_Start);
ole2.destroy_arglist(args_End);
ole2.destroy_arglist(args_Rang);
ole2.release_obj(CellStart);
ole2.release_obj(CellEnd);
ole2.release_obj(Rang);
End;
--EXCEL排版，打印设置
Procedure SP_ExcelPrintSet(Sheet IN OUT OLE2.obj_type, --工作表对象
P_PrintTitleRows In VarChar2:='$1/:$1', --每页标题行
P_RightFooter In VarChar2:='&/;P/&N' , --页脚(打印页数/总页数)
P_RightHeader In VarChar2:='&D &T', --设置页眉打印日期和时间
P_LeftMargin In Number:=12, --设置左边距
P_RightMargin In Number:=12, --设置右边距
P_TopMargin In Number:=20, --设置上边距
P_BottomMargin In Number:=20, --设置下边距
P_HeaderMargin In Number:=12, --设置页眉边距
P_FooterMargin In Number:=12, --设置页脚边距
P_CenterHorizontally In Number:=1, --设置水平居中，1：水平居中，0：不水平居中
P_CenterVertically In Number:=1, --设置垂直居中，1：垂直居中，0：水垂直居中
P_Orientation In Number:=1, --设置打印方向，1：纵向打印，2：横向打印
P_Zoom In Number:=100 --设置打印比例
)
Is
PrintSet ole2.obj_type;
Begin
--设置打印设置对象 PrintSet
PrintSet:=ole2.get_obj_property(Sheet,'PageSetup');
--打印设置
ole2.Set_property(PrintSet,'PrintTitleRows',P_PrintTitleRows); --设置每页必须打印的行
ole2.Set_property(PrintSet,'RightFooter',P_RightFooter); --设置页脚打印页数/总页数
ole2.Set_property(PrintSet,'RightHeader',P_RightHeader); --设置页眉打印日期和时间
ole2.Set_property(PrintSet,'LeftMargin',P_LeftMargin); --设置左边距
ole2.Set_property(PrintSet,'RightMargin',P_RightMargin); --设置右边距
ole2.Set_property(PrintSet,'TopMargin',P_TopMargin); --设置上边距
ole2.Set_property(PrintSet,'BottomMargin',P_BottomMargin); --设置下边距
ole2.Set_property(PrintSet,'HeaderMargin',P_HeaderMargin); --设置页眉边距
ole2.Set_property(PrintSet,'FooterMargin',P_FooterMargin); --设置页脚边距
ole2.Set_property(PrintSet,'CenterHorizontally',P_CenterHorizontally); --设置水平居中
ole2.Set_property(PrintSet,'CenterVertically',P_CenterVertically); --设置垂直居中
ole2.Set_property(PrintSet,'Orientation',P_Orientation); --设置打印方向
ole2.Set_property(PrintSet,'Zoom',P_Zoom); --设置打印比例
--释放对象
ole2.release_obj(PrintSet);
end;
--EXCEL排版，字体设置
Procedure SP_ExcelFontSet(Sheet IN OUT OLE2.obj_type, --工作表对象
P_Row1 IN NUMBER, --起始单元格行坐标
P_Col1 IN NUMBER, --起始单元格列坐标
P_Row2 IN NUMBER, --终止单元格行坐标
P_Col2 IN NUMBER, --终止单元格列坐标
P_FontName In VarChar2 :='宋体', --字体名称
P_FontSize In Number :=12, --字体大小
P_FontBold In Number :=0, --是否粗体，1：粗体；0：不粗体
P_FontItalic In Number :=0 --是否斜体，1：斜体；0：不斜体
)
Is
CellStart ole2.obj_type;
args_Start ole2.list_type;
CellEnd ole2.obj_type;
args_End ole2.list_type;
args_Rang ole2.list_type;
Rang ole2.list_type;
Font Ole2.List_Type;
Begin
--设置起始单元格对象 CellStart
args_Start:=ole2.create_arglist;
ole2.add_arg(args_Start,P_Row1);
ole2.add_arg(args_Start,P_Col2);
CellStart:=ole2.get_obj_property(sheet,'Cells',args_Start);
--设置终止单元格对象 CellEnd
args_End:=ole2.create_arglist;
ole2.add_arg(args_End,P_Row2);
ole2.add_arg(args_End,P_Col2);
CellEnd:=ole2.get_obj_property(sheet,'Cells',args_End);
--设置排版单元格对象 Rang
args_Rang:=ole2.create_arglist;
ole2.add_arg(args_Rang,FN_Get26Change(P_Col1)||P_Row1||':'||Fn_Get26Change(P_Col2)||P_Row2);
--ole2.add_arg_Obj(args_Rang,CellStart);
--ole2.add_arg_Obj(args_Rang,CellEnd);
Rang:=ole2.get_obj_property(sheet,'Range',args_Rang);
--设置字体对象 FONT
Font:=ole2.get_obj_property(Rang,'font');
--设置字体
ole2.Set_property(font,'size',P_FontSize); --设置字体大小
ole2.Set_property(font,'Name',P_FontName); --设置字体名称
ole2.Set_property(font,'Bold',P_FontBold); --设置字体粗体
ole2.Set_property(font,'Italic',P_FontItalic); --设置字体斜体
--释放对象
ole2.destroy_arglist(args_Start);
ole2.destroy_arglist(args_End);
ole2.destroy_arglist(args_Rang);
ole2.release_obj(Font);
ole2.release_obj(Rang);
ole2.release_obj(CellStart);
ole2.release_obj(CellEnd);
end;
/******************************************************************/
| 保存Excel文件 |
/******************************************************************/
Procedure SP_SaveExcelFile( Appli IN OUT OLE2.obj_type,
Book IN OUT OLE2.obj_type,
Sheet IN OUT OLE2.obj_type,
FileName IN VARCHAR2
)
IS
args ole2.list_type;
BEGIN
--保存文件
args := ole2.create_arglist;
ole2.add_arg(args, FileName);
ole2.invoke(book, 'Save', args);
ole2.destroy_arglist(args);
END;
/******************************************************************/
| 写入数据至Excel文件 |
/******************************************************************/
PROCEDURE SP_WriteExcelFile( Sheet IN OUT OLE2.obj_type,
Val IN VARCHAR2,
X IN NUMBER,
Y IN NUMBER
)
IS
Cell ole2.obj_type;
args ole2.list_type;
BEGIN
--设置单元格
args:=ole2.create_arglist;
ole2.add_arg(args,X);
ole2.add_arg(args,Y);
cell:=ole2.get_obj_property(sheet,'cells',args);
ole2.destroy_arglist(args);
ole2.Set_property(cell,'value',Val);
ole2.release_obj(cell);
END;
PROCEDURE SP_SumCells( --列求和
Sheet IN OUT OLE2.obj_type,
X IN NUMBER,
Y IN NUMBER,
P_Row1 IN NUMBER, --起始单元格行坐标
P_Row2 IN NUMBER --终止单元格行坐标
)
IS
Cell ole2.obj_type;
args ole2.list_type;
BEGIN
--设置单元格
args:=ole2.create_arglist;
ole2.add_arg(args,X);
ole2.add_arg(args,Y);
cell:=ole2.get_obj_property(sheet,'cells',args);
ole2.destroy_arglist(args);
ole2.Set_property(cell,'value','=SUM('||FN_Get26Change(Y)||P_Row1||':'||FN_Get26Change(Y)||P_Row2||')');
ole2.release_obj(cell);
END;
在form中将数据打印到EXCEL文件(单元格合并、改变字体大小等操作)相关推荐
- Python 技术篇 - 操作excel实现单元格合并并居中实例演示，用openpyxl库为指定区域的单元格设置对齐样式和字体样式方法
Openpyxl 设置 excel 单元格合并.对齐样式和字体 第一章:openpyxl 操作 excel ① 设置单元格合并 ② 设置单元格居中对齐样式 ③ 设置单元格字体样式 第一章:openpy ...
- JAVA中将数据保存到EXCEL文件
java后端将数据库中数据或前端传来的数据保存到EXCEL文件中.代码中有详细注解. 依赖包 <dependency><groupId>org.apache.poi</g ...
- python实现excel相同条件单元格合并
在工作中遇到了合并具有相同条件的单元格合并的问题,python实现方法如下. 原始表格: import pandas as pd excelFile = r'C:/Users/excel文件名' df ...
- hutool导出excel做单元格合并
Hutool是一个Java工具类库,支持导出Excel.要实现单元格合并,可以使用Hutool中的ExcelUtil类中的mergeCells方法. 示例代码: ExcelUtil.mergeCell ...
- iOS 中将数据导出成Excel文件 ---- libxlsxwriter框架
1.使用cocoapods导入libxlsxwriter pod libxlsxwriter在桥接文件中导入头文件 #import <xlsxwriter.h> 2.创建文件路径 let ...
- java读取excel文件单元格英文出现乱码问题的解决方法
小编今天测试读取excel文件,并且取其中的几个单元格作为文件名称的时候,发现文件名出现了乱码,毫无疑问,肯定就是读取excel的时候,取出来就出现了乱码,如图所示 excel原单元格数据,如图所示 ...
- java excel里对角线,使用POI在excel文件单元格实现对角线
[java POI操作Excel文件(合并单元格.插入图片.超链接)] 查看POI的API可以发现HSSFBorderFormatting.setBoderDiagonal接口,尝试使用这个接口并没有 ...
- php实现excel单元格合并，字体加粗居中等操作
使用的是phpexcel,基本用的原生语法,所见即所得,直接复制下面代码,即可: // 引用phpexcel类$this->load->library('PHPExcel');// 创建对 ...
- Excel·VBA单元格合并、撤销合并
目录 1,合并选中单元格区域,并保留所有内容 举例 2,合并选中单元格区域,仅合并连续相同的值 3,撤销选中区域内的合并单元格,并对单元格赋值原值 举例 4,选中列向下合并连续空单元格 举例 1,合并 ...
最新文章
- CVPR 2020录用率十年最低，商汤官宣62篇入选
- Learning by doing 系列文章（之一）如何在 Python 中使用 epoll ?
- tensorflow中的正则化解决过拟合问题
- mysql乱码问题_mysql乱码问题
- oracle堆表和MySQL_聚簇索引对比|Oracle vs MySQL
- 2017.9.29 road 失败总结
- 小米9 Pro 5G评测：史上最低价5G手机
- python自动登录qq空间_python 利用splinter组件，自动登录QQ空间
- 不用ajax调用搞后台小技巧
- 工厂三兄弟之简单工厂模式（三）
- spring aop的简单使用
- Visio中插入公式
- export default 和 export 的使用方式（六）
- matlab四宫格画图_科学网—Matlab画图（一）：生成高质量的供发表和展示用的图 - 周建锋的博文...
- sqluldr2用法
- RTDS学习笔记——网口连接
- 五分钟学会安装电脑操作系统
- 【渝粤教育】国家开放大学2018年春季 8635-22T老年人中医体质辨识与养 参考试题
- STM8S003串口printf及帧判断
- s3c2410 2.6.22.1内核移植
热门文章
- 2021-04-09编程求1000以内的所有“完数”。所谓“完数”是指一个数恰好等于它的因子之和。例如，6是完数，因为6=1+2+3
- Java并发编程之CountDownLatch
- Egg - 中间件易错点和洋葱模型
- 一看就懂：时间复杂度与空间复杂度
- 1951年-2019年重庆天气分析
- Java导入导出图片
- 文章阅读Non-Salient Region Object Mining for Weakly Supervised Semantic Segmentation
- pix2pix算法笔记（精）
- PostgreSQL ODBC数据源设定 Windows 10 环境
- Linux下使用system函数获取命令执行返回结果