blocks|key|329091|text|我认为您最好的选择是将PDF转换为文本文件(另存为文本文件)并将文本文件导入Excel。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|329092|你可以搜索如何做到这一点，这是非常容易的，这将是一个伟大的学习练习。如果您有其他问题，请发回。|329093|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|F|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|G|8|@]|9|@]|A|$]]|$1|D|3|-4|5|6|7|H|8|@]|9|@]|A|$]]]|E|$]]

I think your best bet would be to convert the PDF to a Text file (save as Text file) and import the Text file into Excel.

You can Google how to do that; it's very easy and it would be a great learning exercise for you. Post back if you have additional questions.

blocks|key|742027|text|如果安装了Acrobat，则可以将所有PDF文件转换为Excel文件。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|742028|除了主要过程之外，我还编写了一个循环，以便一次转换多个PDF文件。因此，如果您有一个包含PDF文件的文件夹，则可以使用此工具获取它们的文件路径。然后可以使用附加的工作簿将其转换为不同的格式。代码实际上使用的Save命令，以便将文件保存到所需的格式。现有格式如下：|742029|eps
html+and+htm
jpeg,+jpg+and+jpe
jpf,+jpx,+jp2,+j2k,+j2c+and+jpc
docx
doc
png
ps
rft
xlsx
xls
txt
tiff+and+tif
xml|code-block|syntax|javascript|742030|VBA码|742031|Option+Explicit
Option+Private+Module

Sub+SavePDFAsOtherFormat(PDFPath+As+String,+FileExtension+As+String)

++++'Saves+a+PDF+file+as+another+format+using+Adobe+Professional.

++++'By+Christos+Samaras
++++'http://www.myengineeringworld.net

++++'In+order+to+use+the+macro+you+must+enable+the+Acrobat+library+from+VBA+editor:
++++'Go+to+Tools+->+References+->+Adobe+Acrobat+xx.0+Type+Library,+where+xx+depends
++++'on+your+Acrobat+Professional+version+(i.e.+9.0+or+10.0)+you+have+installed+to+your+PC.

++++'Alternatively+you+can+find+it+Tools+->+References+->+Browse+and+check+for+the+path
++++'C:\Program+Files\Adobe\Acrobat+xx.0\Acrobat\acrobat.tlb
++++'where+xx+is+your+Acrobat+version+(i.e.+9.0+or+10.0+etc.).

++++Dim+objAcroApp++++++As+Acrobat.AcroApp
++++Dim+objAcroAVDoc++++As+Acrobat.AcroAVDoc
++++Dim+objAcroPDDoc++++As+Acrobat.AcroPDDoc
++++Dim+objJSO++++++++++As+Object
++++Dim+boResult++++++++As+Boolean
++++Dim+ExportFormat++++As+String
++++Dim+NewFilePath+++++As+String

++++'Check+if+the+file+exists.
++++If+Dir(PDFPath)+=+""+Then
++++++++MsgBox+"Cannot+find+the+PDF+file!"+&+vbCrLf+&+"Check+the+PDF+path+and+retry.",+_
++++++++++++++++vbCritical,+"File+Path+Error"
++++++++Exit+Sub
++++End+If

++++'Check+if+the+input+file+is+a+PDF+file.
++++If+LCase(Right(PDFPath,+3))+<>+"pdf"+Then
++++++++MsgBox+"The+input+file+is+not+a+PDF+file!",+vbCritical,+"File+Type+Error"
++++++++Exit+Sub
++++End+If

++++'Initialize+Acrobat+by+creating+App+object.
++++Set+objAcroApp+=+CreateObject("AcroExch.App")

++++'Set+AVDoc+object.
++++Set+objAcroAVDoc+=+CreateObject("AcroExch.AVDoc")

++++'Open+the+PDF+file.
++++boResult+=+objAcroAVDoc.Open(PDFPath,+"")

++++'Set+the+PDDoc+object.
++++Set+objAcroPDDoc+=+objAcroAVDoc.GetPDDoc

++++'Set+the+JS+Object+-+Java+Script+Object.
++++Set+objJSO+=+objAcroPDDoc.GetJSObject

