How to Convert Oracle Database to Microsoft Excel 2 | Muhammad Abdul Quium (V-30)

Показать описание

Below Code

declare
row_num number;
col_num number;

cursor rec is select emp_id,emp_nm,to_char(join_dt,'dd/mm/rrrr') date_of_birth from emp_mast where join_dt is not null;
procedure SetCellValue(rowid number,colid number,cellValue varchar) is
begin
end SetCellValue;
procedure app_init is
begin
end app_init;

procedure save_excel(path varchar,filename varchar) is
begin
OLE2.Release_Obj(worksheet);
OLE2.Release_Obj(worksheets);
-- Save the Excel file created
If path is not null then
Arglist := OLE2.Create_Arglist;
OLE2.Add_Arg(Arglist,path||'\'||file_name||'.xls');
OLE2.Invoke(workbook, 'SaveAs', Arglist);
OLE2.Destroy_Arglist(Arglist);
end if;
end save_excel;

begin
app_init;
row_num:=1;
col_num:=1;
SetCellValue(row_num,col_num,'Emp Code');
col_num:=col_num + 1;
SetCellValue(row_num,col_num,'Emp Name');
col_num:=col_num + 1;
SetCellValue(row_num,col_num,'Date of Birth');
for i in rec loop
row_num:=row_num + 1;
col_num:=1;
col_num:=2;
col_num:=3;
end loop;
save_excel('d:\excel_export','emp_data');
OLE2.Release_Obj(workbook);
OLE2.Release_Obj(workbooks);
OLE2.Release_Obj(application);
end;