Skip to content

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]
    .