Excel - AUTOGUARDADO

   
Vista:

AUTOGUARDADO

Publicado por JORGE (67 intervenciones) el 09/09/2008 15:09:22
Hola, necesito crear una macro para que al abrir un documento .xls si este está ubicado en una determinada carpeta, por ejemplo "c:proyecto" se ejecute un formulario en el que escribiré el nombre del subdirectorio en el que quiero almacenar una copia y a continuación se termine el proceso autoguardando el fichero en la carpeta especificada, la cual será necesario crear. pero si este fichero no está ubicado en "c:proyecto" no se ejecute el proceso.

Es decir que si abro "basica.xls", y este libro está ubicado en "c:proyecto" se abrirá un formulario en el que introduciré el nombre de la subcarpeta que se debe crear en windows, por ejemplo "oficina" y finalmente se almacenará una copia en "c:proyectooficinaasica.xls"

Espero haberme explicado correctamente.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:AUTOGUARDADO

Publicado por Santiago (193 intervenciones) el 11/09/2008 23:51:25
Private Sub CrearCarpeta()
Set fs = CreateObject("Scripting.FileSystemObject")
On Error GoTo nohaycarpeta
Set F = fs.getfolder("C:PROYECTOOFICINA")
ActiveWorkbook.SaveAs Filename:="C:ProyectoOFICINACopiaBasica.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Exit Sub

nohaycarpeta:
Set F = fs.CREATEfolder("C:PROYECTOOFICINA")
Resume Next
End Sub

Espero que te sirva mucho

Un saludo
SCM
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:AUTOGUARDADO

Publicado por Santiago (193 intervenciones) el 12/09/2008 00:00:22
Private Sub CrearCarpeta()
Set fs = CreateObject("Scripting.FileSystemObject")
On Error GoTo nohaycarpeta
Set F = fs.getfolder("C:PROYECTOOFICINA")
ActiveWorkbook.SaveAs Filename:="C:ProyectoOFICINACopiaBasica.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Exit Sub

nohaycarpeta:
Set F = fs.CREATEfolder("C:PROYECTOOFICINA")
Resume Next
End Sub

Espero que te sirva mucho

Un saludo
SCM
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:AUTOGUARDADO

Publicado por calpe83 (67 intervenciones) el 17/09/2008 16:22:22
Muchas gracias, pero sólo un matiz más, si el fichero ya existe en la ruta especificada me salta una ventana típica preguntando si deseo sobreescribirlo o no, sin embargo me gustaría que esta ventana no apareciera, sino que se sobreescribiera el fichero (en el caso de que ya exista) siempre, sin hacer la consulta.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar