Pb de lenteur avec WEBUTIL / Slow problem with WEBUTIL

Question

Bonjour,
J'ai implémenté l'objet WEBUTIL afin de charger les données d'un fichier Excel dans un Forms (10G). Cela fonctionne correctement mais je rencontre de gros problèmes de lenteur pour extraire ces données.
Avez-vous rencontré le même cas ? Comment l'avez-vous résolu ?
Merci pour votre aide.
Hi,
I use the Webutil object to import data, stored in Excel file, to a Forms in version 10G. It works but I have huge slow problems to extract the data.
Do you have this kind of problems ? How do you solve them ?
Thanks for helping.
Séverine

Answer 1

Yes, of course.
This is an extract of the code :
app     CLIENT_OLE2.OBJ_TYPE;
wbooks     CLIENT_OLE2.OBJ_TYPE;
wbook     CLIENT_OLE2.OBJ_TYPE;
wsheet     CLIENT_OLE2.OBJ_TYPE;
wsheets     CLIENT_OLE2.OBJ_TYPE;
args     CLIENT_OLE2.LIST_TYPE;          
app := CLIENT_OLE2.create_obj('Excel.Application');
CLIENT_OLE2.SET_PROPERTY(app,'Visible',0);
wbooks := CLIENT_OLE2.GET_OBJ_PROPERTY(app, 'Workbooks');     
args := CLIENT_OLE2.CREATE_ARGLIST;
CLIENT_OLE2.add_arg(args, filename);
wbook := CLIENT_OLE2.INVOKE_obj(wbooks, 'Open', args);
CLIENT_OLE2.DESTROY_ARGLIST(args);
wsheets := CLIENT_OLE2.GET_OBJ_PROPERTY(wbook, 'Worksheets');     
args := CLIENT_OLE2.CREATE_ARGLIST;
CLIENT_OLE2.add_arg(args, 'Instructions');
wsheet := CLIENT_OLE2.GET_OBJ_PROPERTY(wsheets, 'Item', args);
CLIENT_OLE2.DESTROY_ARGLIST(args);
args := CLIENT_OLE2.CREATE_ARGLIST;
CLIENT_OLE2.add_arg(args, 1);
CLIENT_OLE2.add_arg(args, 1);
cell := CLIENT_OLE2.INVOKE_obj(wsheet, 'Cells', args);
CLIENT_OLE2.DESTROY_ARGLIST(args);
Tampon1 := TRIM(CLIENT_OLE2.get_char_property(cell, 'Value'));
CLIENT_OLE2.release_obj(cell);
args := CLIENT_OLE2.CREATE_ARGLIST;
CLIENT_OLE2.add_arg(args, 1);
CLIENT_OLE2.add_arg(args, 3);
cell := CLIENT_OLE2.INVOKE_obj(wsheet, 'Cells', args);
CLIENT_OLE2.DESTROY_ARGLIST(args);
Tampon2 := TRIM(CLIENT_OLE2.get_char_property(cell, 'Value'));
CLIENT_OLE2.release_obj(cell);
I get about a hundred cells in my Excel File and it takes more than 1 minute.
Thanks.
Séverine