++++'Check+the+type+of+conversion.
++++Select+Case+LCase(FileExtension)
++++++++Case+"eps":+ExportFormat+=+"com.adobe.acrobat.eps"
++++++++Case+"html",+"htm":+ExportFormat+=+"com.adobe.acrobat.html"
++++++++Case+"jpeg",+"jpg",+"jpe":+ExportFormat+=+"com.adobe.acrobat.jpeg"
++++++++Case+"jpf",+"jpx",+"jp2",+"j2k",+"j2c",+"jpc":+ExportFormat+=+"com.adobe.acrobat.jp2k"
++++++++Case+"docx":+ExportFormat+=+"com.adobe.acrobat.docx"
++++++++Case+"doc":+ExportFormat+=+"com.adobe.acrobat.doc"
++++++++Case+"png":+ExportFormat+=+"com.adobe.acrobat.png"
++++++++Case+"ps":+ExportFormat+=+"com.adobe.acrobat.ps"
++++++++Case+"rft":+ExportFormat+=+"com.adobe.acrobat.rft"
++++++++Case+"xlsx":+ExportFormat+=+"com.adobe.acrobat.xlsx"
++++++++Case+"xls":+ExportFormat+=+"com.adobe.acrobat.spreadsheet"
++++++++Case+"txt":+ExportFormat+=+"com.adobe.acrobat.accesstext"
++++++++Case+"tiff",+"tif":+ExportFormat+=+"com.adobe.acrobat.tiff"
++++++++Case+"xml":+ExportFormat+=+"com.adobe.acrobat.xml-1-00"
++++++++Case+Else:+ExportFormat+=+"Wrong+Input"
++++End+Select

++++'Check+if+the+format+is+correct+and+there+are+no+errors.
++++If+ExportFormat+<>+"Wrong+Input"+And+Err.Number+=+0+Then

++++++++'Format+is+correct+and+no+errors.

++++++++'Set+the+path+of+the+new+file.+Note+that+Adobe+instead+of+xls+uses+xml+files.
++++++++'That's+why+here+the+xls+extension+changes+to+xml.
++++++++If+LCase(FileExtension)+<>+"xls"+Then
++++++++++++NewFilePath+=+WorksheetFunction.Substitute(PDFPath,+".pdf",+"."+&+LCase(FileExtension))
++++++++Else
++++++++++++NewFilePath+=+WorksheetFunction.Substitute(PDFPath,+".pdf",+".xml")
++++++++End+If

++++++++'Save+PDF+file+to+the+new+format.
++++++++boResult+=+objJSO.SaveAs(NewFilePath,+ExportFormat)

++++++++'Close+the+PDF+file+without+saving+the+changes.
++++++++boResult+=+objAcroAVDoc.Close(True)

++++++++'Close+the+Acrobat+application.
++++++++boResult+=+objAcroApp.Exit

++++++++'Inform+the+user+that+conversion+was+successfully.
++++++++MsgBox+"The+PDf+file:"+&+vbNewLine+&+PDFPath+&+vbNewLine+&+vbNewLine+&+_
++++++++"Was+saved+as:+"+&+vbNewLine+&+NewFilePath,+vbInformation,+"Conversion+finished+successfully"

++++Else

++++++++'Something+went+wrong,+so+close+the+PDF+file+and+the+application.

++++++++'Close+the+PDF+file+without+saving+the+changes.
++++++++boResult+=+objAcroAVDoc.Close(True)

++++++++'Close+the+Acrobat+application.
++++++++boResult+=+objAcroApp.Exit

++++++++'Inform+the+user+that+something+went+wrong.
++++++++MsgBox+"Something+went+wrong!"+&+vbNewLine+&+"The+conversion+of+the+following+PDF+file+FAILED:"+&+_
++++++++vbNewLine+&+PDFPath,+vbInformation,+"Conversion+failed"

++++End+If

++++'Release+the+objects.
++++Set+objAcroPDDoc+=+Nothing
++++Set+objAcroAVDoc+=+Nothing
++++Set+objAcroApp+=+Nothing

