Inicio de sesión

Nombre de usuario o e-mail

En línea

En este momento hay 0 usuarios y 83 invitados en línea.

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

Auretta81

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

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

Auretta81

Re: función DIR

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

Visitante

Re: función DIR

Una Consulta como hago para guardar la ultima ruta que seleccione con el guradar como Application.GetSaveAsFilename.
pacomegia

¿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

¿necesitas más?

apúntate a nuestro newsletter
Fuente RSS

Si te gusta necesitomas, ¡ compártelo !

Si te gusta, compártelo


apúntate a nuestro newsletter

cargando...
Buscar en necesitomas.com

Excelómetro