Poiché sono ignorante di macro in Calc, mi sono fatto dettare da ChatGPT una macro per: selezionare una cartella dal pc; scrivere il percorso in una cella. Ecco la macro:
Sub SelezionaOrigine
On Error GoTo GestisciErrore
Dim dialogo As Object
Dim percorso As String
dialogo = CreateUnoService("com.sun.star.ui.dialogs.FolderPicker")
dialogo.Title = "Seleziona cartella di origine"
dialogo.Execute
If dialogo.IsFolderSelected Then
percorso = dialogo.SelectedFolder
ThisComponent.Sheets(0).getCellByPosition(0, 0).String = percorso
Else
Exit Sub ' Esci dalla macro se l'utente ha annullato la selezione
End If
Exit Sub
GestisciErrore:
MsgBox “Si è verificato un errore durante la selezione della cartella di origine.”, 48, “Errore”
End Sub
All’esecuzione, però, l’istruzione
If dialogo.IsFolderSelected Then
dà errore. Commentandola, esce errore anche alla successiva
percorso = dialogo.SelectedFolder
Io però non so come avere spiegazione dell’errore e come correggerlo. ChatGPT sembra non conoscere la versione 24 di LibreOffice e mi dà risposte che non riesco a praticare.
Due domande:
1.Come posso avere dettagli sul tipo di errore?
2.Come superarlo?
Grazie