Exportar datos a TXT

[Benito Bartolomé]

Buenos días a todos;

Estoy intentado pasar datos de un listView a un archivo txt y no me acaba de ir del todo bien.

Cuando selecciono los items para exportar me repite el primero y el último no lo envía.

También tengo creada una función que cuando no seleccione ningún item me pase todos. La he desactivado porque active o no siempre pasa todo y con el mismo fallo (envía todos los items pero repite el primero y no envía el último).

Agradecería si es posible vuestra ayuda.

 

Saludos.

 

MEtList.zip

[Antoni]

Los controles Listview se recorren desde 1, no desde 0 como los controles listbox/combobox.

Solo hay que recorrer 1 vez el listview para saber si hay o no elementos seleccionados.

Prueba así:

...
...
...
   HaySeleccionados = False
   For x = 1 To ListView1.ListItems.Count
      If ListView1.ListItems(x).Checked Then
         HaySeleccionados = True
         Exit For
      End If
    Next

    For x = 1 To frm_Ventas.ListView1.ListItems.Count
        If ListView1.ListItems(x).Checked Or Not HaySeleccionados Then
...
...
...

 

[Benito Bartolomé]

Hola Antoni;

Corregí alguna cosa que me di cuenta que no estaba bien y a continuación adapte el código que me has pasado y ahora funciona correctamente.

Muchas gracias por la ayuda.

Hoy me pillas de buen humor y te voy a poner una buena nota ?

Un abrazo para ti y una caricia para Guismo 

Private Sub btn_Txt_Click(): On Error Resume Next
Dim ruta As String, Sep As String
Dim Existe As Boolean, HaySeleccionados As Boolean
Dim i As Integer, x As Integer, z As Integer, Cuenta As Integer
Dim FechaCancel

If Dir(ActiveWorkbook.path & "\vDíaCancelada.txt") <> "" Then Existe = True
    
If Existe = True Then
z = MsgBox("Ya existe el archivo de texto.¿Deseas eliminardo?", vbYesNo)
    If z = vbYes Then
        Kill ActiveWorkbook.path & "\vDíaCancelada.txt"
        Existe = False
    Else
        Open ActiveWorkbook.path & "\vDíaCancelada.txt" For Append As #1
    End If
        
End If
   
If Existe = False Then
    Open ActiveWorkbook.path & "\vDíaCancelada.txt" For Output As #1
    MsgBox "El archivo txt fue creado"
    Print #1, "Fecha:" & Date
    Print #1, "Reg.: " & "Cuenta: " & "Nombre: " & "Tpv: " & "Año: " & "Fecha: " & "Nºcierre: " & "tDesde: " & "tHasta: " & "Importe: " & "Empleado: " _
    & "Dep: " & "Notas: " & "Asiento: "
End If
    Cuenta = frm_Ventas.ListView1.ListItems.Count
    FechaCancel = Format(Now, "dd/mm/yyyy hh:mm:ss")
    Sep = ";"
    
    HaySeleccionados = False
    
    For x = 1 To frm_Ventas.ListView1.ListItems.Count
        If ListView1.ListItems(x).Checked Then
        HaySeleccionados = True
        TextBox0 = ListView1.ListItems(x).Text
        TextBox1 = ListView1.ListItems(x).ListSubItems(1).Text
        TextBox2 = ListView1.ListItems(x).ListSubItems(2).Text
        TextBox3 = ListView1.ListItems(x).ListSubItems(3).Text
        TextBox4 = Format(ListView1.ListItems(x).ListSubItems(4).Text, "dd/mm/yyyy")
        TextBox5 = ListView1.ListItems(x).ListSubItems(5).Text
        TextBox6 = ListView1.ListItems(x).ListSubItems(6).Text
        TextBox7 = ListView1.ListItems(x).ListSubItems(7).Text
        TextBox8 = ListView1.ListItems(x).ListSubItems(8).Text
        TextBox9 = ListView1.ListItems(x).ListSubItems(9).Text
        TextBox10 = ListView1.ListItems(x).ListSubItems(10).Text
        TextBox11 = ListView1.ListItems(x).ListSubItems(11).Text
        TextBox12 = ListView1.ListItems(x).ListSubItems(13).Text
        Exit For
        Print #1, "Fecha:" & FechaCancel & "  " & TextBox0 & Sep & TextBox1 & Sep & TextBox2 & Sep & TextBox3 & Sep & TextBox4 & Sep & TextBox5 & Sep & TextBox6 & Sep & TextBox7 & Sep & TextBox8 & Sep & TextBox9 _
        & Sep & TextBox10 & Sep & TextBox11 & Sep & TextBox12
        End If
    Next x
    
    For x = 1 To frm_Ventas.ListView1.ListItems.Count
        If ListView1.ListItems(x).Checked Or Not HaySeleccionados Then
       
        TextBox0 = ListView1.ListItems(x).Text
        TextBox1 = ListView1.ListItems(x).ListSubItems(1).Text
        TextBox2 = ListView1.ListItems(x).ListSubItems(2).Text
        TextBox3 = ListView1.ListItems(x).ListSubItems(3).Text
        TextBox4 = Format(ListView1.ListItems(x).ListSubItems(4).Text, "dd/mm/yyyy")
        TextBox5 = ListView1.ListItems(x).ListSubItems(5).Text
        TextBox6 = ListView1.ListItems(x).ListSubItems(6).Text
        TextBox7 = ListView1.ListItems(x).ListSubItems(7).Text
        TextBox8 = ListView1.ListItems(x).ListSubItems(8).Text
        TextBox9 = ListView1.ListItems(x).ListSubItems(9).Text
        TextBox10 = ListView1.ListItems(x).ListSubItems(10).Text
        TextBox11 = ListView1.ListItems(x).ListSubItems(11).Text
        TextBox12 = ListView1.ListItems(x).ListSubItems(13).Text
        Print #1, "Fecha:" & FechaCancel & "  " & TextBox0 & Sep & TextBox1 & Sep & TextBox2 & Sep & TextBox3 & Sep & TextBox4 & Sep & TextBox5 & Sep & TextBox6 & Sep & TextBox7 & Sep & TextBox8 & Sep & TextBox9 _
        & Sep & TextBox10 & Sep & TextBox11 & Sep & TextBox12
        End If
    Next x
    
    Print #1, "-"
    Close #1
    MsgBox "Guardado"
