Saltar al contenido
View in the app

A better way to browse. Learn more.

Ayuda Excel

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

Macro para generar archivo TXT con formato

publicado

Hola buenas tardes 

Gusto en saludarlos a tod@s 

Tengo la siguiente consulta a ver si me pueden ayudar, necesito una macro para generar archivo txt que me quede de la siguiente manera:

"06","0601017","477505,00000000","0,00"
"06","0601432","477505,00015784","0,50"
"06","0601662","477505,00000000","0,00"
"06","0601685","634499,73333333","0,00"

Al inicio me coloque las comillas " luego los separadores sea "," y al final cerrar con las comillas 

 

Mi archivo de excel  esta así

A         B                      C                     D

06  0601017  477505,00000000  0,00

06  0601432  477505,00015784  0,50

06  0601662  477505,00000000  0,00

06  0601685  634499,73333333  0,00

 

Atento a los comentarios de quienes me puedan ayudar 

 

Saludos 

 

 

Featured Replies

publicado

Hola, con un click en un userform

Private Sub UserForm_Click()
    EscribirCVS "C:\MiArchivo.txt"
End Sub


Private Function EscribirCVS(ByVal sPath As String) As Boolean
    Dim FF As Integer
    Dim Row As Long, Col As Long
    Dim sLine As String
    
    FF = FreeFile
    Open sPath For Output As #FF
        
        For Row = 1 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
            sLine = vbNullString
            For Col = 1 To ActiveSheet.UsedRange.Columns.Count
                sLine = sLine & Chr$(34) & ActiveSheet.Cells(Row, Col) & Chr$(34) & ","
            Next
            Print #FF, Left$(sLine, Len(sLine) - 1)
        Next
    Close #FF
    
    EscribirCVS = Err.Number = 0
    
End Function

 

publicado
  • Autor

Hola Gusto en saludar, gracias por la ayuda, pero estoy colocando la información de la macro y no me genera nada 

Atento a tus comentarios 

publicado
Hace 1 hora, alexanderch dijo:

Hola Gusto en saludar, gracias por la ayuda, pero estoy colocando la información de la macro y no me genera nada 

Atento a tus comentarios 

Sube tu archivo.

publicado
  • Autor

No me permite subir el archivo por los permisos, pero investigando he logrado hacer uno 

Sub generarTXT()
    
    nombre_archivo = Range("H4").Value
    ruta = Range("H3").Value & "\" & nombre_archivo & ".txt"
    
    ultima_fila = Cells(Rows.Count, 4).End(xlUp).Row
    
    Open ruta For Output As #1
    
    For i = 3 To ultima_fila
    
        Print #1, Chr$(34) & Cells(i, 2).Value & Chr$(34) & "," & Chr$(34) & Cells(i, 3).Value & Chr$(34) & "," & Chr$(34) & Cells(i, 4).Value & Chr$(34) & "," & Chr$(34) & Cells(i, 5).Value&; Chr$(34)
    Next
    
    Close #1
    
    MsgBox (" se convirtió correctamente !")

End Sub

 

Pero me faltaría lograr hacer que los números decimales tome 9 decimales así terminen en cero (0)  ese es el  Cells(i, 4) tiene 9 decimales y la coma(,) la cambie por punto (.)  al igual que la data del Cells(i, 5) pero en ese son dos (2) decimales así sea en cero (0)

Es posible hacer esa modificación 

Atento a sus comentarios 

publicado
  • Autor

Muchas gracias por la ayuda, solo faltaría que el formato en vez de coma sea punto en los decimales 

Me lo guarda de esta manera 

"06","0601017","477505,00000000","0,00"

y el correcto sería 

"06","0601017","477505.00000000","0.00"

Es posible.

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.