Respuesta : Salvar a txt

#1 Luis

30/09/2004 - 04:35 | Informe spam

Copia este código en un módulo del libro de origen

Sub ConvertTexto()
Dim Nvo As Object
Set Nvo = Workbooks.Add 'se crea un nuevo libro

Sheets("Hoja1").Select 'selecciona la Hoja que deseas copiar en el nuevo
libro
Sheets("Hoja1").Copy Before:=Nvo.Sheets(1)
ActiveWorkbook.SaveAs Filename:="C:\Documents and
Settings\Administrador\Mis documentos\MiArchivo.txt", _
FileFormat:=xlText, CreateBackup:=False' Aqui defines la carpeta y
el nombre del archivo de texto que deseas crear
End Sub

Luis Medina
MENUFazt - Menu Excel Multifunciones
http://www11.brinkster.com/luism0/

"Lolo" escribió en el mensaje
news:0e5901c4a656$2d8efb80$

Buenas tardes a todos los foreros.
Quisiera que alguien me dijera como lograr con una macro
salvar una hoja a un fichero txt ,con cualquier
nombre ,pero sin afectar el formato del original.
Atte Lolo

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.769 / Virus Database: 516 - Release Date: 24/09/2004

Responder a este mensaje

#2 Luis

30/09/2004 - 04:48 | Informe spam

Te adiciono el código:

Antes del End Sub debes agregar este código para cerrar el nuevo libro, para
que luego lo busques como archivo de texto:

Application.DisplayAlerts = False
Nvo.Close
Application.DisplayAlerts = True

Luis Medina
MENUFazt - Menu Excel Multifunciones
http://www11.brinkster.com/luism0/

"Luis" escribió en el mensaje
news:

Copia este código en un módulo del libro de origen

Sub ConvertTexto()
Dim Nvo As Object
Set Nvo = Workbooks.Add 'se crea un nuevo libro

Sheets("Hoja1").Select 'selecciona la Hoja que deseas copiar en el

nuevo

libro
Sheets("Hoja1").Copy Before:=Nvo.Sheets(1)
ActiveWorkbook.SaveAs Filename:="C:\Documents and
Settings\Administrador\Mis documentos\MiArchivo.txt", _
FileFormat:=xlText, CreateBackup:=False' Aqui defines la carpeta y
el nombre del archivo de texto que deseas crear
End Sub

Luis Medina
MENUFazt - Menu Excel Multifunciones
http://www11.brinkster.com/luism0/

"Lolo" escribió en el mensaje
news:0e5901c4a656$2d8efb80$
> Buenas tardes a todos los foreros.
> Quisiera que alguien me dijera como lograr con una macro
> salvar una hoja a un fichero txt ,con cualquier
> nombre ,pero sin afectar el formato del original.
> Atte Lolo

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.769 / Virus Database: 516 - Release Date: 24/09/2004

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.769 / Virus Database: 516 - Release Date: 24/09/2004

Responder a este mensaje

#3 LOLO

30/09/2004 - 18:18 | Informe spam

Hola Luis ,cuando ejecuto el fichero txt esta en blanco
hay algo como si copia de la hoja original,o que esta
guardando la nueva no se bien que es.
Un saludo Lolo

Te adiciono el código:

Antes del End Sub debes agregar este código para cerrar

el nuevo libro, para

que luego lo busques como archivo de texto:

Application.DisplayAlerts = False
Nvo.Close
Application.DisplayAlerts = True

Luis Medina
MENUFazt - Menu Excel Multifunciones
http://www11.brinkster.com/luism0/

"Luis" escribió en el mensaje
news:

Copia este código en un módulo del libro de origen

Sub ConvertTexto()
Dim Nvo As Object
Set Nvo = Workbooks.Add 'se crea un nuevo libro

Sheets("Hoja1").Select 'selecciona la Hoja que

deseas copiar en el

nuevo

libro
Sheets("Hoja1").Copy Before:=Nvo.Sheets(1)
ActiveWorkbook.SaveAs Filename:="C:\Documents and
Settings\Administrador\Mis documentos\MiArchivo.txt", _
FileFormat:=xlText, CreateBackup:=False' Aqui

defines la carpeta y

el nombre del archivo de texto que deseas crear
End Sub

Luis Medina
MENUFazt - Menu Excel Multifunciones
http://www11.brinkster.com/luism0/

"Lolo" escribió

en el mensaje

news:0e5901c4a656$2d8efb80$
> Buenas tardes a todos los foreros.
> Quisiera que alguien me dijera como lograr con una

macro

> salvar una hoja a un fichero txt ,con cualquier
> nombre ,pero sin afectar el formato del original.
> Atte Lolo

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system

