Convertir hojas a txt
Publicado por Verónica (2 intervenciones) el 05/09/2019 08:45:40
Hola,
He estado intentado crear una macro que convierta una hoja de excel a un archivo txt. El problema es que cuando lo hago el archivo que se crea me sale vacío. No sé cuál es mi error, si es algún complemento que no he activado. Este es el código que estoy usando.
Adjunto el archivo por si es algo que no he activado en el programa.
Muchas Gracias Por su tiempo!!!!
He estado intentado crear una macro que convierta una hoja de excel a un archivo txt. El problema es que cuando lo hago el archivo que se crea me sale vacío. No sé cuál es mi error, si es algún complemento que no he activado. Este es el código que estoy usando.
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 USTXT()
Dim NombreArchivo, RutaArchivo As StringDim obj As FileSystemObject
Dim tx As Scripting.TextStreamDim Ht As Worksheet
Dim i, j, nFilas, nColumnas As Integer
NombreArchivo = "US2019- "
RutaArchivo = ActiveWorkbook.Path & "\" & NombreArchivo & ".txt"
Set obj = New FileSystemObjectSet tx = obj.CreateTextFile(RutaArchivo)
Set Ht = Worksheets("USUARIO")
nFiles = Ht.Range("A2", Ht.Range("A2").End(xlDown)).Cells.Count
nColumnas = Ht.Range("A1", Ht.Range("A1").End(xlToRight)).Cells.Count
For i = 1 To nFilas For j = 1 To nColumnastx.Write Ht.Cells(i + 1, j)
If j < nColumnas Then tx.Write ","
Next j
tx.WriteLineNext i
End Sub
Adjunto el archivo por si es algo que no he activado en el programa.
Muchas Gracias Por su tiempo!!!!
- archivo-base.zip(20,2 KB)
Valora esta pregunta
0
