Salvar a txt

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