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