End+Sub|742032|下面是一个宏，它循环遍历工作表“路径”中列"B“中包含的所有文件路径，并将PDF文件转换为不同的文件类型。宏ExportAllPDF使用类似于SavePDFAsOtherFormatNoMsg宏的SavePDFAsOtherFormat宏，但是没有消息框。|742033|Sub+ExportAllPDFs()

++++'Convert+all+the+PDF+files+that+their+paths+are+on+column+B+of
++++'the+worksheet+"Paths"+into+a+different+file+format.
++++'By+Christos+Samaras
++++'http://www.myengineeringworld.net

++++Dim+FileFormat+As+String
++++Dim+LastRow+As+Long
++++Dim+i+As+Integer

++++'Change+this+according+to+your+own+needs.
++++'Available+formats:+eps+html,+htm+jpeg,+jpg,+jpe+jpf,+jpx,+jp2,
++++'j2k,+j2c,+jpc,+docx,+doc,+png,+ps,+rft,+xlsx,+xls,+txt,+tiff,+tif+and+xml.
++++'In+this+example+the+PDF+file+will+be+saved+as+text+file.
++++FileFormat+=+"txt"

++++If+FileFormat+=+""+Then
++++++++shPaths.Range("B2").Select
++++++++MsgBox+"There+are+no+file+paths+to+convert!",+vbInformation,+"File+paths+missing"
++++++++Exit+Sub
++++End+If

++++shPaths.Activate

++++'Find+the+last+row.
++++With+shPaths
++++++++LastRow+=+.Cells(.Rows.Count,+"B").End(xlUp).Row
++++End+With

++++'Check+that+there+are+available+file+paths.
++++If+LastRow+<+2+Then
++++++++shPaths.Range("B2").Select
++++++++MsgBox+"There+are+no+file+paths+to+convert!",+vbInformation,+"File+paths+missing"
++++++++Exit+Sub
++++End+If

++++'For+each+cell+in+the+range+"B2:B"+&+last+row+convert+the+pdf+file
++++'into+different+format+(here+to+text+-+txt).
++++For+i+=+2+To+LastRow
++++++++SavePDFAsOtherFormatNoMsg+Cells(i,+2).Value,+FileFormat
++++Next+i

++++'Inform+the+user+that+conversion+finished.
++++MsgBox+"All+files+were+converted+successfully!",+vbInformation,+"Finished"

End+Sub|742034|http://www.myengineeringworld.net/2013/03/vba-macro-to-convert-pdf-files-into.html|offset|length|742035|entityMap|0|LINK|mutability|MUTABLE|url^0|0|0|0|0|0|0|0|0|2A|0|0^^$0|@$1|2|3|4|5|6|7|11|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|12|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|13|8|@]|9|@]|A|$G|H]]|$1|I|3|J|5|6|7|14|8|@]|9|@]|A|$]]|$1|K|3|L|5|F|7|15|8|@]|9|@]|A|$G|H]]|$1|M|3|N|5|6|7|16|8|@]|9|@]|A|$]]|$1|O|3|P|5|F|7|17|8|@]|9|@]|A|$G|H]]|$1|Q|3|R|5|6|7|18|8|@]|9|@$S|19|T|1A|1|1B]]|A|$]]|$1|U|3|-4|5|6|7|1C|8|@]|9|@]|A|$]]]|V|$W|$5|X|Y|Z|A|$10|R]]]]

If you have Adobe Acrobat installed you can convert all PDF files to Excel files. 

Apart from the main procedure I also wrote a loop in order to convert multiple PDF files at once. So, if you have a folder that contains PDF files you can use this tool to obtain their file paths. Then you can use the attached workbook in order to convert them to a different format. The code actually uses the Save As command of the Adobe Professional in order to save the files to the desired format. The available formats are:

<pre><code>eps
html and htm
jpeg, jpg and jpe
jpf, jpx, jp2, j2k, j2c and jpc
docx
doc
png
ps
rft
xlsx
xls
txt
tiff and tif
xml
</code></pre>

VBA code

