Usar macro de excel para guardar dos archivos, uno de cada hoja
Me gustaría que al lanzar una macro desde la hoja 1, me guarde un archivo con formato .csv(delimitado por ;) con los datos de la hoja dos, y que me guardase otro archivo similar con los datos de la hoja 3.
1 respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro para crear las hojas como csv
Sub GuardarHojasCsv()
'Por.Dante Amor
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ruta = ThisWorkbook.Path & "\"
Sheets("Hoja2").Copy
arch = "archivo Hoja2"
ActiveWorkbook.SaveAs Filename:=ruta & arch & ".csv", FileFormat:=xlCSV
ActiveWindow.Close False
Sheets("Hoja3").Copy
arch = "archivo Hoja3"
ActiveWorkbook.SaveAs Filename:=ruta & arch & ".csv", FileFormat:=xlCSV
ActiveWindow.Close False
MsgBox "Se crearon las hojas 2 y 3 como csv", vbInformation, "GUARDAR HOJAS COMO CSV"
End SubCambia en la macro "hoja2" y "Hoja3" por los nombres de tus hojas.
Cambia en la macro "archivo Hoja2" y "archivo Hoja3", por los nombres que quieres que tengan los archivos.
