Crear txt con macro, concatenar y darle formato a cada dato con ceros a izquierda
Hola, busco la forma de crear un .txt con una macro, debe poder concatenar, dar formato a cada dato que tenga cada linea con ceros a la izquierda para un informe bancario, gracias si me pueden ayudar seria grandioso, las lineas deben quedar de la siguiente forma: 0155555555550000000000000201308020001
este es el código en que e estado trabajando:
Public Sub crear txt()
Dim i As Long, Nro1 As String, Nro2 As String, Nro3 As String, Nro4 As String, Nro5 As String
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\archivo2.txt", True)
Nro1 = Format(Hoja1.Range("C" & i), "00")
Nro2 = Format(Hoja1.Range("D" & i), "0000000000")
Nro3 = Format(Hoja1.Range("E" & i), "0000000000")
Nro4 = Format(Hoja1.Range("F" & i), "000")
Nro5 = Format(Hoja1.Range("G" & i), "00")
i.WriteLine ("Dim i As Long, Nro1 As String, Nro2 As String, Nro3 As String, Nro4 As String, Nro5 As String")
i.Close
End Sub
de nuevo muchas gracias.
1 Respuesta
Prueba con este código. Creo que te funcionará:
Sub crearTxt()
Dim i As Long
Dim Nro1 As String
Dim Nro2 As String
Dim Nro3 As String
Dim Nro4 As String
Dim Nro5 As String
Dim nf As Integer
nf = FreeFile
Open "c:\archivo2.txt" For Output As nf
For i = 1 To ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
Nro1 = Format(Hoja1.Range("C" & i), "00")
Nro2 = Format(Hoja1.Range("D" & i), "0000000000")
Nro3 = Format(Hoja1.Range("E" & i), "0000000000")
Nro4 = Format(Hoja1.Range("F" & i), "000")
Nro5 = Format(Hoja1.Range("G" & i), "00")
Print #nf, Nro1 & Nro2 & Nro3 & Nro4 & Nro5
Next i
Close nf
End Sub
