Hola Mauricio. Excelente tu aporte. Con la macro funcionó perfectamente. Muchas gracias
Cordialmente, Milena Ortiz C. Auxiliar de Sistemas NEW STETIC S.A. Mailto:[EMAIL PROTECTED] Carrera 53 No.50-09 Km. 22 Aut. Med-Bog Guarne - Antioquia - Colombia - Suramérica Phone : (574) 550-00-00 Ext. 265 Fax : (574) 551-31-34 Visítenos en: www.newstetic.com -----Mensaje original----- De: Mauricio Baeza [mailto:[EMAIL PROTECTED] Enviado el: Miércoles, 31 de Mayo de 2006 03:38 p.m. Para: [email protected] Asunto: Re: [d_es] Abrir archivos .txt Hola Milena... Hola a todos... El secreto esta en el filtro que usas para abrirlo, estando en Calc, ve al menu Abrir..., en este punto es importante que; en donde dice Tipo, selecciones Texto CSV, pero muy importante, en el ares de filtros para Calc, como te muestro en la siguiente imagen... http://www.grupouniverso.com/informatica/ooo/AbrirTXT.JPG Ahora, te mostrara el cuadro de dialogo para Importar Texto, aqui estableces en el cuadro de texto Otro, el arroba (@) como separador de campo, como te muestro en la siguiente imagen... http://www.grupouniverso.com/informatica/ooo/Separador2.JPG Listo, al dar click en Aceptar, te creara el nuevo libro con tus datos separados... La opcion que te comenta Pablo, tambien es muy buena, pero funciona con texto que este "ya" copiado en Calc, si lo quieres usar, en el siguiente vinculo puedes descargar un pequeño manual de como instalar y usar el complemento de Texto a columnas, ademas de que junto con el encontraras la version ya en español http://www.grupouniverso.com/informatica/ooo/Instalar%20el%20complemento%20T exto%20a%20Columnas.zip Si continuamente importas este tipo de archivos, por supuesto es mejor automatizarlo, es decir, conviene cuando los archivos a importar "siempre" tienen la misma estructura, una muestra de esto esta en el siguiente vinculo... http://www.grupouniverso.com/informatica/ooo/ImportarTXTCSV_comas.zip OJO, dentro del codigo, en la seccion de declaraciones busca la siguiente linea Const SEPARADOR As String = ";" y cambiala por Const SEPARADOR As String = "@" y ejecutas la macro Ejecutar_DlgImportar Lo he probado y funciona bien, ahora, una automatizacion mas completa, te podria importar el archivo directamente y se puede hacer mas rapido, si emulamos lo que hace el Importador de textos pero a travez de codigo, por ejemplo, el siguiente trozo de codigo lo uso en uno mucho mas grande, donde se importa directamente un archivo de texto separado por comas... Propiedades(0).Name = "FilterName" Propiedades(0).Value ="Text - txt - csv (StarCalc)" Propiedades(1).Name = "FilterOptions" Propiedades(1).Value = "9/59,34,ANSI" '59 = ";", 9 = TAB, 34 = (") delimitador de texto Propiedades(2).Name = "DocumentTitle" Propiedades(2).Value = GetFileNameWithoutExtension(FileNameOutOfPath(strRuta)) strRuta = ConvertToUrl( strRuta ) oDocTmp = StarDesktop.loadComponentFromURL(strRuta, "_blank", 0, Propiedades()) En el codigo anterior, el punto interesante es la propiedad FilterOptions, para cada caso puede ser diferente, incluso se puede establecer el formato de cada columna a importar, esto es importante, por ejemplo, en archivos que traen campos de fecha, estas, a veces, al importase, Calc las reconoce como texto, tambien es posible importar solo las que uno quiera, omitiendo las demas... Las variantes son enormes, tantas como usuarios, lo importante es tener la mayoria de las opciones (y por supuesto saber implementarlas) para usar las que mejor convengas a nuestros intereses, si alguno tiene un caso en especial, con gusto lo ayudamos a implementar su filtro correcto... Saludos a todos... Mauricio On 5/31/06, Milena Ortiz C. <[EMAIL PROTECTED]> wrote: > > Hola a todos. Les cuento que tengo un archivo que fue generado por un > software con la extensión .txt pero al tratar de abrirlo en OpenOffice no > funciona. > > El archivo está delimitado por @ y aunque lo abro con tipo Texto CSV solo > se > abre como un documento de texto y necesito trabajarlo como una hoja de > cálculo. > > Si alguien a tenido el mismo inconveniente y sabe como solucionarlo, le > agradezco su información > > Muchas gracias por su colaboración. > > Cordialmente, > > Milena Ortiz C. > Auxiliar de Sistemas > NEW STETIC S.A. > Mailto:[EMAIL PROTECTED] > Carrera 53 No.50-09 Km. 22 Aut. Med-Bog > Guarne - Antioquia - Colombia - Suramérica > Phone : (574) 550-00-00 Ext. 265 > Fax : (574) 551-31-34 > Visítenos en: www.newstetic.com > > --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
