Como crear un archivo Ascii personalizado desde Excel…

[Loscar]

Buen dí­a Excel-men… nuevamente recurriendo a su gran experiencia en Excel para este problema… resulta que necesito crear archivos texto a partir de hojas en Excel.

Puedo generar los archivos...

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í

 

[galileogali]

Sub test()
Dim fso As FileSystemObject
Dim filtext As TextStream
Dim stFiltext As String
Dim largost As Single
Set fso = CreateObject("Scripting.filesystemobject")

Set filtext =...

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í

 

[galileogali]

Sub test()
Dim fso As FileSystemObject
Dim filtext As TextStream
Dim stFiltext As String
Dim largost As Single
Set fso = CreateObject("Scripting.filesystemobject")

Set filtext =...

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í

 

[Loscar]

Gracias Gali muy amable, estuve probando tu código… pero me genera un error en la fila Dim fso As FileSystemObject de “No se ha definido el tipo por el usuarioâ€

 

[federico ramirez marron]

me pasa igual!!!!

 

[galileogali]

Perdon omiti decir que hay que habilitar una Referencia en VBE....
es decir desde el Editor de visual, ber el Menu Referencias y Buscar la siguiente:
Microsoft Scripting Runtime, y tildar el...

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í

 

[Loscar]

Gracias, pero ahora genera el error "La entrada de datos ha sobrepasado el final del archivo (Error 62)" en la lí­nea... stFiltext = filtext.ReadAll. Si me pudieras informar del mimo por...

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í

 

[galileogali]

Loscar: si puedes mandame un zip del txt.

 

[galileogali]

Prueba con esta:

Sub TextTest()
Dim fso As FileSystemObject
Dim filtext As TextStream, filtext2 As TextStream
Dim stFiltext As String

Dim delimiter As String
Set fso =...

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í

 

[Loscar]

Gracias Gali... lo veré y te comento... siempre te subo mis archivos... mil gracias.

 

[Loscar]

Gracias Gali... funciona bien... lo adaptaré a lo que necesito... mil gracias, saludos cordiales.