Bart Aimar ha scritto:
> Mio gentile , amato (ed unico alfatester)...
Se lo legge mia moglie chiede il divorzio
> Anche se la tendenza è a non amare chi ti avverte che hai la patta
> aperta...
Te lo avrei detto con calma a operazione conclusa, Paolo mi ha preceduto
> > Mi rimane una cosa che non so spiegarmi Perchè cancellando i nomi dal
> > menu Inserisci->Nomi->Gestisci la cancellazione avviene in una
> > ventina di secondi e con una macro "liscia" diversi minuti?
>
> Lido! Ma non eri stato tu a scoprire che cancellando l'area
> elenco_prezzi il sistema diventava insopportabilmente lento sulle
> successive cancellazioni anche via UI?
Forse non mi ero spiegato bene, sotto ti riporto parte di quello che avevo
scritto
>>> Ho fatto alcune prove
>>> - Ho provato a cancellare i nomi in "Prova_a_Cancellare_i_NameRanges"
>>> dal menu Inserisci -> Nomi -> Definisci, tempo impiegato circa 19 secondi
>>> - Ho provato con il pulsantone, tempo impiegato circa 8 minuti
Come vedi non avevo detto che era lento via UI
Io credevo volessi farlo via macro da inserire nel codice addetto al
trasporto da un computo all' altro
.
> Volevo sospendere un momento.. ma tu mi provochi... e cedo alla
> tentazione...
>
Avanti con la prossima
>> o se invece (come logica
> > suggerisce), attende giusto per il tempo indicato... e se i dati non
> > sono pronti patatrac!
Proprio così, se, passati 100 millesimi di secondo, non ha ancora fatto
patatrac!
> Infine, per evitare di essere ancora cazziato è meglio che posto il mio
> codice... :-)
> Sub Voce_a_ElencoPrezzi '
> ' si esegue dal doc Prezzario, dopo aver scelto e
> ' assemblato una voce da duplicare sul doc di contabilità
> ' per riprodurre la situazione servono due doc
> ' con i nomi appropriati di sheet..
> oSourceDoc=ThisComponent
> oSourceSheet= oSourceDoc.Sheets.getByName("temp")
>
> oRange1 = oSourceSheet.getCellRangeByPosition(0,2,5,2)
>
> SUrl = UltimusFree2.Lupo_0.sUltimus ' legge la var
> 'contenente la URL di destinazione
> ' per fare delle prove bisogna sostituirla...
>
> sUrl2 = ConvertToUrl (Surl)
>
> wait 100
>
> oTargetDoc= StarDesktop.LoadComponentFromUrl_
> (sUrl2, "_default", 0, Array())
> oTargetSheet= oTargetDoc.getSheets.getByName("S1")
> oRange2 = oTargetDoc.Sheets.getByName("S1")_
> .getCellRangeByPosition(41,3,46,3)
>
> oDataArray = oRange1.getDataArray
> oRange2.setDataArray(oDataArray)
>
> wait 100
>
> 'a questo punto lavoro sul doc di destinazione...
>
Il processo si bloccava sulla linea sotto, apriva l' editor del basic,
la linea veniva evidenziata e non dava errori di nessun genere
> oSheetDest = ThisComponent.Sheets.getByName("S1")
>
> ' prelevando e rimanipolando pezzi del range appena duplicato..
> oCell = oSheetDest.GetCellByPosition( 46,3 )
> oCodOrigine =oCell.string
> oCell = oSheetDest.GetCellByPosition( 43,3 )
> oDesc = oCell.string
> ' e via così...
Avevo messo un Wait 100 riproponendomi di controllare il codice
quando avessi avuto tempo, purtroppo il problema più grosso
è proprio il tempo
Ciao Lido
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