(http://www.grisoft.com).

Version: 6.0.769 / Virus Database: 516 - Release Date:

24/09/2004

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.769 / Virus Database: 516 - Release Date:

24/09/2004

.

Responder a este mensaje

#4 L. A. M.

01/10/2004 - 01:16 | Informe spam

Lolo, es cuestion del juego de activacion de libros. Este codigo te
funciona:

Sub ConvertTexto()
Dim Nvo As Object
Set Nvo = Workbooks.Add 'se crea un nuevo libro
ThisWorkbook.Activate
Sheets("Hoja1").Select 'selecciona la Hoja quedeseas copiar en elnuevo
libro
Sheets("Hoja1").Copy Before:=Nvo.Sheets(1)
Nvo.Activate
ActiveWorkbook.SaveAs Filename:="C:\Documents and
Settings\Administrador\Mis documentos\MiArchivo.txt", _
FileFormat:=xlText, CreateBackup:=False ' Aquidefines la carpeta y
el nombre del archivo de texto que deseas crear
Application.DisplayAlerts = False
Nvo.Close
Application.DisplayAlerts = True
End Sub

"LOLO" escribió en el mensaje
news:0d0a01c4a709$10fe1dd0$
Hola Luis ,cuando ejecuto el fichero txt esta en blanco
hay algo como si copia de la hoja original,o que esta
guardando la nueva no se bien que es.
Un saludo Lolo

Te adiciono el código:

Antes del End Sub debes agregar este código para cerrar

el nuevo libro, para

que luego lo busques como archivo de texto:

Application.DisplayAlerts = False
Nvo.Close
Application.DisplayAlerts = True

Luis Medina
MENUFazt - Menu Excel Multifunciones
http://www11.brinkster.com/luism0/

"Luis" escribió en el mensaje
news:

Copia este código en un módulo del libro de origen

Sub ConvertTexto()
Dim Nvo As Object
Set Nvo = Workbooks.Add 'se crea un nuevo libro

Sheets("Hoja1").Select 'selecciona la Hoja que

deseas copiar en el

nuevo

libro
Sheets("Hoja1").Copy Before:=Nvo.Sheets(1)
ActiveWorkbook.SaveAs Filename:="C:\Documents and
Settings\Administrador\Mis documentos\MiArchivo.txt", _
FileFormat:=xlText, CreateBackup:=False' Aqui

defines la carpeta y

el nombre del archivo de texto que deseas crear
End Sub

Luis Medina
MENUFazt - Menu Excel Multifunciones
http://www11.brinkster.com/luism0/

"Lolo" escribió

en el mensaje

news:0e5901c4a656$2d8efb80$
> Buenas tardes a todos los foreros.
> Quisiera que alguien me dijera como lograr con una

macro

> salvar una hoja a un fichero txt ,con cualquier
> nombre ,pero sin afectar el formato del original.
> Atte Lolo

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system

(http://www.grisoft.com).

Version: 6.0.769 / Virus Database: 516 - Release Date:

24/09/2004

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.769 / Virus Database: 516 - Release Date:

24/09/2004

.

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.771 / Virus Database: 518 - Release Date: 09/28/2004

Responder a este mensaje

#5 LOLO

04/10/2004 - 23:28 | Informe spam

Muchas gracias LAM ahora si funciona.
Un saludo LOLO

Lolo, es cuestion del juego de activacion de libros. Este

codigo te

funciona:

Sub ConvertTexto()
Dim Nvo As Object
Set Nvo = Workbooks.Add 'se crea un nuevo libro
ThisWorkbook.Activate
Sheets("Hoja1").Select 'selecciona la Hoja quedeseas

copiar en elnuevo

libro
Sheets("Hoja1").Copy Before:=Nvo.Sheets(1)
Nvo.Activate
ActiveWorkbook.SaveAs Filename:="C:\Documents and
Settings\Administrador\Mis documentos\MiArchivo.txt", _
FileFormat:=xlText, CreateBackup:=False '

Aquidefines la carpeta y

el nombre del archivo de texto que deseas crear
Application.DisplayAlerts = False
Nvo.Close
Application.DisplayAlerts = True
End Sub

"LOLO" escribió en

el mensaje

news:0d0a01c4a709$10fe1dd0$
Hola Luis ,cuando ejecuto el fichero txt esta en blanco
hay algo como si copia de la hoja original,o que esta
guardando la nueva no se bien que es.
Un saludo Lolo

Te adiciono el código:

Antes del End Sub debes agregar este código para cerrar

el nuevo libro, para

que luego lo busques como archivo de texto:

Application.DisplayAlerts = False
Nvo.Close
Application.DisplayAlerts = True

Luis Medina
MENUFazt - Menu Excel Multifunciones
http://www11.brinkster.com/luism0/

"Luis" escribió en el mensaje
news:

Copia este código en un módulo del libro de origen

Sub ConvertTexto()
Dim Nvo As Object
Set Nvo = Workbooks.Add 'se crea un nuevo libro

Sheets("Hoja1").Select 'selecciona la Hoja que

deseas copiar en el

nuevo

libro
Sheets("Hoja1").Copy Before:=Nvo.Sheets(1)
ActiveWorkbook.SaveAs Filename:="C:\Documents and
Settings\Administrador\Mis documentos\MiArchivo.txt", _
FileFormat:=xlText, CreateBackup:=False' Aqui

defines la carpeta y

el nombre del archivo de texto que deseas crear
End Sub

Luis Medina
MENUFazt - Menu Excel Multifunciones
http://www11.brinkster.com/luism0/

"Lolo" escribió

en el mensaje

news:0e5901c4a656$2d8efb80$
> Buenas tardes a todos los foreros.
> Quisiera que alguien me dijera como lograr con una

macro

> salvar una hoja a un fichero txt ,con cualquier
> nombre ,pero sin afectar el formato del original.
> Atte Lolo

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system

(http://www.grisoft.com).

Version: 6.0.769 / Virus Database: 516 - Release Date:

24/09/2004

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system

(http://www.grisoft.com).

Version: 6.0.769 / Virus Database: 516 - Release Date:

24/09/2004

.

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.771 / Virus Database: 518 - Release Date:

09/28/2004

.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Salvar a txt

Preguntas similare

Leer las respuestas