Guardar como texto delimitado por pipes

Solo consultas sobre macros y código VBA Excel.

Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Compartir en:
     

Guardar como texto delimitado por pipes

Notapor truquinho » 19 Jul 2006 20:04

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
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
truquinho
Miembro Frecuente
Miembro Frecuente
 
Registrado: 26 Abr 2006 18:38
Ubicación: Tlalnepatla

Re: Guardar como texto delimitado por pipes

Notapor opermty » 20 Jul 2006 15:26

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
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
opermty
Miembro Frecuente
Miembro Frecuente
 
Registrado: 29 Abr 2006 04:11
Ubicación: MONTERREY NL MX

Notapor opermty » 20 Jul 2006 15:28

Lo anterior suponiendo que la columna A siempre contendra datos :)
Si existen mas detalles comenta
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
opermty
Miembro Frecuente
Miembro Frecuente
 
Registrado: 29 Abr 2006 04:11
Ubicación: MONTERREY NL MX

Notapor opermty » 20 Jul 2006 15:33

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
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
opermty
Miembro Frecuente
Miembro Frecuente
 
Registrado: 29 Abr 2006 04:11
Ubicación: MONTERREY NL MX


Compartir en:
     

  • Anuncio
Manual Excel avanzado

Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: olga3963 y 5 invitados