<pre><code>Option Explicit
Option Private Module

Sub SavePDFAsOtherFormat(PDFPath As String, FileExtension As String)

 'Saves a PDF file as another format using Adobe Professional.

 'By Christos Samaras
 'http://www.myengineeringworld.net

 'In order to use the macro you must enable the Acrobat library from VBA editor:
 'Go to Tools -&gt; References -&gt; Adobe Acrobat xx.0 Type Library, where xx depends
 'on your Acrobat Professional version (i.e. 9.0 or 10.0) you have installed to your PC.

 'Alternatively you can find it Tools -&gt; References -&gt; Browse and check for the path
 'C:\Program Files\Adobe\Acrobat xx.0\Acrobat\acrobat.tlb
 'where xx is your Acrobat version (i.e. 9.0 or 10.0 etc.).

 Dim objAcroApp As Acrobat.AcroApp
 Dim objAcroAVDoc As Acrobat.AcroAVDoc
 Dim objAcroPDDoc As Acrobat.AcroPDDoc
 Dim objJSO As Object
 Dim boResult As Boolean
 Dim ExportFormat As String
 Dim NewFilePath As String

 'Check if the file exists.
 If Dir(PDFPath) = "" Then
 MsgBox "Cannot find the PDF file!" &amp; vbCrLf &amp; "Check the PDF path and retry.", _
 vbCritical, "File Path Error"
 Exit Sub
 End If

 'Check if the input file is a PDF file.
 If LCase(Right(PDFPath, 3)) &lt;&gt; "pdf" Then
 MsgBox "The input file is not a PDF file!", vbCritical, "File Type Error"
 Exit Sub
 End If

 'Initialize Acrobat by creating App object.
 Set objAcroApp = CreateObject("AcroExch.App")

 'Set AVDoc object.
 Set objAcroAVDoc = CreateObject("AcroExch.AVDoc")

 'Open the PDF file.
 boResult = objAcroAVDoc.Open(PDFPath, "")

 'Set the PDDoc object.
 Set objAcroPDDoc = objAcroAVDoc.GetPDDoc

 'Set the JS Object - Java Script Object.
 Set objJSO = objAcroPDDoc.GetJSObject

 'Check the type of conversion.
 Select Case LCase(FileExtension)
 Case "eps": ExportFormat = "com.adobe.acrobat.eps"
 Case "html", "htm": ExportFormat = "com.adobe.acrobat.html"
 Case "jpeg", "jpg", "jpe": ExportFormat = "com.adobe.acrobat.jpeg"
 Case "jpf", "jpx", "jp2", "j2k", "j2c", "jpc": ExportFormat = "com.adobe.acrobat.jp2k"
 Case "docx": ExportFormat = "com.adobe.acrobat.docx"
 Case "doc": ExportFormat = "com.adobe.acrobat.doc"
 Case "png": ExportFormat = "com.adobe.acrobat.png"
 Case "ps": ExportFormat = "com.adobe.acrobat.ps"
 Case "rft": ExportFormat = "com.adobe.acrobat.rft"
 Case "xlsx": ExportFormat = "com.adobe.acrobat.xlsx"
 Case "xls": ExportFormat = "com.adobe.acrobat.spreadsheet"
 Case "txt": ExportFormat = "com.adobe.acrobat.accesstext"
 Case "tiff", "tif": ExportFormat = "com.adobe.acrobat.tiff"
 Case "xml": ExportFormat = "com.adobe.acrobat.xml-1-00"
 Case Else: ExportFormat = "Wrong Input"
 End Select

 'Check if the format is correct and there are no errors.
 If ExportFormat &lt;&gt; "Wrong Input" And Err.Number = 0 Then

 'Format is correct and no errors.

 'Set the path of the new file. Note that Adobe instead of xls uses xml files.
 'That's why here the xls extension changes to xml.
 If LCase(FileExtension) &lt;&gt; "xls" Then
 NewFilePath = WorksheetFunction.Substitute(PDFPath, ".pdf", "." &amp; LCase(FileExtension))
 Else
 NewFilePath = WorksheetFunction.Substitute(PDFPath, ".pdf", ".xml")
 End If

 'Save PDF file to the new format.
 boResult = objJSO.SaveAs(NewFilePath, ExportFormat)

 'Close the PDF file without saving the changes.
 boResult = objAcroAVDoc.Close(True)

 'Close the Acrobat application.
 boResult = objAcroApp.Exit

 'Inform the user that conversion was successfully.
 MsgBox "The PDf file:" &amp; vbNewLine &amp; PDFPath &amp; vbNewLine &amp; vbNewLine &amp; _
 "Was saved as: " &amp; vbNewLine &amp; NewFilePath, vbInformation, "Conversion finished successfully"

 Else

 'Something went wrong, so close the PDF file and the application.

 'Close the PDF file without saving the changes.
 boResult = objAcroAVDoc.Close(True)

 'Close the Acrobat application.
 boResult = objAcroApp.Exit

 'Inform the user that something went wrong.
 MsgBox "Something went wrong!" &amp; vbNewLine &amp; "The conversion of the following PDF file FAILED:" &amp; _
 vbNewLine &amp; PDFPath, vbInformation, "Conversion failed"

 End If

 'Release the objects.
 Set objAcroPDDoc = Nothing
 Set objAcroAVDoc = Nothing
 Set objAcroApp = Nothing

