[Risolto] macro da campodata a cella solo su unico o primo foglio

[solitariopc]

Buongiorno! Da una ricerca nel forum ho preso un esempio di macro che copia la data di un campo data
ad una cella (viewtopic.php?f=9&t=5278&hilit=+campo+data).
Funziona bene se nel file esiste un singolo foglio, se il foglio con il campo data è primo foglio ( foglio 1),
se invece si trova in coda agli altri (foglio 2, 3, ecc...), incontro difficoltà la macro non funziona
e mi restituisce la risposta:

(Errore di runtime BASIC.
Si è verificata un'eccezione
Type: com.sun.star.container.NoSuchElementException
Message:.)
alla riga n°15 Form = DrawPage.Forms.GetByIndex(0)

perché, cosa manca, non mi sembra che ci siano riferimenti alla posizione del foglio. Magari mi sbaglio.
Grazie e un buon lavoro a tutti.

[Gaetanopr]

Funziona bene se nel file esiste un singolo foglio, se il foglio con il campo data è primo foglio ( foglio 1),
se invece si trova in coda agli altri (foglio 2, 3, ecc...), incontro difficoltà la macro non funziona

Non è proprio così, non funziona bene se esiste un singolo foglio ma funziona se viene indicato correttamente il foglio sul quale si trova il campo data, tu hai inserito il campo data nel foglio1 ma si trova al terzo posto quindi con indice 2 ma nella macro indichi indice 0 cioè il primo foglio che nel tuo caso non corrisponde a Foglio1, per non incorrere ad errori è preferibile usare il nome dei fogli e non l'indice in questi casi.

Codice: Seleziona tutto

Sheet = Doc.Sheets.GetByIndex(0)

diventa

Codice: Seleziona tutto

Sheet = Doc.Sheets.GetByIndex(2)

o meglio ancora

Codice: Seleziona tutto

Sheet = Doc.Sheets.GetByName("Foglio1")

[solitariopc]

Buonasera, a tutti. Ringrazio Gaetanopr che ha accolto la richiesta di aiuto; il cambio della posizione del foglio mi era passata per la mente, ma, non conoscendo il linguaggio basic non sapevo cosa modificare. Grazie ancora e una serena nottata.