Question

我有一台没有互联网的电脑，需要能够将pdf文件转换为excel，我所拥有的只是adobe reader，得到adobe professional是不可能的，

目前我有这个代码，非常适合使用excel（或任何其他办公应用程序）打开pdf文件：

Option Explicit

Function OpenPDFPage(PDFPath As String, PageNumber As Long, PageView As Integer)

    'Opens a pdf file, at specific page and with specific view.
    'Sendkeys method is used for simulating keyboard shortcuts.
    'It can be used with both Adobe Reader & Adobe Professional.

    'By Christos Samaras

    'This line depends on the apllication you are using.
    'For Word
    'ThisDocument.FollowHyperlink PDFPath, NewWindow:=True
    'For Power Point
    'ActivePresentation.FollowHyperlink PDFPath, NewWindow:=True
    'For Excel
    ThisWorkbook.FollowHyperlink PDFPath, NewWindow:=True
    SendKeys ("^+N" & PageNumber & "~^" & PageView), True

End Function

Sub Test()

    OpenPDFPage "file\path", 115, 2 'place file path here

    'Page view options:
    '0: Full Page
    '1: Zoom to 100%
    '2: Page Width

End Sub

如何使用vba将文件内容复制到我的工作表？这几乎是我所需要的，但是非常感谢将pdf文件中的内容排列到不同列的方法！

Answer 1

有一段时间搞清楚，尝试了我的最好，如果有人有一个更好，更可靠的代码，不依赖于关键事件，PLZ分享

inline_query

使用adobe reader将{pdf文件转换为excel

1 个答案: