Generacion de Datos a Excel desde Forms
Publicado por vivi (16 intervenciones) el 03/01/2008 16:12:32
Buenas.
Por favor si alguien sabe :
Estoy utilizando la sigte estructura:
MyApplication := OLE2.CREATE_OBJ('Excel.Application');
OLE2.SET_PROPERTY(MyApplication , 'Visible',1);
workbooks := OLE2.GET_OBJ_PROPERTY(MyApplication ,'Workbooks');
workbook := OLE2.INVOKE_OBJ(workbooks,'Add');
worksheets:=OLE2.GET_OBJ_PROPERTY(workbook, 'Worksheets');
worksheet:=OLE2.INVOKE_OBJ(worksheets,'Add');
OLE2.SET_PROPERTY(worksheet , 'Name','WorkInstruction');
OLE2.SET_PROPERTY(MyApplication , 'ActiveSheet','WorkInstruction');
Con eso logro abrir excel y todo pero me da el sigte error: FRM-41081 Connot move item, invalid position, según entiendo es por una de las propiedades, pero necesito utilizar el set property, habrá alguna otra forma de solucionarlo?
Gracias
Por favor si alguien sabe :
Estoy utilizando la sigte estructura:
MyApplication := OLE2.CREATE_OBJ('Excel.Application');
OLE2.SET_PROPERTY(MyApplication , 'Visible',1);
workbooks := OLE2.GET_OBJ_PROPERTY(MyApplication ,'Workbooks');
workbook := OLE2.INVOKE_OBJ(workbooks,'Add');
worksheets:=OLE2.GET_OBJ_PROPERTY(workbook, 'Worksheets');
worksheet:=OLE2.INVOKE_OBJ(worksheets,'Add');
OLE2.SET_PROPERTY(worksheet , 'Name','WorkInstruction');
OLE2.SET_PROPERTY(MyApplication , 'ActiveSheet','WorkInstruction');
Con eso logro abrir excel y todo pero me da el sigte error: FRM-41081 Connot move item, invalid position, según entiendo es por una de las propiedades, pero necesito utilizar el set property, habrá alguna otra forma de solucionarlo?
Gracias
Valora esta pregunta


0