如何在Mac上将PDF转换成Excel？

Question

我有很多PDF转换成excel。我发现下面的代码通过在word中打开PDF文件将pdf转换为excel，但是它在Dim作为新的FileSystemObject时失败了，因为mac没有脚本字典。如何修改代码以打开word中的PDF文件，而不必使用脚本字典？

Option Explicit
Sub pdf_to_excel()

Dim setting_sh As Worksheet
Set setting_sh = ThisWorkbook.Sheets("Setting")
Dim pdf_path As String
Dim excel_path As String

pdf_path = setting_sh.Range("E11").Value
excel_path = setting_sh.Range("E12").Value

Dim fso As New FileSystemObject
Dim fo As Folder
Dim f As File

Set fo = fso.Getfolder(pdf_path)

Dim wa As Object
Dim doc As Object
Dim wr As Object

Set wa = CreateObject("word.application")
wa.Visible = True

Dim nwb As Workbook
Dim nsh As Worksheet

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 False
nwb.Close False
Next

wa.Quit

MsgBox "Done"

End Sub

Answer 1

还有其他方法可以做到这一点，这不需要编程。一种是使用应用程序PDFelement。这个应用程序并不便宜，但是如果你在链接的网站上向下滚动，这是一个免费的下载选项。这个链接。给出了其他方法，其中一种是将PDF转换为excel的在线网站，但是该站点对PDF文件的大小有相当大的保留。