Guardar cada hoja como un txt

Esta macro te guardará cada hoja como un fichero txt (el nombre del txt será el nombre de la hoja). Se puede modificar fácilmente para omitir ciertas hojas.

[VB]Sub HojasATxt()
Dim ws As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Worksheets
Sheets(ws.Name).Select
Sheets(ws.Name).Copy
‘Modifica C:Temp por la carpeta donde se guardarán
ActiveWorkbook.SaveAs Filename:=”C:Temp” & ws.Name & “.txt”, _
FileFormat:=xlText, CreateBackup:=False
ActiveWorkbook.Close
ThisWorkbook.Activate
Next
End Sub[/VB]
.