Skip to main content
se añadieron 6 caracteres en el cuerpo
Origen Enlace
Alfabravo
  • 9.9k
  • 5
  • 24
  • 32

Necesito generar un TXT de una tabla de excel la cual lleva solo números, pero la dificultad está en que las columnas del txt deben llevar el punto que separa lo decimales en la misma columna o espacio, como se ve en las siguiente imagen. Cabe decir que la tabla tiene un formato para que no aparezcan los 0 a la derecha del punto decimal, solo las decimas como en la ultima columna.

introducir la descripción de la imagen aquí

Estoy usando el siguiente codigo en VBA y he probado muchos metodos y no logro el objetivo de organizar los puntos decimales.

Sub CreaTXT()

Sub CreaTXT()

    Dim NombreArchivo, RutaArchivo As String
    Dim obj As FileSystemObject
    Dim tx As Scripting.TextStream
    Dim Ht As Worksheet
    Dim i, j, nFilas, nColumnas As Integer
    
    NombreArchivo = "DatosCaesar"
    RutaArchivo = ActiveWorkbook.Path & "\" & NombreArchivo & ".txt"
    
    Set Ht = Worksheets("Datos")
    Set obj = New FileSystemObject
    Set tx = obj.CreateTextFile(RutaArchivo)
    
    nColumnas = Ht.Range("A1", Ht.Range("A1").End(xlToRight)).Cells.Count
    nFilas = Ht.Range("A2", Ht.Range("A2").End(xlDown)).Cells.Count
    
    For i = 1 To nFilas
    
        For j = 1 To nColumnas
                
            tx.Write Ht.Cells(i + 1, j + 1).Value
            If j < nColumnas Then tx.Write vbTab
                
        Next j
                
        tx.WriteLine
    
    Next i
    
    tx.Close
    
    Set obj = Nothing
    
    MsgBox "El txt se ha generado con exito..." 

End Sub

End Sub

Necesito generar un TXT de una tabla de excel la cual lleva solo números, pero la dificultad está en que las columnas del txt deben llevar el punto que separa lo decimales en la misma columna o espacio, como se ve en las siguiente imagen. Cabe decir que la tabla tiene un formato para que no aparezcan los 0 a la derecha del punto decimal, solo las decimas como en la ultima columna.

introducir la descripción de la imagen aquí

Estoy usando el siguiente codigo en VBA y he probado muchos metodos y no logro el objetivo de organizar los puntos decimales.

Sub CreaTXT()

Dim NombreArchivo, RutaArchivo As String
Dim obj As FileSystemObject
Dim tx As Scripting.TextStream
Dim Ht As Worksheet
Dim i, j, nFilas, nColumnas As Integer

NombreArchivo = "DatosCaesar"
RutaArchivo = ActiveWorkbook.Path & "\" & NombreArchivo & ".txt"

Set Ht = Worksheets("Datos")
Set obj = New FileSystemObject
Set tx = obj.CreateTextFile(RutaArchivo)

nColumnas = Ht.Range("A1", Ht.Range("A1").End(xlToRight)).Cells.Count
nFilas = Ht.Range("A2", Ht.Range("A2").End(xlDown)).Cells.Count

For i = 1 To nFilas

    For j = 1 To nColumnas
            
        tx.Write Ht.Cells(i + 1, j + 1).Value
        If j < nColumnas Then tx.Write vbTab
            
    Next j
            
    tx.WriteLine

Next i

tx.Close

Set obj = Nothing

MsgBox "El txt se ha generado con exito..."

End Sub

Necesito generar un TXT de una tabla de excel la cual lleva solo números, pero la dificultad está en que las columnas del txt deben llevar el punto que separa lo decimales en la misma columna o espacio, como se ve en las siguiente imagen. Cabe decir que la tabla tiene un formato para que no aparezcan los 0 a la derecha del punto decimal, solo las decimas como en la ultima columna.

introducir la descripción de la imagen aquí

Estoy usando el siguiente codigo en VBA y he probado muchos metodos y no logro el objetivo de organizar los puntos decimales.

Sub CreaTXT()

    Dim NombreArchivo, RutaArchivo As String
    Dim obj As FileSystemObject
    Dim tx As Scripting.TextStream
    Dim Ht As Worksheet
    Dim i, j, nFilas, nColumnas As Integer
    
    NombreArchivo = "DatosCaesar"
    RutaArchivo = ActiveWorkbook.Path & "\" & NombreArchivo & ".txt"
    
    Set Ht = Worksheets("Datos")
    Set obj = New FileSystemObject
    Set tx = obj.CreateTextFile(RutaArchivo)
    
    nColumnas = Ht.Range("A1", Ht.Range("A1").End(xlToRight)).Cells.Count
    nFilas = Ht.Range("A2", Ht.Range("A2").End(xlDown)).Cells.Count
    
    For i = 1 To nFilas
    
        For j = 1 To nColumnas
                
            tx.Write Ht.Cells(i + 1, j + 1).Value
            If j < nColumnas Then tx.Write vbTab
                
        Next j
                
        tx.WriteLine
    
    Next i
    
    tx.Close
    
    Set obj = Nothing
    
    MsgBox "El txt se ha generado con exito..." 

