Método SaveCopyAs
Guarda el proyecto HTML especificado con un nuevo nombre de archivo.
expresión.SaveCopyAs(Filename)
expresión Un objeto HTMLProjectItem.
Filename String requerida. Ruta completa del archivo en el que desea guardar el elemento del proyecto HTML.
Ejemplo
Este ejemplo guarda una copia del texto del elemento del proyecto HTML actual en el archivo NewScript.txt.
ActiveWorkbook.HTMLProject.HTMLProjectItems. _
Item(1).SaveCopyAs("C:\NewScript.txt")