Private Sub Trasferisci()

Dim AppExcel As New Excel.Application
Dim X As String
Dim Y As String

AppExcel.Visible = True
AppExcel.Workbooks.Open (App.Path & "\prova.xls")

Dim FileExcel As Workbook
Dim FoglioExcel As Worksheet

'Set FileExcel = Excel.Workbooks.Open(App.Path & "\fatture.xls")
'Set FoglioExcel = FileExcel.Worksheets("foglio2")


'For Yx = 1 To 50 'massivo numero di celle
' For a = 1 To 50
' AppExcel.Cells(Yx, a).Value = "" 'lecancello
' Next a
'Next Yx
' AppExcel.Range(AppExcel.Cells(1, 1), AppExcel.Cells(8, 20)).EntireColumn.Select

'ActiveCell.Value = ""
'AppExcel.ActiveCell.Clear
'AppExcel.ActiveCell.Delete (AppExcel.Range(AppExcel.Cells(1, 1), AppExcel.Cells(8, 20)).EntireColumn.Select)


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"

Dim i
Dim riga

i = 1 'iniizo dall seconda riga il primo è il titolo
riga = 3

Do While rs.EOF = False
'For riga = 1 To 2
i = 1
AppExcel.Cells(riga, i) = CStr(rs("Data"))
i = i + 1
AppExcel.Cells(riga, i) = rs("Soggetto")
i = i + 1
AppExcel.Cells(riga, i) = rs("Causale")
i = i + 1
AppExcel.Cells(riga, i) = rs("speccausale")
i = i + 1
AppExcel.Cells(riga, i) = rs("mezzo_pagamento")

'colonna
'

'Next riga
riga = riga + 1
rs.MoveNext
i = i + 1
' i
Loop
' ...
'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

Private Sub Cancellazione()

On Error Resume Next

If FlexGrid.Rows < 3 Then
Exit Sub
End If

Me.FlexGrid.Col = 1
If Me.FlexGrid.Text = "" Then
Exit Sub
End If

If MsgBox(" Cancellare il documento Selezionato?", vbYesNo + vbInformation, App.Title) = vbNo Then
Exit Sub
End If

On Error Resume Next

Me.FlexGrid.Col = 9
Obj_nota.S_Protocollo = FlexGrid.Text


Obj_nota.Cancellazione

'RIPORTO LA variabil e s_protocollo a null per evitare casini con la ricerca
Obj_nota.S_Protocollo = ""

If Err <> 0 Then
MsgBox Err.Description, vbCritical, App.Title
Exit Sub
End If


MsgBox "Cancellazione effettuata con successo", vbInformation, App.Title


'VISTO CHE non resetto strsql allora riprendo la query altrimenti non so quale caricare
'tra quella della ricerca e quella della lista

'Me.FlexGrid.Clear
'Dim rs As New ADODB.Recordset
End Sub