Formato txt de excel usando VB con ceros a la izquierda
Publicado por FERNANDO ALFONZO (1 intervención) el 25/09/2017 17:31:11
Buenos días.....
Me gustaría ver quien me puede ayudar......
Tengo un archivo en Excel de 6 columnas con el cual quiero hacer un archivo txt para pago de Nómina y para ello cree una formula en VB, pero necesito agregar ceros a la izquierda pero solo en las columnas 3, 4 y 5... En la columna 3, solo tengo que agregar 1 cero, en la columna 4 la cantidad de caracteres de la columna es 15 incluyendo decimales (Monto a pagar) sin que tenga separaciones de coma o puntos, la columna 5 igual son 15 caracteres (cédulas de identidad).......
La formula creada es:
Usando esta formula cuando coloco entre las comillas del.... If j < nColumnas Then tx.Write ""..... "0" un cero me modifica las columnas 2,3,4,5 y 6
Que debo modificarle a esta formula para que solo me modifique las columnas deseadas con las cantidades de ceros a la izquierda que necesito y que me tome los numeros decimales sin separaciones en la columna 4
Muchas gracias...
Me gustaría ver quien me puede ayudar......
Tengo un archivo en Excel de 6 columnas con el cual quiero hacer un archivo txt para pago de Nómina y para ello cree una formula en VB, pero necesito agregar ceros a la izquierda pero solo en las columnas 3, 4 y 5... En la columna 3, solo tengo que agregar 1 cero, en la columna 4 la cantidad de caracteres de la columna es 15 incluyendo decimales (Monto a pagar) sin que tenga separaciones de coma o puntos, la columna 5 igual son 15 caracteres (cédulas de identidad).......
La formula creada es:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub CrearTXT()
Dim NombreArchivo, RutaArchivo As StringDim obj As FileSystemObject
Dim tx As Scripting.TextStreamDim Ht As Worksheet
Dim i, j, nFilas, nColumnas As Integer
NombreArchivo = "Banco TXT"
RutaArchivo = ActiveWorkbook.Path & "\" & NombreArchivo & ".txt"
Set Ht = Worksheets("BANCO TXT")
Set obj = New FileSystemObjectSet 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 nColumnastx.Write Ht.Cells(i + 1, j).Value
If j < nColumnas Then tx.Write ""
Next j
tx.WriteLineNext i
End Sub
Usando esta formula cuando coloco entre las comillas del.... If j < nColumnas Then tx.Write ""..... "0" un cero me modifica las columnas 2,3,4,5 y 6
Que debo modificarle a esta formula para que solo me modifique las columnas deseadas con las cantidades de ceros a la izquierda que necesito y que me tome los numeros decimales sin separaciones en la columna 4
Muchas gracias...
Valora esta pregunta
0
