
Formato TXT
Publicado por Dario (92 intervenciones) el 04/10/2014 04:40:14
Estimado, La formula que desarrollo a continuación esta puesta en un boton de comandos
------------------------------------------------------------------------------------------------------------------
'Determina que la celda C11 va a ser la referencia de la ruta a donde sera guardado el archivo
Ruta = Range("A1").Value
'Selecciona la celda A3
Application.Goto Reference:="R3C1"
'Copia lo seleccionado anteriormente
Selection.Copy
'Abre un nuevo Libro
Workbooks.Add
'Pega lo anteriormente copiado pero solo los valores
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'ActiveSheet.Paste
Application.CutCopyMode = False
Application.DisplayAlerts = False
'Guarda el archivo con el nombre y dirección especificada en formato TXT
ActiveWorkbook.SaveAs Filename:=Ruta _
, FileFormat:=xlUnicodeText, CreateBackup:=False
'Cierra el libro abierto enteriormente
ActiveWindow.Close
------------------------------------------------------------------------------------------------------------------
Lo que hace es lo siguiente: En la celda A3 tengo la formula =CONCATENAR(A2;B2;C2)
1° Copia lo de la celda A3
2° Habre un nuevo Libro
3° Pega en el nuevo Libro solo los valores de lo copiado anteriormente: 150920142415M331
4° Guarda el archivo en formato TXT en la direccion y con el nombre especificado en A1
5° Cierra en nuevo Libro abierto
El problema ocurre que cuando abro el archivo TXT esta la información que copio anteriormente, o sea 150920142415M331 pero a esta cadena de caracteres le agrega comillas al principio y al final.
En definitiva lo que hay al abrir el archivo TXT es: "150920142415M331"
La pregunta es: ¿Por qué le agrega las comillas al principio y final?
Gracias por su atención
------------------------------------------------------------------------------------------------------------------
'Determina que la celda C11 va a ser la referencia de la ruta a donde sera guardado el archivo
Ruta = Range("A1").Value
'Selecciona la celda A3
Application.Goto Reference:="R3C1"
'Copia lo seleccionado anteriormente
Selection.Copy
'Abre un nuevo Libro
Workbooks.Add
'Pega lo anteriormente copiado pero solo los valores
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'ActiveSheet.Paste
Application.CutCopyMode = False
Application.DisplayAlerts = False
'Guarda el archivo con el nombre y dirección especificada en formato TXT
ActiveWorkbook.SaveAs Filename:=Ruta _
, FileFormat:=xlUnicodeText, CreateBackup:=False
'Cierra el libro abierto enteriormente
ActiveWindow.Close
------------------------------------------------------------------------------------------------------------------
Lo que hace es lo siguiente: En la celda A3 tengo la formula =CONCATENAR(A2;B2;C2)
1° Copia lo de la celda A3
2° Habre un nuevo Libro
3° Pega en el nuevo Libro solo los valores de lo copiado anteriormente: 150920142415M331
4° Guarda el archivo en formato TXT en la direccion y con el nombre especificado en A1
5° Cierra en nuevo Libro abierto
El problema ocurre que cuando abro el archivo TXT esta la información que copio anteriormente, o sea 150920142415M331 pero a esta cadena de caracteres le agrega comillas al principio y al final.
En definitiva lo que hay al abrir el archivo TXT es: "150920142415M331"
La pregunta es: ¿Por qué le agrega las comillas al principio y final?
Gracias por su atención
Valora esta pregunta


0