End Sub
</code></pre>

Here is the macro that loops through all the file paths that are contained in column "B" of the sheet "Paths" and converts the PDF files into a different file type. The macro ExportAllPDFs uses the SavePDFAsOtherFormatNoMsg macro, which is similar to SavePDFAsOtherFormat macro, but, without the message boxes.

<pre><code>Sub ExportAllPDFs()

 'Convert all the PDF files that their paths are on column B of
 'the worksheet "Paths" into a different file format.
 'By Christos Samaras
 'http://www.myengineeringworld.net

 Dim FileFormat As String
 Dim LastRow As Long
 Dim i As Integer

 'Change this according to your own needs.
 'Available formats: eps html, htm jpeg, jpg, jpe jpf, jpx, jp2,
 'j2k, j2c, jpc, docx, doc, png, ps, rft, xlsx, xls, txt, tiff, tif and xml.
 'In this example the PDF file will be saved as text file.
 FileFormat = "txt"

 If FileFormat = "" Then
 shPaths.Range("B2").Select
 MsgBox "There are no file paths to convert!", vbInformation, "File paths missing"
 Exit Sub
 End If

 shPaths.Activate

 'Find the last row.
 With shPaths
 LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
 End With

 'Check that there are available file paths.
 If LastRow &lt; 2 Then
 shPaths.Range("B2").Select
 MsgBox "There are no file paths to convert!", vbInformation, "File paths missing"
 Exit Sub
 End If

 'For each cell in the range "B2:B" &amp; last row convert the pdf file
 'into different format (here to text - txt).
 For i = 2 To LastRow
 SavePDFAsOtherFormatNoMsg Cells(i, 2).Value, FileFormat
 Next i

 'Inform the user that conversion finished.
 MsgBox "All files were converted successfully!", vbInformation, "Finished"

End Sub
</code></pre>

<a href="http://www.myengineeringworld.net/2013/03/vba-macro-to-convert-pdf-files-into.html" rel="nofollow noreferrer">http://www.myengineeringworld.net/2013/03/vba-macro-to-convert-pdf-files-into.html</a>

I am using VBA to extract texts from PDF file to a xls spreadsheet. 

The texts are always the same "Price of X", "Price of Y", "Price of Z". 

I need to find, copy, and paste them in a spreadsheet.

I have not found any similar topics.

Find text within a PDF file, copy, and paste it in a spreadsheet

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

我使用VBA从PDF文件中提取文本到xls电子表格。文本总是相同的“X的价格”，“Y的价格”，“Z的价格”。我需要在电子表格中找到、复制并粘贴它们。我没有发现任何类似的话题。

问在PDF文件中查找文本，复制并粘贴到电子表格中
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问在PDF文件中查找文本，复制并粘贴到电子表格中EN