** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - Error al Guardar libro
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoError al Guardar libro

 Responder Responder
Autor
Mensaje
Gladiador Ver desplegable
Habitual
Habitual
Avatar

Unido: 22/Junio/2006
Localización: Venezuela
Estado: Sin conexión
Puntos: 135
Enlace directo a este mensaje Tema: Error al Guardar libro
    Enviado: 26/Enero/2018 a las 16:12
Hola, quisiera solicitar la ayuda del foro en lo siguiente:

 

He construido una macro con la cual se guarda el arqueo diario, cuyo nombre es la fecha del arqueo. Los pasos de la macro son:

 

1.- Se guarda el libro actual (original)

2.- Se guarda una copia del libro actual bajo otro nombre y en otro directorio

3.- Se vuelve a abrir el libro original

4.- Se cierra y guarda el libro que se guardó con el nuevo nombre.

 

Sin embargo, últimamente me está dando dos errores

1.    Run-time error “1004” Document not saved

2.    Run-time error “1004” Microsof Excel cannot access the file “D:\Arqueos\82CF5000”. There are several possible reasons:

 

La macro que construí es la siguiente:

 

Private Sub CommandButton1_Click()

 Dim Original As String

Dim Ruta As String

Dim Nombre As String

Dim Nombre2 As String

     Application.ScreenUpdating = False

     Application.ActiveWorkbook.SaveAquí me dice que está el primer error

 Nombre= Range("R1") ‘Es la ruta y el nombre con el que se va a guardar el nuevo libro

Nombre2 = Range("R2") ‘Es el nombre del nuevo libro, el cual contiene la fecha

Original = Application.ActiveWorkbook.Name

 Ruta = Application.ActiveWorkbook.Path

     ActiveWorkbook.SaveAs FileFormat:=xlOpenXMLWorkbookMacroEnabled, _

     Filename:=Nombre, CreateBackup:=False Aquí me indica el Segundo error

    Workbooks.Open Filename:=Ruta & "\" & Original

     Sheets("ARQUEO").Select

    Workbooks(Nombre2).Activate

    ActiveWorkbook.Save

    ActiveWorkbook.Close

   

    Application.ScreenUpdating = True

End Sub

Inicialmente, la macro trabajaba bien, pero ya no.

Quisiera su ayuda para conocer qué he hecho mal. Ya he verificado los datos que toma de la hoja y no han cambiado.

 

Gracias

Arriba
lbauluz Ver desplegable
Administrador
Administrador
Avatar

Unido: 29/Marzo/2005
Localización: Cárcel Brieva
Estado: en línea
Puntos: 3354
Enlace directo a este mensaje Enviado: 26/Enero/2018 a las 17:07
Hola: 

¿Seguro que la extensión es XLSM en lugar de XLSX?

Recuerda que al tener macros la extensión del libro tiene que terminar en M.

Luis
Estoy en el módulo psiquiátrico de la prisión de Brieva
Arriba
Gladiador Ver desplegable
Habitual
Habitual
Avatar

Unido: 22/Junio/2006
Localización: Venezuela
Estado: Sin conexión
Puntos: 135
Enlace directo a este mensaje Enviado: 26/Enero/2018 a las 17:58
Hola Ibauluz, gracias por tu tiempo.

Realmente no especifico la ruta, pues en la macro se indica que es un archivo "habilitado para macros".

Una de las cosas curiosas, es porque no se guarda el archivo "Application.ActiveWorkbook.Save" ?
El otro dato curioso, es que funcionó muy bien hasta hace unos días. 
Arriba
lbauluz Ver desplegable
Administrador
Administrador
Avatar

Unido: 29/Marzo/2005
Localización: Cárcel Brieva
Estado: en línea
Puntos: 3354
Enlace directo a este mensaje Enviado: 26/Enero/2018 a las 21:27
Yo he hecho la prueba poniendo el nombre como XLSM y no me ha dado problema, prueba a ver
Estoy en el módulo psiquiátrico de la prisión de Brieva
Arriba
Gladiador Ver desplegable
Habitual
Habitual
Avatar

Unido: 22/Junio/2006
Localización: Venezuela
Estado: Sin conexión
Puntos: 135
Enlace directo a este mensaje Enviado: 27/Enero/2018 a las 02:15
Gracias Ibauluz.
Ya he ehcho la prueba como me indica y el error continúa.

Estoy por pensar que debo tener un error en la configuración de mi equipo/Excel o que se haya introducido un virus.
Pues, al comienzo la macro funcionaba normalmente. 
Adicionalmente, no entiendo porque da error con la instrucción
Application.ActiveWorkbook.Save
También he cambiado esta instrucción a simplemente
ActiveWorkbook.Save
y ocurre lo mismo.

Existe algún método/diagnóstico para identificar algún error en la configuración?

Gracias
Arriba
Gladiador Ver desplegable
Habitual
Habitual
Avatar

Unido: 22/Junio/2006
Localización: Venezuela
Estado: Sin conexión
Puntos: 135
Enlace directo a este mensaje Enviado: 04/Junio/2018 a las 02:40
Hola, ha pasado mucho tiempo y no he hallado una respuesta satisfactoria a mi consulta. ´Por lo tanto estimo conveniente cerrar el hilo
Gracias
Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5458
Enlace directo a este mensaje Enviado: 04/Junio/2018 a las 14:09
Tal vez el libro que (tú crees que) estás guardando, no es el que realmente quieres guardar.

En ambos casos le pides que guarde el libro activo, ¿Está (realmente) activo el libro que quieres guardar?. Esta pregunta no tendrá respuesta; cerraré el hilo tal como pides.

Si «Inicialmente, la macro trabajaba bien, pero ya no.» es que algo debe haber cambiado en el entorno (o en el 'camino' de ejecución). Excel no 'cambia de opinión por su cuenta' de un día para otro.









Editado para completar el mensaje.


Editado por AnSanVal - 04/Junio/2018 a las 14:14
Aprendemos viendo respuestas de otros, también intentando resolver dudas (intenta ayudar cuando puedas/sepas).

Mi sitio_web con ejemplos Excel.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable