Foro Excel

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 de la hoja FormatoDYH al formato Archivo Final

Nota Adjunto los archivos

Gracias

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 & " " & fin
Close #1
End Sub

Lo anterior suponiendo que la columna A siempre contendra datos
Si existen mas detalles comenta

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