[Risolto] aggiorna macro e stampa dati

[Barakkino]

Ciao
ho fatto una macro, con registra macro, che dovrebbe aggiornare una tabella pivot e poi stamparli formattati.
La tabella pivot non viene aggiornata
il percorso dovrebbe essere: INS.DATI > (aggiorna) TabPivot > (stampa)Scontrino > (torna) INS.DATI > (cancella tutti dati) INS.DATI > (vai a primo record "K6") INS.DATI

Tutto (quasi) lo riesco a fare con registra macro. ma non funziona perchè: la macro non viene aggiornata e la stampa viene effettuata per l'ultima pagina e non lo scontrino
grazie

[unlucky83]

Ti consiglio questa macro per aggiornare la tabella pivot
viewtopic.php?f=9&t=5249&p=25657&hilit= ... cro#p25651

[Barakkino]

ciao unlucky83 e grazie del tuo interessamento

ho letto all'indirizzo che mi hai dato, ho provato a mettere le (2) macro ma mi danno sempre errore. non so cosa fare. Nella mia ignoranza le ho provate tutte ma niente, sempre errore

Ancora grazie, ciao

[unlucky83]

Macro originale

Codice: Seleziona tutto

Sub AggiornaPivot 
Doc = Thiscomponent
Sh = Doc.Sheets.getByName("Pivot") 
For i = 0 To Sh.getDataPilotTables.count  - 1 
   Sh.getDataPilotTables.getbyindex(i).refresh 
Next i
End Sub

Devi personalizzare la parte sottolineata
Sh = Doc.Sheets.getByName("Pivot")
con il nome del tuo foglio contenente la tabella pivot. nel tuo esempio è "TabPivot"

[Barakkino]

Ciao
Mi da sempre -errore di sintassi BASIC-
Non è per caso perchè utilizzo OpenOffice?

[Gaetanopr]

Buongiorno, hai seguito il consiglio di unlucky?? cioè di cambiare il nome del foglio

Codice: Seleziona tutto

Sh = Doc.Sheets.getByName("TabPivot") 

[Barakkino]

Ciao
Si, mi da subito errore già alla chiusura della pagina che contiene le macro. Alla chiusura, per andare sul file, si riapre subito dicendo che c è un errore....

[Gaetanopr]

Non capisco quando dici pagina che contiene le macro, allega uno screenshot dell'errore

[Barakkino]

Ciao,
scusa la mia lungaggine ma sul mio pc non funziona più internet e devo andare su un altro. spero di mandarti quello che mi hai chiesto

[Barakkino]

Non capisco quando dici pagina che contiene le macro, allega uno screenshot dell'errore

ciao finalmente riesco ad inviarti l'allegato

spero di aver fatto giusto
grazie e buona giornata

[Gaetanopr]

Ci sarà qualche problema di spazi tabulazione o altro non visibile comunque cancella e ricopia questa parte

Codice: Seleziona tutto

Sh = Doc.Sheets.getByName("Pivot")
For each pivot in Sh.getDataPilotTables
    pivot.refresh
Next pivot

[Barakkino]

ciao, questa è la macro che "ho scritto" ma mi dice che manca la variabile???
grazie

Codice: Seleziona tutto

sub macro2
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.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Nr"
args1(0).Value = 3

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$A$3"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())

rem ----------------------------------------------------------------------

[b]sh = Doc.Sheets.getByName("Pivot")
For each pivot in Sh.getDataPilotTables
    pivot.refresh
Next pivot[/b]

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Nr"
args3(0).Value = 4

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args3())

rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "ToPoint"
args4(0).Value = "$A$1"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args4())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Print", "", 0, Array())


end sub

[Gaetanopr]

ciao, questa è la macro che "ho scritto" ma mi dice che manca la variabile???
grazie

Ciao, io ti avevo detto di cancellare e riscrivere una parte di macro perché c'era probabilmente qualche problema di tabulazione, però hai eliminato una riga

Codice: Seleziona tutto

Doc = Thiscomponent

per questo ti restituisce errore
La macro rimane esattamente quella di prima dovevi solo riscrivere la parte che ti avevo indicato in precedenza.

[Barakkino]

ciao, Gaetanopr
scusa la mia ignoranza
ora la macro funziona benissimo, anche se un po lenta ma ci sta..

grazie e buona giornata

[Barakkino]

ciao, Gaetanopr
scusami ancora, ho capito il perchè della "lentezza" della macro
L'aggiornamento viene fatto a tutte le macro presenti nel foglio, mi va anche bene perchè a volte ho bisogno di tutto l'aggiornamento. Se ti chiedo se è possibile aggiornarne una alla volta chiedo troppo? o altrimenti è meglio fare un altro foglio con solo una macro e quindi verrà aggiornata solo lei?

Grazie ancora e scusami tanto delle mie richieste