Excel and macro

Question

Hello Everybody
I hope somebody can help me with the next problem.
I created a excel's macro that connects via ODBC a one table of Oracle(Oracle 9.2.0.1.0). When I execute this macro within excel, this works fine, but when I try execute this macro through a form (forms9i) at moment in that excel opens appear a screen that requests me that I select a ODBC connection and once that I selected the connection the macro shows an error (1004 error of the ODBC). all this happens of side of server.
the code of this form is te next:
PROCEDURE macroexcel IS
application OLE2.obj_type;
workbooks OLE2.obj_type;
workbook OLE2.obj_type;
worksheets OLE2.obj_type;
worksheet OLE2.obj_type;
cell OLE2.obj_type;
args OLE2.list_type;
mac OLE2.obj_type;
name_file varchar2(12) := to_char(sysdate);
local_cursor_record number:=:system.cursor_record;
old_cursor_style VARCHAR2(200);
errors_occured boolean:=false;
ole_error exception;
pragma exception_init(ole_error, -305500);
PROCEDURE OPEN_EXCEL IS
BEGIN
application := OLE2.CREATE_OBJ('Excel.Application');
OLE2.SET_PROPERTY(application,'Visible','True');
Workbooks := OLE2.GET_OBJ_PROPERTY(application,'Workbooks');
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args,'D:\excel_rh\macroxls.xls');
workbook := OLE2.GET_OBJ_PROPERTY(workbooks,'Open',args);
OLE2.DESTROY_ARGLIST(args);
end open_excel;
PROCEDURE OPEN_SHEET IS
BEGIN
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args,'respaldo');
worksheets := OLE2.GET_OBJ_PROPERTY(workbook,'Worksheets');
worksheet := OLE2.GET_OBJ_PROPERTY(workbook,'Worksheets',args);
OLE2.DESTROY_ARGLIST(args);
END OPEN_SHEET;
PROCEDURE MACRO IS
BEGIN
     args := OLE2.CREATE_ARGLIST;
     OLE2.ADD_ARG(args,'rcons');
     OLE2.invoke(application,'Run',args);
     OLE2.DESTROY_ARGLIST(args);
END MACRO;
procedure place_value_in_cell(rownum_in in number,colnum_in in number,value_in in varchar2) is
args OLE2.list_type;
BEGIN
args:=OLE2.create_arglist;
OLE2.add_arg(args,rownum_in);
OLE2.add_arg(args,colnum_in);
--cell:=OLE2.invoke_obj(worksheet,'Cells',args);
cell:=OLE2.get_obj_property(worksheet,'Cells',args);
OLE2.destroy_arglist(args);
OLE2.set_property(cell,'Value',value_in);
OLE2.release_obj(cell);
end place_value_in_cell;
PROCEDURE SAVE_SPREADSHEET IS
BEGIN
     select to_char(sysdate,'hh24miss')
     into :global.name_file
     from dual;
args := OLE2.create_arglist;
OLE2.add_arg(args,'D:\excel_rh\resp_sijag'||to_char(:resp_sijag.f_resp,'ddmmyyyy')||:global.name_file||'.xls');
OLE2.invoke(worksheet,'SaveAs',args);
OLE2.destroy_arglist(args);
OLE2.invoke(application,'Quit');
END SAVE_SPREADSHEET;
BEGIN
Begin
     old_cursor_style:=get_application_property(cursor_style);
     set_application_property(cursor_style,'BUSY');
     open_excel;
     OPEN_SHEET;
macro;
exception
     when form_trigger_failure then
     raise;
     when ole_error then
     message('error sending data to excel');
     message(' ');
     errors_occured:=true;
     raise form_trigger_failure;
end;
save_spreadsheet;
OLE2.release_obj(worksheet);
OLE2.release_obj(worksheets);
OLE2.release_obj(workbook);
OLE2.release_obj(workbooks);
OLE2.release_obj(application);
if not errors_occured then
     go_record(local_cursor_record);
end if;
set_application_property(cursor_style,old_cursor_style);
web.show_document('http://dcaoagsijag01.dca.ad.pemex.com:8888/forms90/excel_rh/resp_sijag'||to_char(:resp_sijag.f_resp,'ddmmyyyy')||:global.name_file||'.xls');
END;
I don't understand what happen with this application or maybe I'm forgetting put something in my code, for that this macro works fine
Thanks in advance
Regards

Answer 1

If anyone wants to help him, here is his code made much more readable.
Hello Everybody
I hope somebody can help me with the next problem.
I created a excel's macro that connects via ODBC a one table of Oracle(Oracle 9.2.0.1.0). When I execute this macro within excel, this works fine, but when I try execute this macro through a form (forms9i) at moment in that excel opens appear a screen that requests me that I select a ODBC connection and once that I selected the connection the macro shows an error (1004 error of the ODBC). all this happens of side of server.
the code of this form is te next:
PROCEDURE macroexcel IS
application OLE2.obj_type;
workbooks OLE2.obj_type;
workbook OLE2.obj_type;
worksheets OLE2.obj_type;
worksheet OLE2.obj_type;
cell OLE2.obj_type;
args OLE2.list_type;
mac OLE2.obj_type;
name_file varchar2(12) := to_char(sysdate);
local_cursor_record number:=:system.cursor_record;
old_cursor_style VARCHAR2(200);
errors_occured boolean:=false;
ole_error exception;
pragma exception_init(ole_error, -305500);
PROCEDURE OPEN_EXCEL IS
BEGIN
application := OLE2.CREATE_OBJ('Excel.Application');
OLE2.SET_PROPERTY(application,'Visible','True');
Workbooks := OLE2.GET_OBJ_PROPERTY(application,'Workbooks');
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args,'D:\excel_rh\macroxls.xls');
workbook := OLE2.GET_OBJ_PROPERTY(workbooks,'Open',args);
OLE2.DESTROY_ARGLIST(args);
end open_excel;
PROCEDURE OPEN_SHEET IS
BEGIN
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args,'respaldo');
worksheets := OLE2.GET_OBJ_PROPERTY(workbook,'Worksheets');
worksheet := OLE2.GET_OBJ_PROPERTY(workbook,'Worksheets',args);
OLE2.DESTROY_ARGLIST(args);
END OPEN_SHEET;
PROCEDURE MACRO IS
BEGIN
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args,'rcons');
OLE2.invoke(application,'Run',args);
OLE2.DESTROY_ARGLIST(args);
END MACRO;
procedure place_value_in_cell(rownum_in in number,colnum_in in number,value_in in varchar2) is
args OLE2.list_type;
BEGIN
args:=OLE2.create_arglist;
OLE2.add_arg(args,rownum_in);
OLE2.add_arg(args,colnum_in);
--cell:=OLE2.invoke_obj(worksheet,'Cells',args);
cell:=OLE2.get_obj_property(worksheet,'Cells',args);
OLE2.destroy_arglist(args);
OLE2.set_property(cell,'Value',value_in);
OLE2.release_obj(cell);
end place_value_in_cell;
PROCEDURE SAVE_SPREADSHEET IS
BEGIN
select to_char(sysdate,'hh24miss')
into :global.name_file
from dual;
args := OLE2.create_arglist;
OLE2.add_arg(args,'D:\excel_rh\resp_sijag'||to_char(:resp_sijag.f_resp,'ddmmyyyy')||:global.name_file||'.xls');
OLE2.invoke(worksheet,'SaveAs',args);
OLE2.destroy_arglist(args);
OLE2.invoke(application,'Quit');
END SAVE_SPREADSHEET;
BEGIN
Begin
old_cursor_style:=get_application_property(cursor_style);
set_application_property(cursor_style,'BUSY');
open_excel;
OPEN_SHEET;
macro;
exception
when form_trigger_failure then
raise;
when ole_error then
message('error sending data to excel');
message(' ');
errors_occured:=true;
raise form_trigger_failure;
end;
save_spreadsheet;
OLE2.release_obj(worksheet);
OLE2.release_obj(worksheets);
OLE2.release_obj(workbook);
OLE2.release_obj(workbooks);
OLE2.release_obj(application);
if not errors_occured then
go_record(local_cursor_record);
end if;
set_application_property(cursor_style,old_cursor_style);
web.show_document('http://dcaoagsijag01.dca.ad.pemex.com:8888/forms90/excel_rh/resp_sijag'||to_char(:resp_sijag.f_resp,'ddmmyyyy')||:global.name_file||'.xls');
END;I don't understand what happen with this application or maybe I'm forgetting put something in my code, for that this macro works fine
Thanks in advance
Regards