Pasar archivos escaneados a Hipervinculos en planilla de excel.

[Sckarman]

Buenas! Soy nuevo en el foro y me van a ver seguido por acá ya que uso muchísimo excel y siempre ando buscando algun consejo y el foro se ve muy completo y confiable.

Mi consulta el día de hoy es si puedo en una planilla "volcar" todos los archivos de una carpeta (supongamos 0001-22001 a 0001-23000), sin tener que hacerlo uno por uno!
Es decir, hoy cómo lo hago es: Selecciono casilla, presiono Ctrl+Alt+K y me dirijo al archivo "0001-22001" lo selecciono y paso a la siguiente casilla para presionar nuevamente Ctrl+Alt+K --> "0001-22002" y así infinitamente. Existe alguna alternativa?

Muchas gracias!

 

[silver_axe007]

Espero esto te sirva

lo que hace es que te da el vinculo de cada documento en uynalista

adaptalo a tu entorno en la linea de ruta debe estar tus pdfs pero espero esto sea lo que necesitas.

Private Sub CommandButton1_Click()
Dim ult, c As Long
'Aqui vas a Definir la Ruta donde estan los PDF en mi caso estan en la carpeta pdf que esta en
'El directorio donde esta el Archivo Excel.
Set temporal = fs.GetFolder(Application.ActiveWorkbook.Path & "\PDF\") ' aqui pones la ruta

'Esto es para saber cuantos archivos Existen.
MsgBox temporal.Files.Count
'Para ver Cuales son Lo registros llenos en tu HOJA.
c = 1
'MsgBox Range("A" & c).Value
For Each Archivo In temporal.Files
    Range("E" & c).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "pdf\" & Archivo.Name, TextToDisplay:=Archivo.Name
    c = c + 1
 Next Archivo
End Sub
Public Function ExisteArchivo(Archivo As String) As Boolean
Dim Nombre As String ' Temporal para la búsqueda del archivo dado.

ExisteArchivo = False ' Supone que no existe.
Nombre = Dir(Archivo)
    If Len(Nombre) > 0 Then
    
        ExisteArchivo = True
    
    End If

End Function

 

[Sckarman]

Hola, tiene muy buena pinta, probablemente funcione... pero dónde ingreso ese código?

 

[silver_axe007]

Pues loqu deberias es ponerlo en tu archivo , y definir la ruta de la que necesitas listar los archivos y otra donde necesitas poner la lista!!!

si tienes alguna duda a las ordenes

 

[Sckarman]

Silver, entiendo que debo modificar el código, eso está perfecto. Lo que no sé es dónde ingreso todo ese código? Es decir, lo copio y dónde lo pego?
Muchas gracias.

 

[silver_axe007]

graba una macro , y detenla eso te da un código pues eso ahí pegas este código
y modificas las dos líneas la de la ruta de tus pdf y la de donde deseas poner el link

llamas a la macro y debería al menos funcionar un poco
en todo caso cualquier duda a las ordenes

Dim ult, c As Long
'Aqui vas a Definir la Ruta donde estan los PDF en mi caso estan en la carpeta pdf que esta en
'El directorio donde esta el Archivo Excel.
Set temporal = fs.GetFolder(Application.ActiveWorkbook.Path & "\PDF\") ' aqui pones la ruta

'Esto es para saber cuantos archivos Existen.
MsgBox temporal.Files.Count
'Para ver Cuales son Lo registros llenos en tu HOJA.
c = 1
'MsgBox Range("A" & c).Value
For Each Archivo In temporal.Files
    Range("E" & c).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        archivo.path & "\" & Archivo.Name, TextToDisplay:=Archivo.Name
    c = c + 1
Next Archivo

 

[Sckarman]

Muchas gracias por la paciencia. Es la primera vez que "hago" una macro;
primero quisiera si podés seleccionar en negrita o que me digas las tres partes donde tengo que modificar del código..

estoy haciendo lo siguiente, abro excel un archivo nuevo > programador > Macros > Crear > Borro todo lo que sale en el cuadro blanco y pego digo código, tengo que poner GUARDAR? o sólo minimizo? Graciasssssss

La dirección es "X:\Scaneo Facturas Año 2021\Facturas Punto 4", sería una PC en red.

 

[silver_axe007]

te ayudo con gusto pero a ese nivel debería ser algo así como una asistencia por anydesk o algo por el estilo desde acá creo que no podría

 

[Sckarman]

Ok, veo que se complica. No creo que podamos coincidir en los horarios, además es desde mi trabajo... te agradezco la intención!

Lo que si me podrías ayudar en marcarme con negrita las partes que debo borrar y reemplazar, en el código.

Muchísimas gracias!

 

[Sckarman]

Otra consulta, usted no puede "hacer" el archivo y me lo adjunta por acá y así simplemente lo abro y empiezo a cargar los datos? He intentado de muchas maneras y la verdad no sé ni como activarlo. Cuando doy play en la edición de Macro me dice erro 424 en tiempo de ejecucion: Se requiere un objeto

 

[silver_axe007]

Listo te adjunto un configurable, pon la ruta en la celda "F1" y presioona el boton

y listo

 

[Sckarman]

Buen día, primero quiero agradecerte porque me facilitaste una herramienta clave y que agiliza muchísimo mi trabajo. En este mes ya cargué 150 archivos en un click, cuando antes tenía que hacer uno por uno Ctr+Alt+K y buscar el archivo entre miles de archivos y de ahi seleccionar....

El único error que faltaría afilar sería de que cuando quiero abrir el hipervínculo me sale ese error, lo que no me permite abrir el archivo.
Muestro en violeta el hipervinculo creado con Ctrl+Alt+K, el cual sí me deja abrir el archivo...

Cómo podría solucionarlo?

Muchísimas gracias!

 

[silver_axe007]

Me podrías indicar cuando pones el cursor sobre la celda q tiene el vinculo , que dirección te da???

 

[Sckarman]

Silver, ahí puse el cursor sobre los vínculos!

 

[Sckarman]

Estimado Silver, empecé a buscar el error y era el "pdf\" ahí ingresé la ruta de los archivos y anduvo perfecto!
Es decir que creaste una herramienta clave, pasé a archivo 4800 hipervínculos en menos de un minuto... algo que hubiera tomado días o semanas y los ojos destruidos. Te agradezco de corazón!

Voy a ir modificandoló para adaptarlo al todo a la tarea... cualquier duda te voy a estar consultando!

Crack, un abrazo grande.

 

[silver_axe007]

Me alegro mucho que te haya servido un abrazo!

Saludos desde Ecuador