Buscar datos de un PDF a través de VBA y copiarlos en celdas de Excel.

Estimados

He buscado información, sobre el tema y no he encontrado nada similar.

Tengo varios archivos PDFs, en los cuales en cada uno de ellos debo buscar una coordenada Norte y otra Este (UTM) y además un área ( hectáreas) asociada, lo cual quiero automatizar a través de VBA para que al codificar seleccione todos los PDFs y extraiga los datos solicitados y los copie en un Excel.

Lo más cercano que tengo es trabajando el archivo pero transformándolo en .txt, buscando en él las palabras "Este", "Norte" y " Hectáreas" y copiando sus valores en un Excel. Claro que lee solo un archivo a la vez.

Adjunto el código:

Sub Botón1_Haga_clic_en()

Dim myFile As String, text As String, textline As String, posLat As Integer, posLong As Integer, posArea As Integer

myFile = Application.GetOpenFilename()

Open myFile For Input As #1
Do Until EOF(1)
Line Input #1, textline
text = text & textline
Loop

Close #1
posLat = InStr(text, "Norte")
posLong = InStr(text, "Este")
posArea = InStr(text, "hectáreas")

Range("B1").Value = Mid(text, posLat - 20, 12)
Range("B2").Value = Mid(text, posLong - 18, 10)
Range("B3").Value = Mid(text, posArea - 4, 3)
End Sub

___________

Cabe mencionar que de cada pdf se extrae solo una coordenada este y una Norte, además de una área. No tiene un formato de celdas es un boletín.

Cualquier ayuda se agradece.

Añade tu respuesta

Haz clic para o