COMMENTI: Ho provato a generare un nuovo foglio excel sull'evento click di un bottone, la prima volta va bene ma se clikko il bottone la secoda volta mi va in errore con messagio : "MEDOTO CELLS NON RIUSCITO" AIUTOOOOO!!!!


Private Sub cmd_start_Click()

Dim appoExcel As New Excel.Application
Dim cartExcel As Excel.Workbook
Dim foglioExcel As Excel.Worksheet


Dim colonna1, colonna2, riga1, riga2 As Integer


appoExcel.Visible = True
Set cartExcel = Excel.Workbooks.Add

Set foglioExcel = Excel.Worksheets.Item(1)

For i = 1 To 10
For n = 1 To 10
appoExcel.Cells(i, n).Characters().Text = i & n

Next n
Next i

cartExcel.Close
appoExcel.Quit
Set appoExcel = Nothing
Set cartExcel = Nothing
Set foglioExcel = Nothing
End Sub