Dante Amor respondió:
Te anexo la macro Sub GuardarTxt() 'Por.Dante Amor Application.DisplayAlerts = False Application.ScreenUpdating = False Set l1 = ThisWorkbook ActiveSheet.Copy Set l2 = ActiveWorkbook ruta = l1.Path & "\" l2.SaveAs Filename:=ruta & "archivo.txt",...