Principales respuestas
Control vacaciones del personal - Excel

Pregunta
-
Hola a todos:
Para el control de personal tengo que realizar la siguiente tarea: comprobar que no excedan del los dias de vacaciones que tengan derecho a disfrutar segun la antigüedad de cada uno.
Para ello se va realizando anotaciones en sus respectivas fichas (Cada uno del personal tiene un libro excel con diferentes hojas segun el año en curso) y estan almacenadas en diferentes subcarpetas segun en que departamento esten adscritos.
El control se llava en otro libro excel que contiene a todo el personal con sus datos personal y tambien la ruta completa donde se encuentra en disco y tambien el nombre del fichero).
El problema es como hacer para que al ejecutar la macro vaya leyendo uno a uno (segun esa ruta completa), y vaya grabando los datos que necesito en el libro de control de personal
Respuestas
-
Hola
-
Comprobar que el usuario con el que se ejecuta la macro tenga accesos a esas carpetas (las que contienen los libros) accesos de lectura seria en este caso pues solo vana leer.
-
Abrir cada libro y trabajarlo , es decir obtener o leer la informacion necearia y luego cerralo.
En este ejemplo accedo a un directorio compartido para crear un nuevo archivo en una carpeta que esta en un servidor en la red, en este caso el usuario que ejecuta la macro esta asignado con los permisos necesarios en dicho directorio compartido:
If Dir(\\name_servidor\Carpeta\archivo.txt) = "" Then
Open "\\name_servidor\Carpeta\archivo.txt" For Output As #1
Else
Kill ("\\name_servidor\Carpeta\archivo.txt")
Open "\\name_servidor\Carpeta\archivo.txt" For Output As #1End If
Teniendo el archivo abierto puedo trabajar con el y finalmente cerrarlo.
Espero haberte ayudado.
- Marcado como respuesta Ismael Borche miércoles, 6 de abril de 2011 15:07
-
Todas las respuestas
-
Hola
-
Comprobar que el usuario con el que se ejecuta la macro tenga accesos a esas carpetas (las que contienen los libros) accesos de lectura seria en este caso pues solo vana leer.
-
Abrir cada libro y trabajarlo , es decir obtener o leer la informacion necearia y luego cerralo.
En este ejemplo accedo a un directorio compartido para crear un nuevo archivo en una carpeta que esta en un servidor en la red, en este caso el usuario que ejecuta la macro esta asignado con los permisos necesarios en dicho directorio compartido:
If Dir(\\name_servidor\Carpeta\archivo.txt) = "" Then
Open "\\name_servidor\Carpeta\archivo.txt" For Output As #1
Else
Kill ("\\name_servidor\Carpeta\archivo.txt")
Open "\\name_servidor\Carpeta\archivo.txt" For Output As #1End If
Teniendo el archivo abierto puedo trabajar con el y finalmente cerrarlo.
Espero haberte ayudado.
- Marcado como respuesta Ismael Borche miércoles, 6 de abril de 2011 15:07
-
-