Foro Excel

tengo un archivo en el bloc de notas delimitadas por pipes, y quiero pasarlos a excel pero que por cada pipe que tenga cada palabra se ubique en una columna de excel, ya lo intente pero me guarda todo en una sola columna, alguien tendra una macro que pueda hacer esto?

o que conosca alguna funcion de excel que tambien lo haga, les agradesco de antemano su aportacion para mi causa.

mil gracias por sus aportaciones que me puedan dar""

Hola Federico

Creo que deberí­a funcionarte lo siguiente:
Menu Archivo > Arbrir, en tipo de archivo seleccionas Todos los archivos (así­ verás los .txt) y selccionas el que quieres pasar a excel. Se te abrira el asistente para importar textos.
Seleccionas Delimitados y pulsas siguiente
En Separadores eleiges Otros y pones | (el pipe de marras), pulsas siguiente y ya sólo te quedará elegir formato y finalizar.
Guardas la hoja como archivo de excel y listo.

Te adjunto un fichero zip con archivo xls y un fichero txt de ejemplo que mediante una macro te hace lo mismo.

Un saludo desde Vitoria

Saludos y disculpen que me meta, Ioyama como harí­a para que efectivamente ,como lo mencionas, me pregunte el archivo txt que deseo procesar?

desde luego me refiero en el código VBA

gracias

Prueba esta linea dentro del codigo que tengas:

Sub txts()
filenamexls = Application.GetOpenFilename(filefilter:="TXT files, *.txt", MultiSelect:=false)
End Sub


Saludos

Larutina de abrir el archivo con los delimtadores especificos la puedes hacer grabandola

Mas o menos queda asi

Sub TxtPipes()
ChDir (ActiveWorkbook.Path)
filenametxt = Application.GetOpenFilename(filefilter:="TXT files, *.txt", MultiSelect:=False)
Workbooks.OpenText Filename:= _
filenametxt, Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=True, OtherChar:="|"
nomfic = ActiveSheet.Name
ActiveWorkbook.SaveAs Filename:=nomfic, FileFormat:=xlNormal
End Sub

Gracias opermty

Este ejemplo en muy didáctico.

SALUDOS