Een van de veel voorkomende problemen waarmee de meesten van ons in ons dagelijks leven worden geconfronteerd, is hoe bepaalde specifieke gegevens uit een PDF bestand naar een Excel-werkblad met behulp van VBA In dit artikel laat ik u zien hoe u dit gemakkelijk kunt doen, met goede voorbeelden en illustraties.

Specifieke gegevens uit PDF naar Excel halen met VBA (Snelle weergave)

 Sub Extract_Data_from_PDF() Set MyWorksheet = ActiveWorkbook.Worksheets("Sheet1") Application_Path = "C:\Program Files\Adobe\Acrobat DC\Acrobat.exe" PDF_Path = "E:\ExcelWIKI\standardnormaltable.pdf" Shell_Path = Application_Path & " "" & PDF_Path & """" Call Shell(pathname:=Shell_Path, windowstyle:=vbNormalFocus) Application.Wait Now + TimeValue("0:00:03") SendKeys "%vpc".SendKeys "^a" SendKeys "^c" MyWorksheet.Range("A1").PasteSpecial Paste:=xlPasteAll Call Shell("TaskKill /F /IM Acrobat.exe", vbHide) End Sub 

Download Praktijk Werkboek

Download dit oefenwerkboek om te oefenen terwijl u dit artikel leest.

Een overzicht van het extraheren van specifieke gegevens uit PDF naar Excel met behulp van VBA (stapsgewijze analyse)

Dus, zonder verder oponthoud, gaan we naar onze hoofddiscussie van vandaag. Hier hebben we een PDF bestand genaamd standaardnormaltabel.pdf die een tabel van de normale verdeling bevat.

En we hebben een werkblad geopend met de naam Blad1 in een Excel-werkmap waar we de gegevens uit de PDF bestand.

Nu zal ik laten zien dat je gegevens kunt kopiëren van de PDF bestand naar het Excel-werkblad via een stapsgewijze analyse.

⧪ Stap 1: Declareren van de benodigde ingangen

Eerst en vooral moet u de nodige inputs opgeven. Deze omvatten de naam van het werkblad, het bereik van de cellen, de locatie van de toepassing waardoor de PDF bestand wordt geopend ( Adobe Reader in dit voorbeeld), en de locatie van de PDF bestand.

 Mijn werkblad = ActiveWorkbook.Worksheets("Sheet1") Application_Path = "C:\Program Files\Adobe\Acrobat DC\Acrobat.exe" PDF_Path = "E:\ExcelWIKI\standardnormaltable". 

⧪ Stap 2: Het PDF-bestand openen (met behulp van het VBA Shell-commando)

Vervolgens moeten we de VBA Shell-functie om de PDF bestand.

 Shell_Path = Application_Path & " """ & PDF_Path & """" Roep Shell(pathname:=Shell_Path, windowstyle:=vbNormalFocus) op. 

⧪ Stap 3 (Facultatief): Even wachten

Dit is optioneel. Maar wanneer u een lange reeks taken hebt, is het beter om even te wachten zodat uw computer de eerdere taak met succes kan afronden en een nieuwe taak kan starten.

 Application.Wait Now + TimeValue("0:00:03") 

Hier wachten we 30 seconden. Maar als je wilt, kun je langer wachten.

⧪ Stap 4: SendKeys gebruiken om gegevens uit het PDF-bestand te kopiëren

Dit is waarschijnlijk de belangrijkste taak. We gebruiken 3 SendKeys:

• ALT + V, P, C: Dit is voornamelijk om het scrollen in de PDF Voor kleine bestanden is dit niet nodig, maar voor grotere bestanden wordt dit nodig om het hele bestand te selecteren.
• CTRL + A: Dit is om het hele bestand te selecteren.
• CTRL + C : Voor het kopiëren van het geselecteerde bestand.

Daarom zullen de regels code zijn:

 SendKeys "%vpc" SendKeys "^a" SendKeys "^c" 

⧪ Stap 5: De gegevens in het Excel-bestand plakken

We hebben de specifieke PDF Nu moeten we die gegevens in het gewenste bereik van het werkblad plakken.

 MyWorksheet.Range("A1").PasteSpecial Plakken:=xlPasteAll 

Hier heb ik in cel A1 van het werkblad. U kunt het natuurlijk ook ergens anders plakken.

⧪ Stap 6 (optioneel): Het PDF-bestand sluiten (de toepassing beëindigen)

Tenslotte is het beter het lopende programma af te sluiten nadat u klaar bent met de gegevensextractie.

 Bel Shell("TaskKill /F /IM Acrobat.exe", vbHide) 

Lees meer: Hoe gegevens uit PDF naar Excel extraheren (4 geschikte manieren)

Vergelijkbare lezingen

• Hoe gegevens exporteren van invulbare PDF naar Excel (met snelle stappen)
• Hoe PDF-commentaren exporteren naar een Excel-spreadsheet (3 snelle trucs)

Voorbeeld van uitpakken van specifieke gegevens uit PDF naar Excel met VBA

We hebben de stap-voor-stap procedure gezien om gegevens uit een PDF bestand naar een Excel-werkblad met behulp van VBA .

Daarom is de volledige VBA code om gegevens uit de PDF bestand genaamd standaardnormaltabel naar Blad1 zal zijn:

⧭ VBA-code:

 Sub Extract_Data_from_PDF() Set MyWorksheet = ActiveWorkbook.Worksheets("Sheet1") Application_Path = "C:\Program Files\Adobe\Acrobat DC\Acrobat.exe" PDF_Path = "E:\ExcelWIKI\standardnormaltable.pdf" Shell_Path = Application_Path & " "" & PDF_Path & """" Call Shell(pathname:=Shell_Path, windowstyle:=vbNormalFocus) Application.Wait Now + TimeValue("0:00:03") SendKeys "%vpc".SendKeys "^a" SendKeys "^c" MyWorksheet.Range("A1").PasteSpecial Paste:=xlPasteAll Call Shell("TaskKill /F /IM Acrobat.exe", vbHide) End Sub 

⧭ Uitgang:

Voer deze code uit. En het zal gegevens kopiëren van de PDF bestand genaamd "standaardnormaltabel" naar het werkblad genaamd "Sheet1" in de actieve werkmap.

Lees meer: Hoe gegevens uit meerdere PDF-bestanden naar Excel extraheren (3 geschikte manieren)

Dingen om te onthouden

• De werkmap waarin u de gegevens van de PDF bestand open moet worden gehouden tijdens het uitvoeren van de code. Anders moet je de naam van de werkmap gebruiken in de code.
• De naam van de toepassing die u in de code gebruikt ( Adobe Acrobat DC hier) moet geïnstalleerd zijn op uw computer, anders krijgt u een foutmelding.
• Voor grote datasets van PDF bestanden, kan het proces enige tijd duren om alle gegevens te kopiëren en te plakken. Wees dus geduldig en wacht tot het proces succesvol is afgerond.

Conclusie

Dit is dus het proces om een aantal specifieke gegevens uit een PDF bestand naar een Excel-werkblad met behulp van VBA Heeft u vragen? Stel ze ons gerust. En vergeet niet onze site te bezoeken ExcelWIKI voor meer berichten en updates.