Exportar hoja de excel a un archivo txt

Hola necesito exportar una hoja de calculo de excel a un archivo plano txt, por ejemplo en mi libro tengo varias hojas.. Hoja1,Hoja2,Hoja3,Hoja4 pero solo quiero exportar la Hoja2. Como podría hacerlo. Gracias

1 respuesta

Respuesta
1

Te mando mi solución. Esta macro te creará un txt de la hoja2 y lo dejará grabado en tu directorio predeterminado. El nombre con el que lo graba es "documento" (lo puedes cambiar)

Sub crear_txt()
milibro = ActiveWorkbook.Name
Workbooks.Add
otro = ActiveWorkbook.Name
Workbooks(milibro).Activate
Sheets("hoja2").Copy before:=Workbooks(otro).Sheets(1)
ActiveWorkbook.SaveAs "documento", FileFormat:=xlText
activeworkbook.close false
End Sub

recuerda finalizar y puntuar la consulta

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas