Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Guardar como texto delimitado por pipes

truquinho

New member
Registrado
26 Abr 2006
Mensajes
20
Hola

Tengo dos preguntas:

1-Como puedo crear una macro que me permita guardar el archivo Nueva Version.xls como un archivo delimitado por pipes.

2-Como quedarí­a una macro para pasar los datos...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Solución
Dejo la opcion de crear el mismo dato en la "hoja1" o bien en un archivo de texto cmo se dijo en primera instancia.

Sub Delimitador()
Application.ScreenUpdating = False
Dim mc
inicio = Time
' Primera fila
i = 1
Open "c:\nuevo.txt" For Output As #1
Do Until ActiveCell = Empty
Rows(i).Select
For Each xcell In Selection
mc = mc & xcell & "|"
If xcell = Empty Then Exit For
Next xcell
' Si quieres que se grabe en la hoja 1
Sheets("hoja1").Cells(i, 1).Value = mc
Write #1, mc
mc = ""
i = i + 1
Application.StatusBar = "Fila " & i
ActiveCell.Offset(1, 0).Select
Loop
Sheets("hoja1").Select
fin = Time
Application.ScreenUpdating = True
Application.StatusBar = "Tiempos: " & inicio & " " &...
Dejo la opcion de crear el mismo dato en la "hoja1" o bien en un archivo de texto cmo se dijo en primera instancia.

Sub Delimitador()
Application.ScreenUpdating = False
Dim mc
inicio = Time
'...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Podrias dar mas detalles del segundo archivo, como por ejemplo a que se refiere cada celda dentro del mismo, como es su estructura, no me queda muy claro cual es la idea de la misma.

Saludos
 
Volver
Arriba