End Sub
se añadieron 1110 caracteres en el cuerpo
Origen Enlace

Necesito generar un TXT de una tabla de excel la cual lleva solo números, pero la dificultad está en que las columnas del txt deben llevar el punto que separa lo decimales en la misma columna o espacio, como se ve en las siguiente imagen. Cabe decir que la tabla tiene un formato para que no aparezcan los 0 a la derecha del punto decimal, solo las decimas como en la ultima columna.

introducir la descripción de la imagen aquí

Estoy usando el siguiente codigo en VBA y he probado muchos metodos y no logro el objetivo de organizar los puntos decimales.

Sub CreaTXT()

Dim NombreArchivo, RutaArchivo As String
Dim obj As FileSystemObject
Dim tx As Scripting.TextStream
Dim Ht As Worksheet
Dim i, j, nFilas, nColumnas As Integer

NombreArchivo = "DatosCaesar"
RutaArchivo = ActiveWorkbook.Path & "\" & NombreArchivo & ".txt"

Set Ht = Worksheets("Datos")
Set obj = New FileSystemObject
Set tx = obj.CreateTextFile(RutaArchivo)

nColumnas = Ht.Range("A1", Ht.Range("A1").End(xlToRight)).Cells.Count
nFilas = Ht.Range("A2", Ht.Range("A2").End(xlDown)).Cells.Count

For i = 1 To nFilas

    For j = 1 To nColumnas
            
        tx.Write Ht.Cells(i + 1, j + 1).Value
        If j < nColumnas Then tx.Write vbTab
            
    Next j
            
    tx.WriteLine

Next i

tx.Close

Set obj = Nothing

MsgBox "El txt se ha generado con exito..."

End Sub

Necesito generar un TXT de una tabla de excel la cual lleva solo números, pero la dificultad está en que las columnas del txt deben llevar el punto que separa lo decimales en la misma columna o espacio, como se ve en las siguiente imagen. Cabe decir que la tabla tiene un formato para que no aparezcan los 0 a la derecha del punto decimal, solo las decimas como en la ultima columna.

introducir la descripción de la imagen aquí

Necesito generar un TXT de una tabla de excel la cual lleva solo números, pero la dificultad está en que las columnas del txt deben llevar el punto que separa lo decimales en la misma columna o espacio, como se ve en las siguiente imagen. Cabe decir que la tabla tiene un formato para que no aparezcan los 0 a la derecha del punto decimal, solo las decimas como en la ultima columna.

introducir la descripción de la imagen aquí

Estoy usando el siguiente codigo en VBA y he probado muchos metodos y no logro el objetivo de organizar los puntos decimales.

Sub CreaTXT()

Dim NombreArchivo, RutaArchivo As String
Dim obj As FileSystemObject
Dim tx As Scripting.TextStream
Dim Ht As Worksheet
Dim i, j, nFilas, nColumnas As Integer

NombreArchivo = "DatosCaesar"
RutaArchivo = ActiveWorkbook.Path & "\" & NombreArchivo & ".txt"

Set Ht = Worksheets("Datos")
Set obj = New FileSystemObject
Set tx = obj.CreateTextFile(RutaArchivo)

nColumnas = Ht.Range("A1", Ht.Range("A1").End(xlToRight)).Cells.Count
nFilas = Ht.Range("A2", Ht.Range("A2").End(xlDown)).Cells.Count

For i = 1 To nFilas

    For j = 1 To nColumnas
            
        tx.Write Ht.Cells(i + 1, j + 1).Value
        If j < nColumnas Then tx.Write vbTab
            
    Next j
            
    tx.WriteLine

Next i

tx.Close

Set obj = Nothing

MsgBox "El txt se ha generado con exito..."

End Sub

cuerpo editado
Origen Enlace

Necesito generar una TXun TXT de una tabla de excel la cual lleva solo números, pero la dificultad está en que las columnas DELdel txt deben llevar el punto que separa lo decimales en la misma columna o espacio, como se ve en las siguiente imagen. Cabe decir que la tabla tiene un formato para que no aparezcan los 0 a la derecha del punto decimal, solo las decimas como en la ultima columna.

introducir la descripción de la imagen aquí

Necesito generar una TX de una tabla de excel la cual lleva solo números, pero la dificultad está en que las columnas DEL txt deben llevar el punto que separa lo decimales en la misma columna o espacio, como se ve en las siguiente imagen. Cabe decir que la tabla tiene un formato para que no aparezcan los 0 a la derecha del punto decimal, solo las decimas como en la ultima columna.

introducir la descripción de la imagen aquí

Necesito generar un TXT de una tabla de excel la cual lleva solo números, pero la dificultad está en que las columnas del txt deben llevar el punto que separa lo decimales en la misma columna o espacio, como se ve en las siguiente imagen. Cabe decir que la tabla tiene un formato para que no aparezcan los 0 a la derecha del punto decimal, solo las decimas como en la ultima columna.

introducir la descripción de la imagen aquí

Origen Enlace
Loading