Saving PDF as Excel

[unknownymous]

Hello Guys,

I was looking for macro codes that can convert pdf files to excel and found this helpful blog - PDF to Excel Converter in Excel VBA - PK: An Excel Expert

It runs smoothly but I noticed that it doesn't replace the file PDF type to excel. I was thinking there's something wrong somewhere on below codes. By the way, I'm using Microsoft 2016 so it must be related to this as well.

- - - - - - -
(Partial code below)

Set nwb = Workbooks.Add
Set nsh = nwb.Sheets(1)
wr.Copy

nsh.Paste
nwb.SaveAs (excel_path & "\" & Replace(f.Name, ".pdf", ".xlsx"))

doc.Close False
nwb.Close False
Next

wa.Quit

MsgBox "Done"

End Sub

- - - - - - -

Any help will be much appreciated.

 

[sijpie]

Read this: Use VBA SaveAs in Excel 2007-2016