¿Cómo rellenar automáticamente celdas Excel con nombre de archivos PDF y crear sus vínculos al mismo tiempo?
Tengo un listado de mas de mil productos en Excel y necesito vincular el código del producto con su imagen correspondiente en PDF, las imágenes están guardadas con el nombre del código de producto.
Solicito su valiosa colaboración con una macro para automatizar esta tarea con el fin de no tener que hacer la vinculación de manera manual, para hacer que la macro busque en la carpeta la imagen que corresponde al código de cada uno de los productos e inserte los vínculos de todos los productos en las filas correspondientes de la columna llamada "IMAGEN".
Ejemplo:
COD.PROD./ DESCRIPCIÓN / IMAGEN 'Encabezados
100001 / Martillo de uña / 100001.pdf 'Producto vinculado
1 respuesta
Cambia en el código la ruta por el nombre de la carpeta donde tienes tus pdf's.
Si el archivo de excel está en la misma carpeta donde tienes los pdf's, entonces cambia a esto:
ruta = thisworkbook.Path & "\"
Cambia la letra "C" por la letra de la columna donde tienes los nombres de las imágenes en esta línea de la macro:
For Each img In Range("C2", Range("C" & Rows.Count).End(3))
Va la macro:
Sub Macro1()
Dim ruta As String
Dim img As Range
ruta = "C:\trabajo\pdfs\"
For Each img In Range("C2", Range("C" & Rows.Count).End(3))
If Dir(ruta & img.Value) <> "" Then
ActiveSheet.Hyperlinks.Add Anchor:=img, _
Address:=ruta & img.Value, TextToDisplay:=img.Value
End If
Next
End Sub
