[Risolto] Macro di Calc che non funziona in LibreOffice

Creare una macro - Scrivere uno script - Usare le API
Rispondi
Avatar utente
charlie
Site Admin
Site Admin
Messaggi: 8786
Iscritto il: mercoledì 19 dicembre 2012, 10:50
Contatta:

[Risolto] Macro di Calc che non funziona in LibreOffice

Messaggio da charlie »

Ciao a tutti, in questa vecchia discussione viewtopic.php?p=21929#p21929, @Gaetanopr proponeva una macro da associare alla cella attiva per inserire una data da un controllo data di un formulario.
In OpenOffice funziona, in Libreoffice no.

Codice: Seleziona tutto

Sub CampoData()                          
                                         ' ESEMPIO 1
   Dim Doc AS Object
   Dim Sheet As Object
   Dim DrawPage As Object
   Dim Form As Object
   Dim Ctl As Object
   Dim oCell 
   
   Doc = StarDesktop.CurrentComponent
   Sheet = Doc.Sheets.GetByIndex(0)
   DrawPage = Sheet.DrawPage
   Form = DrawPage.Forms.GetByIndex(0) 
   Ctl = Form.getByName("Campodata1")      'Campo data  (Controllo del formulario)
   
   ActiveCell=ThisComponent.CurrentSelection

   ActiveCell.value = CDateFromIso(Ctl.Date)  
   ActiveCell.NumberFormat=75 
  
   ActiveCell=thisComponent.currentSelection.CellAddress
   col=ActiveCell.column
   row=ActiveCell.row

   oRanges = Sheet.getCellByPosition(col, row + 1)
   Doc.CurrentController.Select(oRanges)
  
         
End Sub

dà errore run time " valore per la proprietà errato" alla riga:

Codice: Seleziona tutto

ActiveCell.value = CDateFromIso(Ctl.Date)  
Cosa occore cambiare?
charlie
macOS 14.3 Sonoma: Open Office 4.1.15 - LibreOffice 7.5.7.2
http://www.charlieopenoffice.altervista.org
patel
Volontario attivo
Volontario attivo
Messaggi: 4019
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Macro di Calc che non funziona in LibreOffice

Messaggio da patel »

Puoi allegare un file di esempio ?
-------------------
Libre Office 7.5.3.2 su Windows 11
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Avatar utente
charlie
Site Admin
Site Admin
Messaggi: 8786
Iscritto il: mercoledì 19 dicembre 2012, 10:50
Contatta:

Re: Macro di Calc che non funziona in LibreOffice

Messaggio da charlie »

Certo il file è quello di gaetanoPr nel link:
Allegati
prova.ods
(13.17 KiB) Scaricato 46 volte
charlie
macOS 14.3 Sonoma: Open Office 4.1.15 - LibreOffice 7.5.7.2
http://www.charlieopenoffice.altervista.org
patel
Volontario attivo
Volontario attivo
Messaggi: 4019
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Macro di Calc che non funziona in LibreOffice

Messaggio da patel »

prova questo
Allegati
prova(1).ods
(14.71 KiB) Scaricato 56 volte
-------------------
Libre Office 7.5.3.2 su Windows 11
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Avatar utente
charlie
Site Admin
Site Admin
Messaggi: 8786
Iscritto il: mercoledì 19 dicembre 2012, 10:50
Contatta:

Re: Macro di Calc che non funziona in LibreOffice

Messaggio da charlie »

Perfetta, grazie.
Funziona sia in Libreoffice che in OpenOffice :super: .
charlie
macOS 14.3 Sonoma: Open Office 4.1.15 - LibreOffice 7.5.7.2
http://www.charlieopenoffice.altervista.org
Rispondi