[Risolto]Spostare il focus Su un documento calc diverso.

[Diggei]

Ciao a tutti.
Mi chiamo Damiano e ho un problema:
Ho un foglio con delle macro. Lo chiamo FOGLIO A
Da una di queste macro devo aprire un foglio gia' esistente senza macro . Lo chiamo FOGLIO B.
Il foglio lo richiamo con la funzione :
FOGLIO B = StarDesktop.loadComponentFromURL (Percorso, "_blank" ,0, Dummy() )
Il mio problema e' che il focus ritorna su FOLIO A mentre a me serve che rimanga su FOGLIO B appena aperto.
HO cercato un po' dappertutto ma non ho trovato niente.
Grazie mille a chi potra' darmi gentilmente una mano..
Ciao.
Damiano ( Diggei )

[unlucky83]

Ho fatto 2 prove:
I)File1 contenente la macro unico file aperto. Una volta eseguita la macro si apre File2 e sullo schermo rimane visualizzato File2. Il focus è su File2, infatti digitando una qualsiasi cosa mi va a scrivere su File2.


II)File1 contenente la macro file aperto, con File2 già aperto. Una volta eseguita la macro si apre per la seconda volta File2 (due finestre aperte contenenti File2). L'ultima finestra aperta con File2 è sullo schermo e Il focus è su questa finestra, infatti digitando una qualsiasi cosa mi va a scrivere su File2 di quest'ultima finestra aperta.

Mi sorge un dubbio...intendiamo la stessa cosa con il termine Focus? Se si, allora forse hai qualche opzione impostata diversamente, ma dandoci uno sguardo superficiale non ho trovato nulla in merito.
Fai sapere

[patel]

confermo quanto detto da unlucky83, l'ultimo documento aperto diventa quello attivo, allega il tuo file

[Diggei]

Innanzitutto grazie pet la risposta.
A me succede che quando dal file 1 apro file 2 con
La macro se digito qualcosa me lo scrive sul file 1.
Faro' ancora qualche prova.
Per le opzioni attive sinceramente non saprei dove
Guardare.
Grazie ancora e buona giornata.
Damiano..

[unlucky83]

Apru il file2 con macro, ma successivamente la macro termina o fa ancora qualcosa? Se si, allora sono le procedure successive a farti cambiare il focus. In tal caso allega il file1 con le macro

[patel]

hai una macro sbagliata, se non ce la fai vedere stiamo perdendo tempo.
tieni presente che al contrario del vba (excel) su calc non esistono fogli attivi e celle attive, fogli e documenti devono essere sempre indicati

[Diggei]

La macro si chiude con la chiamata del file uno.
Allego la Macro:

Sub RichiamaFattura

'---- Richiama percorso principale ----------

dim PercPrinc as string ' Variabili di Gestione
Dim FileProperties(0) As New com.sun.star.beans.PropertyValue
Dim Path as string
dim Testo as string
dim Doc as object
dim Sheet as object
dim Cell as Object
dim Doc1 as Object
dim Doc2 as object
Dim Sheet2 as object
Dim Cell2 as object
Dim Cell1 as object
Dim Anno as string
Dim Controllo As string
Controllo = "0"

' ------------------ Setta foglio e cella per l'anno --------
dim args1(1) as new com.sun.star.beans.PropertyValue
Doc1 = ThisComponent
'---- Crea il percorso del salvataggio Clienti
Doc = StarDesktop.CurrentComponent ' Recupera il PercorsoPrincipale
Sheet = Doc.Sheets.getByName("Settaggio")
Cell = Sheet.getCellByPosition(1 , 1 )
PercPrinc = Cell.string
'---- Seleziona Cella nome fattura
Doc = ThisComponent
oSheet=thiscomponent.getcurrentcontroller.activesheet
oCell = ThisComponent.getCurrentSelection()
TestoCella = oCell.String
if TestoCella = "" then
msgbox("Hai selezionato una casella vuota...")
else
NumeroColonna = ThisComponent.getCurrentSelection.cellAddress.Column ' 2
Doc1 = ThisComponent
'---- Crea il percorso del salvataggio Clienti
Doc = StarDesktop.CurrentComponent ' Recupera il PercorsoPrincipale
Sheet = Doc.Sheets.getByName("Lista Fatture")
Cell = Sheet.getCellByPosition(NumeroColonna , 1 )
Dim Origine as object
Dim dummy()
Dim Dami1 as string
Dim Dami2 as string
Dim oText as object
dim oInsertText as String
Dami1 = PercPrinc & "/" & cell.string & "/Fatture/" & TestoCella

Origine = StarDesktop.loadComponentFromURL (Dami1, "_blank" ,0, Dummy() )
end if
End Sub

Siete gentilissimi..
Grazie ancora..
Ciao.
Damiano..

[unlucky83]

la macro sembra ok.
La Sub RichiamaFattura viene eseguita da sola o e chiamata da una macro principale del tipo:

Codice: Seleziona tutto

Sub Macro1
...
call RichiamaFattura
...
end sub

Non sarebbe male se allegassi un file di esempio contenente le macro, così da potersi fare un'idea chiara e completa

[patel]

infatti doc viene definito ben 3 volte, è piuttosto strano, occorre il file.
Inoltre a cosa serve una macro per aprire un file e non fare altro ?

[Diggei]

Come si allega un file ??

[patel]

il file si allega da Editor Completo
non hai risposto alla mia domanda "Inoltre a cosa serve una macro per aprire un file e non fare altro ?

[Diggei]

non hai risposto alla mia domanda "Inoltre a cosa serve una macro per aprire un file e non fare altro ?

Scusa, mi era sfuggita..
Allora: Ia macro mi serve per caricare un documento in una lista e poi ci devo lavorare direttamente (Editare o stampare..) e poi chiuderlo direttamente.
Ciao..
Damiano..

[unlucky83]

La suddetta macro non viene richiamata da nessun'altra macro. Non ho trovato alcun pulsante a essa associato...come la avvii?

[Diggei]

La suddetta macro non viene richiamata da nessun'altra macro. Non ho trovato alcun pulsante a essa associato...come la avvii?

Nella lista fatture si carica una lista di file e messi in ordine per anno.
Se clicchi sull'anno esso avvia il file2 che voglio editare e stampare...

[unlucky83]

Il problema è l'evento "doppio click" del foglio..infatti avvia si la macro, ma al termine ti rimette il focus sul file1.
Risolvi se metti un pulsante nel foglio per avviare la macro.
Seleziona prima la cella e poi clicca sul pulsante.

[Diggei]

Gentilissimo.. Provo e faccio sapere..
Grazie mille...

[Diggei]

Adesso funziona !!
Ragazzi siete stati gentilissimi.. Grazie mille !!!