Excel VBA CONVERT ALL PDF FILES TO EXCEL SHEETS
Simple way to convert PDF to Excel
Sub PDF_To_Excel()
''WATCH THE VIDEO BEFORE YOU PASTE THIS CODE AND TRY
On Error Resume Next
Dim ws As Worksheet, pdf_path As String, excel_path As String
Set ws = ThisWorkbook.Sheets("Macro")
pdf_path = ws.Range("B3").Value
excel_path = ws.Range("B5").Value
Dim fso As New FileSystemObject, fo As Folder, f As File, wa As Object, doc As Object, wr As Object, nwb As Workbook, nsh As Worksheet
If pdf_path = "" Or excel_path = "" Then
MsgBox "Please fill required fields"
Exit Sub
Else
Set fo = fso.GetFolder(pdf_path)
Set wa = CreateObject("word.application")
wa.Visible = False
For Each f In fo.Files
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 (excel_path & Replace(f.Name, ".pdf", ".xlsx"))
doc.Close
nwb.Close
Next
wa.Quit
End If
End Sub
