La macro funziona ma non chiude la finestra

[Barakkino]

Ciao,
Ho fatto una macro (con registra macro)
La macro deve incollare in una cella i dati, copiati manualmente, da una pagina on line (http://www.dietabit.it/alimenti/latte/latte-intero/)
I dati vengono giustamente incollati e attivata la cella programmata ma non si chiude la finestra di dialogo.
Perchè??

Grazie dell'aiuto

[patel]

Fare una macro per questa operazione mi sembra inutile, comunque questa è una delle tante conferme che il Registratore non funziona bene.

[Barakkino]

Devo copiare tanti dati, pensavo ch con un bottone di comando sarebbe stato più veloce.
Comunque grazie, Patel

[patel]

prova questa che funziona se copi solo la tabella senza il titolo

Codice: Seleziona tutto

sub Main
dim document   as object
dim dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$3"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "SelectedFormat"
args2(0).Value = 1
dispatcher.executeDispatch(document, ".uno:ClipboardFormatItems", "", 0, args2())
end sub

[Barakkino]

prova questa che funziona se copi solo la tabella senza il titolo

Codice: Seleziona tutto

sub Main
dim document   as object
dim dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$3"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "SelectedFormat"
args2(0).Value = 1
dispatcher.executeDispatch(document, ".uno:ClipboardFormatItems", "", 0, args2())
end sub

Ciao Patel,
Ho provato la tua macro, funziona alla perfezione ma anche non chiude la finestra di dialogo

[patel]

su libre non la apre neppure

[Barakkino]

su libre non la apre neppure

allora proprio non si può fare.

Grazie comunque della risposta

[patel]

forse non mi sono spiegato bene, l'ultimo codice proposto su libre funziona bene senza aprire finestre di dialogo