VBA将PDF文档内容逐行写入Excel

        VBA是无法直接读取PDF文档的，但结合上期我给大家介绍了PDF转换工具xpdf-tools-4.05，先利用它将PDF文档转换为TXT文档，然后再将TXT的内容写入Excel，这样就间接实现了将PDF文档的内容导入Excel的操作。下面的代码将向大家演示如何实现这一操作：

Sub Import_PDF_File()
'
' 导入PDF文档
'Dim pdftotext As Stringpdftotext = "C:\Program Files (x86)\xpdf-tools\bin32\pdftotext.exe"Dim fd As fileDialogDim filePath As String' 文件选择对话框Set fd = Application.fileDialog(msoFileDialogFilePicker)With fd.Title = "选择PDF文件".InitialFileName = UserDirectory  ' 设置默认路径.Filters.Clear.Filters.Add "PDF文件", "*.pdf".AllowMultiSelect = FalseIf .Show <> -1 Then Exit SubfilePath = .SelectedItems(1)End WithCells.ClearContents    ' 清除所有数据Application.ScreenUpdating = False    ' 禁用屏幕更新Dim InputFile As String, OutputFile As StringInputFile = filePathOutputFile = Left(filePath, Len(filePath) - 4) & ".txt"' 转换PDF为TXT文档Dim shellCommand As StringshellCommand = pdftotext & " -layout -enc UTF-8 """ & InputFile & """ """ & OutputFile & """"Shell shellCommand, vbHide' 等待转换完成Application.Wait Now + TimeValue("00:00:02")Dim txtPath As StringtxtPath = OutputFileIf UTF8TOANSI(txtPath) = False Then MsgBox "转换ANSI编码失败" & txtPath, vbCritical, "错误"Dim TxtPathANSI As StringTxtPathANSI = Left(txtPath, Len(txtPath) - 4) & "_ANSI.txt"' 读取文本文件Dim i As LongDim Line As StringDim LineNum As LongDim symbols As StringOpen TxtPathANSI For Input As #1i = 0Do While Not EOF(1)Line Input #1, Linei = i + 1Cells(i, 1).Value = LineLineNum = iLoopClose #1' 删除临时文件Kill txtPathKill TxtPathANSIColumns("A:A").SelectWith Selection.HorizontalAlignment = xlLeft   ' 左对齐End WithRange("A1").SelectApplication.ScreenUpdating = True    ' 启用屏幕更新MsgBox "成功导入 " & LineNum & " 行数据。", vbInformation, "提示"End Sub

        该操作只适合文字版的PDF，不适合图片版的PDF，也就是说如果你的PDF是使用扫描仪生成的那该方法不适合。另外，导入txt文档需要使用UTF8TOANSI函数将UTF8编码转换为ANSI编码，否则可能导入的是乱码，关于该函数的使用方法详见《 VBA转换TXT文档编码（UTF-8转换为ANSI）》