Ciao a TUTTI,
sono nuovo sia del forum che della creazione di macro su Calc di openoffice, spero di non darvi troppe noie, con la mia richiesta d'informazioni.
Mi trovo ad affrontare, la creazione di una macro con funzione ADESSO() ( la quale comprende anche i secondi), con cui mi piacerebbe fare un COPIA E INCOLLA SPECIALE dei valori, su singole celle.
La macro, dovrà quindi restituire un valore differente ogni qual volta l'utente prema il pulsante e quindi inserisca dei nuovi record in una cella a suo piacimento.
Solitamente, quando vado ad eseguire la macro, funziona correttamente l'aggiornamento della cella dove ho effettuato il primo copia e incolla in fase di registrazione della macro, però se vado ad popolare una nuova cella, la macro non mi compila la cella giusta, ma bensì sempre la stessa cella
Di sotto vi allego la Macro incriminata, nella speranza che mi possiate aiutare a risolvere l'arcano:
REM ***** BASIC *****
sub RealTime
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelpe r")
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$U$19"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$G$23"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())
rem ----------------------------------------------------------------------
dim args5(5) as new com.sun.star.beans.PropertyValue
args5(0).Name = "Flags"
args5(0).Value = "D"
args5(1).Name = "FormulaCommand"
args5(1).Value = 0
args5(2).Name = "SkipEmptyCells"
args5(2).Value = false
args5(3).Name = "Transpose"
args5(3).Value = false
args5(4).Name = "AsLink"
args5(4).Value = false
args5(5).Name = "MoveMode"
args5(5).Value = 4
dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args5())
rem ----------------------------------------------------------------------
dim args6(0) as new com.sun.star.beans.PropertyValue
args6(0).Name = "ToPoint"
args6(0).Value = "$G$24"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args6())
rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".unoataSelect", "", 0, Array())
end sub
grazie
Rispondi quotando