Crear Directorio
Hola:
Como puedo hacer para que al ejecutar una macro este cree un directorio en C:\ que se llame por ejemplo "Plantillas" y que allí se guarde en forma automática el archivo excel.
Espero que puedas ayudarme
Gracias
Como puedo hacer para que al ejecutar una macro este cree un directorio en C:\ que se llame por ejemplo "Plantillas" y que allí se guarde en forma automática el archivo excel.
Espero que puedas ayudarme
Gracias
2 respuestas
Respuesta de javigo
1
Puedes emplear el comando MkDir para crear la carpeta, luego ChDir para seleccionar esa carpeta y finalmente SaveAs para guardarlo.
Te pongo la macro que he utilizado como prueba:
MkDir "C:\Plantillas"
ChDir "C:\Plantillas"
ActiveWorkbook.SaveAs FileName:="C:\Plantillas\libro.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Un saludo,
Javi
PD No olvides valorar la respuesta
Te pongo la macro que he utilizado como prueba:
MkDir "C:\Plantillas"
ChDir "C:\Plantillas"
ActiveWorkbook.SaveAs FileName:="C:\Plantillas\libro.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Un saludo,
Javi
PD No olvides valorar la respuesta
Respuesta de blackdog2003
1
Lo que debes hacer es lo siguiente.
Debes colocar el siguiente código en la macro que creaste:
--------- Código ------->
MkDir "C:\Mis documentos\Plantillas"
ActiveWorkbook.Save
--------- Fin ------->
El MkDir crea el directorio que desees en la ruta especificada
Y el segundo, guarda el libro de trabajo actual.
Espero te sirva la respuesta y disculpa la tardanza, si tienes alguna duda, me escribes y con gusto te reponderé.
Debes colocar el siguiente código en la macro que creaste:
--------- Código ------->
MkDir "C:\Mis documentos\Plantillas"
ActiveWorkbook.Save
--------- Fin ------->
El MkDir crea el directorio que desees en la ruta especificada
Y el segundo, guarda el libro de trabajo actual.
Espero te sirva la respuesta y disculpa la tardanza, si tienes alguna duda, me escribes y con gusto te reponderé.