Come gestire errore run-time 5

di il
2 risposte

Come gestire errore run-time 5

Buongiorno,
con il seguente codice apro una finestra di selezione file di windows per copiare il percorso in una casella di testo, e fin qui tutto bene, ma se invece di selezionare il file annullo ho un errore run-time 5
come posso gestire l'errore
grazie in anticipo

Private Sub cmdSfoglia_Click()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.Show
Me.nomefile = fd.SelectedItems(1)
End Sub

2 Risposte

  • Re: Come gestire errore run-time 5

    mariosan ha scritto:


    invece di selezionare il file annullo ho un errore
    Displays a file dialog box and returns a Long indicating whether the user pressed the Action button (-1) or the Cancel button (0). When you call the Show method, no more code executes until the user dismisses the file dialog box. In the case of the Open and SaveAs dialog boxes, use the Execute method right after the Show method to carry out the user's action.
    e poi c'è anche l'esempio.
  • Re: Come gestire errore run-time 5

    mariosan ha scritto:


    Buongiorno,
    con il seguente codice apro una finestra di selezione file di windows per copiare il percorso in una casella di testo, e fin qui tutto bene, ma se invece di selezionare il file annullo ho un errore run-time 5
    come posso gestire l'errore
    grazie in anticipo

    Private Sub cmdSfoglia_Click()
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    fd.Show
    Me.nomefile = fd.SelectedItems(1)
    End Sub
    Hai 2 Opzioni, in aggiunta al suggerimento di Phil:
    1) Usi la gestione errori... che peraltro è sempre consigliata, quindi intercetti e gestisci.
    2) Vericfichi che la Collection SelectedItems sia istanziata e non Nothing e leggendo la property Count, e magari vedi che contiene ZERO...

    Vedi tu quale è più efficace.
Devi accedere o registrarti per scrivere nel forum
2 risposte