PDF to Excel Converter in Excel VBA

December 22, 2022

| 31 Comments

#PDFtoExcel #VBA
Hello Friends,
In this video, you will learn how to create a PDF to Excel converter using Excel VBA.

Click here to download the practice file:

Download our free Excel utility Tool and improve your productivity:

See our Excel Products:

Visit to learn more:
Chart and Visualizations:
VBA Course:
Download useful Templates:
Dashboards:

Watch the best info-graphics and dynamic charts from below link:

Learn and free download best excel Dashboard template:

Learn Step by Step VBA:

Website:

Facebook:

Telegram:

Pinterest:

************* Suggested Books *********
VBA:
Excel Dashboard:
Power Query:
Power Pivot and Power BI:
Exam Ref 70-778 (Power BI):

************* My Stuff ****************
Mic :
Video Editor:
Laptop: …(read more)

Convert Word 2 PDF: Word to PDF Converter

Convert PowerPoint 2 PDF: PPT to PDF Converter

Convert Excel 2 PDF: Excel to PDF Converter

Convert an Image 2 PDF: Image to PDF Converter

Convert HTML 2 PDF: HTML to PDF Converter

More Tools: PDF Converter

PDF Converter

31 thoughts on “PDF to Excel Converter in Excel VBA”

Sir , in my case , I have scanned PDF file ,
I want to copy specific text to excel from each page of scanned PDF/ PDF.
Text sample: xxxxx-xxx-xxx-IR-xxxxx

I know only IR is fix for each page text, before and after I don't know text, but I want complete text copy to excel.

Hope you understand sir

Thanks,

Sir, you have prepared exactly what i was looking for… Thank you for your help.. But Sir.. I am facing one problem while debug, i found that it creates word doc and copy all the data of PDF file into Word doc file, but after that it shows the error of -"RUN TIME ERROR – 424 " OBJECT: REQUIRED" Can you please guide how can i resolve this issue Please guide .. Thank you.

Hello Sir, I'm getting error in wa.Visible = True. Please help me to fix this

What is vba and how to.download. i m a beginner..pls assist

sir i try this but after converting data not set with original format in the excel file how solve this issu.

i need to convert some files can you help me

How to convert pdf with comments to excel using VBA? Please help urgently if possible

Excellent Sir! Can I ask a question. Can the same be done through One note (desktop) as the OCR is better?

You are a genius!

Pdf file ko filter laga sakte hai kya?

Would of been nice to see it in action.

for me the converter giving images table, could you please solve it?

Awesome! Works perfectly thanks!

I just want to know , How do I copy a specific text from a PDF and paste it in Excel – specific cell using VBA macros?

Hello sir,
I am getting this error ,i m not clear about it.
Set fo = fso.GetFolder(pdf_path)

I am highly impressed. to see your videos explaining therein in detail so that a layman can understand. I will like to have your mobile number and email address so that I can discuss some more problems in Excel VBA. Further, please inform if the above code can be used in window 10 with Excel version 10

Thanks for the great tool! But it doesn't work some time when it comes to the script part of "Set fo = fso.GetFolder(pdf_path)", "Path not found" error message, my PDF did store under "C:Users12345OneDrive – XXX CompanyDesktopTest", could it be due to one drive impacting the performance?

Sir , do u take any class to teach VBA . I need to learn Macro and VBA .Please let know.

Dear sir, Thanks for your video. (1)But it is not clear how to link my folders of input & output folders. What to change in VBA module? (2) Where to save this VBA file? please give little details.

Helo Sir How to Make setting Sheet first please tell me

Can i convert image text pdf file into excel???

Hi sir,
I use this file. Some file is probably convert to excel and some files not convert please support how to convert all pdf files.

Thanks…
But i wonder how does it look inside the Excel after converting from PDF -> XLSX

Great, thanks

Option Explicit

Sub PdfToExcel()

Application.ScreenUpdating = False: Application.DisplayAlerts = False

Dim pdf_Exl_Path As String: Dim Fso As New filesystemobject: Dim Fo As Folder: Dim F As File

Dim wa As Object: Dim doc As Object: Dim wr As Object: Dim nwb As Workbook: Dim nsh As Worksheet

pdf_Exl_Path = Application.ThisWorkbook.Path & ""

Set Fo = Fso.GetFolder(pdf_Exl_Path)

Set wa = CreateObject("word.application")

wa.Visible = False

For Each F In Fo.Files

If InStr(1, F.Name, VBA.LCase(".pdf"), vbBinaryCompare) Then

Set doc = wa.Documents.Open(F.Path, False, Format:="PDF Files")

Set wr = doc.Paragraphs(1).Range

wr.WholeStory

Set nwb = Workbooks.Add

Set nsh = nwb.Sheets(1)

wr.Copy

nsh.Paste

nwb.SaveAs (pdf_Exl_Path & Replace(F.Name, ".pdf", ".xlsx"))

doc.Close: nwb.Close

End If

Next F

wa.Quit

MsgBox "done"

End Sub