Hola, soy nuevo aca. 

Quiero hacer una consulta para ver si me ayudan con esto que no me deja abrir el archivo cuando lo guardo de esta manera en formato .Xlsm
 

Guarda el archivo  y todo bien, solo que al intentar abrir el archivo nuevo me da error.

Sub CopiarLibroActivo()

With ActiveWorkbook
   .SaveCopyAs "C:\Users\Arroyo\Desktop\Domesa\ " & Format(Now, "dd-mm-yyyy") & " Control Cinta, Sobres y Bolsas" & ".xlsx"
End With    'TRATO DE GUARDARLO COMO ".XLSX" DE ESTA MANERA
            'PERO AL INTENTAR ABRIR EL ARCHIVO CREADO ME DA ERROR

End Sub

GuardarLibroActivo.bas

Hola SilverCrown,

Si el archivo donde lo ejecutas es XLSM, tendria que cambiar la extension de la copia a XLSM.

No lo sé exacto pero si un archivo XLSM lo guardas como XLSX, pues puede que te de problemas.

Y ademas por si acaso quitaria un espacio que hay en

.SaveCopyAs "C:\Users\Arroyo\Desktop\Domesa\_" & Format(Now, "dd-mm-yyyy") & " Control Cinta, Sobres y Bolsas" & ".xlsx"

Ese no es el problema pero yo lo quitaria por si acaso....

SAludos

Ikanni

 

 

Te falta el parámetro:

 

FileFormat:=fileformat

 

revisa este link: SaveAs

 

 

 

 

Editado el el 17 de marzo8 años por Macro Antonio
Nombre del link incorrecto y bronca innecesaria, mis disculpas.

Hace 1 hora, Macro Antonio dijo:

 

Te falta el parámetro:

 

FileFormat:=fileformat

 

Buenos días Don MacroAntonio,

Segun la ayuda,

Método Workbook.SaveAs

el parametro FileFormat dice...

Formato de archivo que se debe usar al guardar el archivo. Para obtener una lista de las opciones válidas, consulte la enumeración XlFileFormat. Para un archivo existente, el formato predeterminado es el último formato de archivo especificado. Para un archivo nuevo, el formato predeterminado es el formato de la versión de Excel que se usa.

Esto, según entiendo yo, es para el formato y/o Versiones, osea para guardarlo como Csv, htlm, excel5, excel8, etc... NO para guardarlo como xlsx ejecutado en un xlsm. He hecho  la prueba y como que no deja. Osea lo gurda pero no se puede abrir.

Método SaveCopyAs

No dispone de parametros

He probado de las dos maneras y no se guarda el archivo bien. Con el Metodo SaveAs, al abrir el archivo guardado se me cuelgua hasta el Excel ¡¡¡¡

Así que sino no hago algo mal (QUe tambien puede ser), No se puede guardar un XLSM como XLSX

Saludo

Ikanni

Un saludo para toda la distinguida concurrencia. Un par de comentarios:

 

- SaveCopyAs es un método “sencillito” nomás: sólo te permite guardar el libro -eventualmente con otro nombre- pero NO sirve para cambiar el formato del mismo. Por lo que si lo aplicas a un “xlsm” te lo guardará así aunque le pongas cualquier otra extensión al nombre del libro.

 

- Lo apropiado para lo que deseas hacer es utilizar el método SaveAs. Ello conllevará un "costo adicional" en términos de líneas de programa como por ejemplo:

Sub CopiarLibroActivo()
Dim oldName$, newName$

With ActiveWorkbook

'Nombre original del libro con macros:
  oldName = .FullName
  .Save

'Nuevo nombre del libro que guardaré sin macros:
  newName = .Path & "\Otro nombre.xlsx"
  If Dir(newName) <> "" Then Kill newName

'Guardo el libro activo pero sin macros:
  Application.DisplayAlerts = False
    .SaveAs newName, FileFormat:=51
  Application.DisplayAlerts = True
 
'Vuelvo a abrir el libro original:
  Workbooks.Open oldName

'Cierro el libro sin macros:
  .Close False
End With

End Sub

 

 

 

Ok entendido, osea lo que hay que hacer es guardarlo como XML...

SAludos

Ikanni

Gracias por sus respuestas,  Yo lo que necesito simplemente seria que se guarde sin macros, osea no abra entonces una manera de borrar las macros de la copia del libro que guarde, claro sin que se borren las del libro original.

o comentar las macros que creo seria mejor que borrarlas. 

Gracias y disculpen molestias.

Hace 12 minutos , SilverCrow dijo:

... Yo lo que necesito simplemente seria que se guarde sin macros ...

Déjame adivinar: ¡Ni probaste el código que he publicado!

Hace 9 horas, Cacho R dijo:

Un saludo para toda la distinguida concurrencia. Un par de comentarios:

 

- SaveCopyAs es un método “sencillito” nomás: sólo te permite guardar el libro -eventualmente con otro nombre- pero NO sirve para cambiar el formato del mismo. Por lo que si lo aplicas a un “xlsm” te lo guardará así aunque le pongas cualquier otra extensión al nombre del libro.

 

- Lo apropiado para lo que deseas hacer es utilizar el método SaveAs. Ello conllevará un "costo adicional" en términos de líneas de programa como por ejemplo:

Sub CopiarLibroActivo()
Dim oldName$, newName$

With ActiveWorkbook

'Nombre original del libro con macros:
  oldName = .FullName
  .Save

'Nuevo nombre del libro que guardaré sin macros:
  newName = .Path & "\Otro nombre.xlsx"
  If Dir(newName) <> "" Then Kill newName

'Guardo el libro activo pero sin macros:
  Application.DisplayAlerts = False
    .SaveAs newName, FileFormat:=51
  Application.DisplayAlerts = True
 
'Vuelvo a abrir el libro original:
  Workbooks.Open oldName

'Cierro el libro sin macros:
  .Close False
End With

End Sub

 

 

 

Ahí @Cacho R especifica guardar el libro sin macros jaja, creo que hay que leer bien antes de comentar algo

@chernan5 parece que el que no lo ha entendido eres tú y efectivamente "creo que hay que leer bien antes de comentar algo"

 

@silvercrow  dijo:

Cita

Yo lo que necesito simplemente seria que se guarde sin macros, o sea, no habrá entonces una manera de borrar las macros de la copia del libro que guarde, claro sin que se borren las del libro original.

 

.

Disculpen q no haya respondido, si no q no tenia internet y no revise la pagina por q se me paso de largo... Ya mismo lo reviso. Gracias.