End Sub

 

[Antoni]

Funcionaría mejor así: ?

Private Sub btn_Txt_Click(): On Error Resume Next
Dim ruta As String, Sep As String
Dim Existe As Boolean, HaySeleccionados As Boolean
Dim i As Integer, x As Integer, z As Integer, Cuenta As Integer
Dim FechaCancel

If Dir(ActiveWorkbook.path & "\vDíaCancelada.txt") <> "" Then Existe = True
    
If Existe = True Then
z = MsgBox("Ya existe el archivo de texto.¿Deseas eliminardo?", vbYesNo)
    If z = vbYes Then
        Kill ActiveWorkbook.path & "\vDíaCancelada.txt"
        Existe = False
    Else
        Open ActiveWorkbook.path & "\vDíaCancelada.txt" For Append As #1
    End If
        
End If
   
If Existe = False Then
    Open ActiveWorkbook.path & "\vDíaCancelada.txt" For Output As #1
    MsgBox "El archivo txt fue creado"
    Print #1, "Fecha:" & Date
    Print #1, "Reg.: " & "Cuenta: " & "Nombre: " & "Tpv: " & "Año: " & "Fecha: " & "Nºcierre: " & "tDesde: " & "tHasta: " & "Importe: " & "Empleado: " _
    & "Dep: " & "Notas: " & "Asiento: "
End If
    Cuenta = frm_Ventas.ListView1.ListItems.Count
    FechaCancel = Format(Now, "dd/mm/yyyy hh:mm:ss")
    Sep = ";"
    
    HaySeleccionados = False    
    For x = 1 To frm_Ventas.ListView1.ListItems.Count
        If ListView1.ListItems(x).Checked Then
        HaySeleccionados = True
        Exit For
    Next x
    
    For x = 1 To frm_Ventas.ListView1.ListItems.Count
        If ListView1.ListItems(x).Checked Or Not HaySeleccionados Then
       
        TextBox0 = ListView1.ListItems(x).Text
        TextBox1 = ListView1.ListItems(x).ListSubItems(1).Text
        TextBox2 = ListView1.ListItems(x).ListSubItems(2).Text
        TextBox3 = ListView1.ListItems(x).ListSubItems(3).Text
        TextBox4 = Format(ListView1.ListItems(x).ListSubItems(4).Text, "dd/mm/yyyy")
        TextBox5 = ListView1.ListItems(x).ListSubItems(5).Text
        TextBox6 = ListView1.ListItems(x).ListSubItems(6).Text
        TextBox7 = ListView1.ListItems(x).ListSubItems(7).Text
        TextBox8 = ListView1.ListItems(x).ListSubItems(8).Text
        TextBox9 = ListView1.ListItems(x).ListSubItems(9).Text
        TextBox10 = ListView1.ListItems(x).ListSubItems(10).Text
        TextBox11 = ListView1.ListItems(x).ListSubItems(11).Text
        TextBox12 = ListView1.ListItems(x).ListSubItems(13).Text
        Print #1, "Fecha:" & FechaCancel & "  " & TextBox0 & Sep & TextBox1 & Sep & TextBox2 & Sep & TextBox3 & Sep & TextBox4 & Sep & TextBox5 & Sep & TextBox6 & Sep & TextBox7 & Sep & TextBox8 & Sep & TextBox9 _
        & Sep & TextBox10 & Sep & TextBox11 & Sep & TextBox12
        End If
    Next x
    
    Print #1, "-"
    Close #1
    MsgBox "Guardado"
End Sub

 

[Benito Bartolomé]

Bo día Antoni;

-Como siempre comiendo código, jajaja.

Mas cortito que el que adapté yo pero creo que te has comido un "End iF", no(?).

Si lo desactivo me salta el error que aparece debajo.

¿Lo dejo activado?

Saludos y te debo dos, tres, ..................................................??

 

[Antoni]

?