Foros del Web » Soporte técnico » Ofimática »

Caso curioso Macro Escel

Estas en el tema de Caso curioso Macro Escel en el foro de Ofimática en Foros del Web. Buenas tardes, ando un poco desesperado porque no me explico lo que me pasa: Tengo una hoja excel para mantener una base de datos de ...
  #1 (permalink)  
Antiguo 22/05/2012, 10:52
 
Fecha de Ingreso: mayo-2012
Mensajes: 2
Antigüedad: 11 años, 10 meses
Puntos: 0
Caso curioso Macro Escel

Buenas tardes, ando un poco desesperado porque no me explico lo que me pasa:
Tengo una hoja excel para mantener una base de datos de posibles aspirantes a trabajar en mi empresa con:
Columna A: Nombre
Columna B: Apellidos
Columna C: Documento de Odentidad.
Columna D: Departamento al que aspira.
Columna E: Concatenación de la columna A y la B para componer el nombre.

Bien, Lo que quiero, es que con un botón que he creado, adjudicarle una macro que según en la fila que esté, coja el número de fila, se vaya a la columna E de la misma fila, coja el nombre completo, y abra un archivo .pdf con los datos y la foto de la persona. Cabe añadir que los archivos pdf están guardados en una unidad mapeada de red K:\documentos\aspirantes y tienen como nombre el nombre y apellidos de las personas: nombre apellido1 apellido2.pdf.

La macro que he confeccionado es la siguiente:

Sub abre_pdf()
archivo = Range("E" & ActiveCell.Row).Value
ChDir ("K:\documentos\aspirantes")

RetVal = Shell("C:\Archivos de programa\Adobe\Acrobat 6.0\Reader\AcroRd32.exe " + archivo + ".pdf", vbNormalFocus)

End Sub

Esto al principio no me funcionaba, me abría acrobat reader pero me decía que no encontraba el archivo, pensé que era tema de permisos de red, me copié los documentos en local: C:\prueba y modifiqué la macro donde K:\docum... puse c:\prueba, La cosa funcionó y me abrió los archivos que le pedí. Entonces volví a cambiar c:... por K:... y seuía funcionando. Entonces borré los archivos de local y me volvía a fallar, ahora he vuelto a copiar los archivos a local y me funciona, pero en ningún sitio de la macro hace ninguna referéncia a C:\prueba como han visto más arriba.

Alguien tiene una explicación lógica, yo no, por mucho que la bosco no la encuentro.

Espero que me puedan ayudar. Grácias por adelantado.

Daniel
  #2 (permalink)  
Antiguo 22/05/2012, 12:02
Avatar de mrocf  
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años
Puntos: 88
De acuerdo Respuesta: Caso curioso Macro Escel

En ningún momento le dices al Adobe Reader cual es la carpeta en la que se encuentran los archivos.
En efecto: ChDir ("K:\documentos\aspirantes") es información para el Excel (que no la necesita, dicho sea de paso), pero nada "le dices" al Adobe.

Entonces reemplaza:

archivo = Range("E" & ActiveCell.Row).Value
ChDir ("K:\documentos\aspirantes")


por:
archivo = "K:\documentos\aspirantes\" & Range("E" & ActiveCell.Row)

Saludos, Cacho R.
  #3 (permalink)  
Antiguo 22/05/2012, 12:14
 
Fecha de Ingreso: mayo-2012
Mensajes: 2
Antigüedad: 11 años, 10 meses
Puntos: 0
Respuesta: Caso curioso Macro Escel

Funciona!!!

Muchísimas grácias! Me has sacado de un buen entuerto porque no me lo podía explicar de ninguna manera y le estaba dando vueltas a lo mismo desde hace rato.

Grácias!

Dani
  #4 (permalink)  
Antiguo 22/05/2012, 12:39
Avatar de mrocf  
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años
Puntos: 88
Respuesta: Caso curioso Macro Escel

¡Qué bueno, Dani!... Hasta la próxima.

Etiquetas: escel, excel, funcion, macro
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 23:48.