Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

"Errore di compilazione: Tipo definito dall'utente non definito"

1,450 views
Skip to first unread message

Lucky

unread,
Dec 22, 2012, 3:15:35 AM12/22/12
to
Buongiorno a tutti.
Il Debug del seguente codice VBA mi restituisce il seguente errore:
"Errore di compilazione: Tipo definito dall'utente non definito"
Per cortesia, qualcuno sa dirmi cosa fare per evitare questo errore.
Grazie
Lucky

=============================================
Private Sub Comando81_Click()

Dim Finestra As FileDialog
Dim Valore, vrtSelectedItem

Set Finestra = Application.FileDialog(msoFileDialogOpen) 'Equivale a 1

'Titolo
Finestra.Title = "Testo Apri"

'Filtri di Ricerca
Finestra.Filters.Clear
Finestra.Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
Finestra.Filters.Add "Txt", "*.txt", 1

'Selezione Multipla
Finestra.AllowMultiSelect = False

'Apri Finestra
Valore = Finestra.Show

'Determinare pulsante premuto
If Valore = -1 Then
lbl1.Caption = "Premuto Apri"
ElseIf Valore = 0 Then
lbl1.Caption = "Premuto Annulla"
Else
lbl1.Caption = Valore
End If

Valore = ""
'Estrazione Valori
For Each vrtSelectedItem In Finestra.SelectedItems
Valore = Valore & vrtSelectedItem
Next vrtSelectedItem

End Sub
=============================================


Karl Donaubauer

unread,
Dec 22, 2012, 7:24:44 AM12/22/12
to
Lucky wrote:
> Il Debug del seguente codice VBA mi restituisce il seguente errore:
> "Errore di compilazione: Tipo definito dall'utente non definito"
>
> Private Sub Comando81_Click()
>
> Dim Finestra As FileDialog
> Dim Valore, vrtSelectedItem
>
> Set Finestra = Application.FileDialog(msoFileDialogOpen) ...

Per usare questo FileDialog devi impostare la libreria di Office
come riferimento. Nell'editore di VBA seleziona la voce di menￜ
Strumenti - Riferimenti e cerchi:

Microsoft Office xx.x Object Library

...dove xx.x. ￜ la tua versione di Office.

--
Ciao
Karl
*********
Access FAQ: http://www.donkarl.com/it

Lucky

unread,
Dec 22, 2012, 9:50:27 AM12/22/12
to
OK risolto
Grazie mille Karl
Saluti
Lucky
==================
"Karl Donaubauer" <NoS...@donkarl.com> ha scritto nel messaggio
news:ajln47...@mid.individual.net...
> Lucky wrote:
>> Il Debug del seguente codice VBA mi restituisce il seguente errore:
>> "Errore di compilazione: Tipo definito dall'utente non definito"
>>
>> Private Sub Comando81_Click()
>>
>> Dim Finestra As FileDialog
>> Dim Valore, vrtSelectedItem
>>
>> Set Finestra = Application.FileDialog(msoFileDialogOpen) ...
>
> Per usare questo FileDialog devi impostare la libreria di Office
> come riferimento. Nell'editore di VBA seleziona la voce di men�
> Strumenti - Riferimenti e cerchi:
>
> Microsoft Office xx.x Object Library
>
> ...dove xx.x. � la tua versione di Office.

Karl Donaubauer

unread,
Dec 22, 2012, 3:09:22 PM12/22/12
to
Lucky wrote:
> "Karl Donaubauer ha scritto:
>>> Il Debug del seguente codice VBA mi restituisce il seguente errore:
>>> "Errore di compilazione: Tipo definito dall'utente non definito"
>>> ...
>>> Set Finestra = Application.FileDialog(msoFileDialogOpen) ...
>>
>> Per usare questo FileDialog devi impostare la libreria di Office
>> come riferimento.
> ...
> OK risolto

Del resto � meglio di non fidarsi sul riferimento e sulla versione
di Office presente sulle macchine diverse, ma invece usare una
delle classe pronte per gestire il dialogo. Vedi:

http://www.donkarl.com/it?FAQ8.1
0 new messages