1

El código que uso actualmente es el siguiente:

RutaArchivo = "C:\Users\bu766pd\Documents\Auditorias\Liberty Fianzas\2017\3ER TRIM 17\Procesos" & "\"
NombreArchivo = "m_" & fianza & "_0917"
ActiveWorkbook.SaveAs Filename:=RutaArchivo & NombreArchivo & ".xlsm", FileFormat:=xlWorkbookNormal
ActiveWorkbook.Close

1 respuesta 1

1

Debes modificar el formato por FileFormat:=51 y recomendable también modificar la extensión

ActiveWorkbook.SaveAs Filename:=RutaArchivo & NombreArchivo & ".xlsx", FileFormat:=51

O bien usar la etiqueta xlOpenXMLWorkbook

ActiveWorkbook.SaveAs Filename:=RutaArchivo & NombreArchivo & ".xlsx", FileFormat:=xlOpenXMLWorkbook

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.