chiudere oggetto excel con vb

[darkblOOd]

Private Sub Trasferisci() 
   Dim AppExcel As New excel.Application 
   AppExcel.Visible = True 
   AppExcel.Workbooks.Open(App.Path & "\prova.xls") 
   If rs.State = 1 Then rs.Close 
   rs.Open StrSql, conn 
   With AppExcel
      .Cells(1, 1) = "Data" 
      .Cells(1, 2) = "Soggetto" 
      .Cells(1, 3) = "Causale" 
      .Cells(1, 4) = "Specifico Causale" 
      .Cells(1, 5) = "Mezzo Pagamento" 
      .Cells(1, 6) = "Oggetto" 
      .Cells(1, 7) = "Valuta" 
      .Cells(1, 8) = "Importo" 
   ...
   'qui metti tutto il codice del ciclo che non ho
   capito perchè l'hai scritto un po incasinato secondo me :)
   ...
      .Quit  
   End With
   Set AppExcel = Nothing 
End Sub