Macro para GUARDAR con ERROR

12/11/2006 - 02:31 por Bart | Informe spam
Hola, tengo un archivo Excel, y al presionar un botón se ejecuta una macro
para guardar en el MISMO DIRECTORIO donde se abrió el archivo, la información
recien introducida.

Sin embargo, cuando este DIRECTORIO es una ruta externa al PC donde se abre,
ejemplo un servidor, u otra PC, se genera un ERROR 1007, por archivo o
directorio protegido contra escritura, cuando realmente no es así, abortando
la ejecución de la macro.

Cómo se puede solucionar ?

La macro es esta (asociada al botón):

Dim RutArchivo
RutArchivo = ThisWorkbook.Path & "\"

ActiveWorkbook.SaveAs Filename:= _
RutArchivo & "Prueba.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Sin embargo, noto que al eliminar las dos filas finales de la macro, SI se
ejecuta sin problema.

GRACIAS POR SU AYUDA...

Preguntas similare

Leer las respuestas

#1 Tux
12/11/2006 - 12:29 | Informe spam
Bart escribió:
Hola, tengo un archivo Excel, y al presionar un botón se ejecuta una macro
para guardar en el MISMO DIRECTORIO donde se abrió el archivo, la información
recien introducida.

Sin embargo, cuando este DIRECTORIO es una ruta externa al PC donde se abre,
ejemplo un servidor, u otra PC, se genera un ERROR 1007, por archivo o
directorio protegido contra escritura, cuando realmente no es así, abortando
la ejecución de la macro.

Cómo se puede solucionar ?

La macro es esta (asociada al botón):

Dim RutArchivo
RutArchivo = ThisWorkbook.Path & "\"

ActiveWorkbook.SaveAs Filename:= _
RutArchivo & "Prueba.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Sin embargo, noto que al eliminar las dos filas finales de la macro, SI se
ejecuta sin problema.

GRACIAS POR SU AYUDA...



Hola Bart :-)

Pues en un principio he pensado que podria ser tema de permisos, pero
luego me he dicho no puede ser porque eliminando las dos ultimas lineas
de codigo funciona, luego me he dicho siguiendo una logica quiza
equivocada :-\, que quizas interprete las variantes opcionales PassWord
y WriteRespassword, como no opcionales, con lo cual tampoco me parece
muy lógico, tambien seria bueno conocer que pasos o como ejecutas este
archivo en otras pc's, desde alguna unidad (Cd, Dvd, Disketera )¿?
de todas maneras, puedes dejar el codigo asi, si asi te funciona:

Dim RutArchivo
RutArchivo = ThisWorkbook.Path & "\"

ActiveWorkbook.SaveAs Filename:= _
RutArchivo & "Pruebawww.xls", _
FileFormat:=xlNormal


Si alguna duda nos comentas ok? :-)


¡Un SAludo!:-)

www.fermu.com
www.zorval.es
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida