aiuto, PROBLEMA NELLA SCRITTURA FILE

[lamazza07]

Raga aiuto....questo piccolo programma dovrebbe aprirmi in sequenza 5 inputbox in cui scrivere 5 nominativi...alla fine vorrei avere un file excel con i 5 nominativi inseriti....
perchè invece all'avvio dell'applicazione mi dice
("errore di compilazione" " tipo non corrispondente"?)

il tutto riferito a "Print #1, Nominativo;"

Dove sbaglio?????aiuto.....

ECCO IL CODICE

Private Sub Tentativo()
Dim Contatore As Integer
Dim Numero_file As Integer
Dim Casella_messaggi As String
Dim Nominativo(1 To 5) As String

Open "c:\windows\desktop\Testo salvataggio.xls" For Output As #1
Casella_messaggi = MsgBox("Attenzione,il file di salvataggio è stato aperto")
For Contatore = 1 To 5
Nominativo(Contatore) = InputBox("Inserire nominativo")
Next Contatore
Print #1, Nominativo;
Close #1
End Sub

[cirmon]

Devi inserire la riga "Print #1, Nominativo(Contatore);" all'interno del ciclo for!!!Prova quanto sotto

Ciao

Dim Contatore As Integer
Dim Numero_file As Integer
Dim Casella_messaggi As String
Dim Nominativo(1 To 5) As String

Open "C:\winnt\Profiles\MONTANINOC\Desktop\prova.xl s" For Output As #1
Casella_messaggi = MsgBox("Attenzione,il file di salvataggio è stato aperto")
For Contatore = 1 To 5
Nominativo(Contatore) = InputBox("Inserire nominativo")
Print #1, Nominativo(Contatore);
Next Contatore
Close #1