Macro que extraiga la extensión de una ruta C:\....Urgente!!!

5 envíos / 0 nuevos
Último envío
Auretta81
Imagen de Auretta81
Offline
última acción: Hace 10 años 2 meses
alta: 15/04/2010 - 13:22
Puntos: 35
Macro que extraiga la extensión de una ruta C:\....Urgente!!!

Hola, necesito una ayuda en esto de manera urgente.

Tengo un archivo en excel el cual debe tener una columna que me diga si el archivo es un pdf o un doc.

Aqui hay un ejemplo de la tabla

Apellido Nombre Ext
Pérez Peranita .doc
Rojo Fulanito .pdf

Lo que necesito es que la macro busque en la ruta c:\candidatos\colombia el archivo que tenga el mismo nombre y apellido y me diga si el archivo es un .doc o .pdf y lo ponga en la columna correspondiente.

Estoy nueva en esto de las macros y no he podido con esto.

Mil gracias.

 

 

 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 12 horas 49 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 10680
función DIR

como conoces el nombre del archivo y la ruta y sólo tienes que ver si es doc o pdf, se me ocurre que utilices la función DIR

esta función devuelve el nombre del archivo si encuentra un archivo que cumple la ruta especificada (puedes emplear comodines) y devuelve una cadena vacía si no encuentra el archivo.

por ejemplo, podrías poner algo así:

    If Dir("c:\candidatos\colombia\" & celdanombre & ".pdf") <> "" Then
    'es un pdf
   
   
    ElseIf Dir("c:\candidatos\colombia\" & celdanombre & ".doc") <> "" Then
    ' es un .doc
   
    Else
    ' no es ni pdf ni doc, puede que no exista el archivo con ese nombre
   
    End If

------
Ya sé Excel, pero necesito más

 

------
Ya sé Excel, pero necesito más.

Auretta81
Imagen de Auretta81
Offline
última acción: Hace 10 años 2 meses
alta: 15/04/2010 - 13:22
Puntos: 35
Re: función DIR

Mil gracias por tu ayuda....era exactamente lo que necesitaba

visitante (no verificado)
Imagen de visitante
Re: función DIR
Una Consulta como hago para guardar la ultima ruta que seleccione con el guradar como Application.GetSaveAsFilename.
pacomegia
Imagen de pacomegia
Offline
última acción: Hace 12 horas 49 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 10680
¿guardar dónde?

¿dónde lo quieres guardar? puedes guardarlo en una variable

ruta = Application.GetSaveAsFilename(...)

¿o te refieres a otra cosa?

------
Ya sé Excel, pero necesito más ahora en pdf

 

------
Ya sé Excel, pero necesito más.