如何将PDF文件中的数据表复制到Excel中？

我有一个数据表，我需要把它放到Excel中。我发现有一些网站建议复制并粘贴到MS Word中，然后使用“将文本转换为表格”，遗憾的是这不起作用，因为列之间有空格，但如果我选择空格作为列分隔符它将包含多个单词的列分成不同的列。

是否有更好的推荐方法将PDF文件中的表格转换为Excel？

整个过程比其他答案中提到的要简单得多。

在Acrobat / Reader中，选择“文本选择”工具，然后将表格置于完整视图中。

现在按Ctrl / Option键并选择表格。您会注意到光标发生了变化。选择完成后，您可以复制并粘贴到Excel中。

我想建议您使用VBA代码，这会将复制数据表从PDF转换为Excel。

按照以下书面步骤。

1. 从PDF文件复制表数据。
2. 粘贴到列中的Excel工作表中。
3. 运行VBA代码。

检查屏幕截图。

Private Sub CommandButton1_Click()
Dim xLRow As Long
    Dim xNRow As Long
    Dim i As Long
    Dim xUpdate As Boolean
    Dim xRg As Range
    Dim xOutRg As Range
    Dim xTxt As String

    On Error Resume Next

    xTxt = ActiveWindow.RangeSelection.Address

    Set xRg = Application.InputBox("Select Data Range(only one column):", "Transpose to Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)

    If xRg Is Nothing Then Exit Sub
    If (xRg.Columns.Count > 1) Or _
       (xRg.Areas.Count > 1) Then
        MsgBox "Used range only contain one column", , "Transpose to Excel"
        Exit Sub
    End If

    Set xOutRg = Application.InputBox("Select output range(specify one cell):", "Transpose to Excel", xTxt, , , , , 8)

    If xOutRg Is Nothing Then Exit Sub

    Set xOutRg = xOutRg.Range(1)

    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xLRow = xRg.Rows.Count

    For i = 1 To xLRow Step 3
        xRg.Cells(i).Resize(3).Copy
        xOutRg.Offset(xNRow, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
        xNRow = xNRow + 1
    Next
    Application.ScreenUpdating = xUpdate

End Sub

注意： 我用来测试代码的数据有3列（RED颜色值），因此使用For Loop Step＆amp;调整大小值为3.您根据数据结构进行更改。

希望这对你有所帮助。

派对有点晚了，但是为了任何通过Google找到这个的人的利益：

有很多免费的网络服务可供您使用，而不是通过Word等进行复制粘贴。选择正确的服务取决于您的PDF和需求。

整个文件是一个表，你想将它全部转换？ - ＆GT;尝试 https://smallpdf.com/pdf-to-excel

是否有单独的表格，例如在有很多其他文字的页面上，你想复制？ - ＆GT;尝试 https://tabellopdf.com

您的PDF是扫描文件（即它实际上是保存为PDF的图像）吗？ - ＆GT;尝试 https://www.pdftoexcel.com/