Oracle - Datos entre Forms y Excel

 
Vista:

Datos entre Forms y Excel

Publicado por Ricardo (84 intervenciones) el 15/09/2006 17:04:42
Hola gente del foro:

Estoy necesitando saber si alguno de Uds. puede decirme como leer información desde Excel a Forms y como escribir información desde Forms hacia Excel. Les comento que la versión de forms que estoy utilizando es 4.5 y el Excel es el de Office 2000.

Muchas gracias.
Ricardo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Datos entre Forms y Excel

Publicado por Dario Acevedo Garia (4 intervenciones) el 28/11/2006 17:32:08
Hola.

esto lo puedes hacer con objectos ole2.

te anexo un ejemplo.

DECLARE
app OLE2.OBJ_TYPE;
docs OLE2.OBJ_TYPE;
doc OLE2.OBJ_TYPE;
selection OLE2.OBJ_TYPE;
args OLE2.LIST_TYPE;
BEGIN
-- create a new document
app := OLE2.CREATE_OBJ('Word.Application');
OLE2.SET_PROPERTY(app,'Visible',1);

docs := OLE2.GET_OBJ_PROPERTY(app, 'Documents');
doc := OLE2.INVOKE_OBJ(docs, 'add');

selection := OLE2.GET_OBJ_PROPERTY(app, 'Selection');

-- insert data into new document from long item
OLE2.SET_PROPERTY(selection, 'Text', :long_item);

-- save document as example.doc
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, 'c:\temp\example.doc');
OLE2.INVOKE(doc, 'SaveAs', args);
OLE2.DESTROY_ARGLIST(args);

-- close example.doc
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, 0);
OLE2.INVOKE(doc, 'Close', args);
OLE2.DESTROY_ARGLIST(args);

OLE2.RELEASE_OBJ(selection);
OLE2.RELEASE_OBJ(doc);
OLE2.RELEASE_OBJ(docs);

-- exit MSWord
OLE2.INVOKE(app,'Quit');
END;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar