Question

我是vba的新手，我一直在尝试使用MS word 2016打开PDF文件，以便复制数据并填充Excel中的单元格，我已经能够打开PDF并复制数据但我发现获取所需数据并填充Excel中的单元格很棘手。我想知道是否可以通过excel在VBA中编码。

谢谢

Answer 1

此解决方案需要引用要在Excel中设置的Word库（工具，参考）

Sub test()
Dim s As String
Dim t As Excel.Range
s = "\\my path\my file.pdf"
Dim wd As New Word.Application
Dim mydoc As Word.Document
Set mydoc = Word.Documents.Open(Filename:=s, Format:="PDF Files", ConfirmConversions:=False)
Dim wr As Word.Range
Set wr = mydoc.Paragraphs(1).Range
wr.WholeStory   
Set t = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
wr.Copy
t.PasteSpecial xlPasteValues
mydoc.Close False
wd.Quit

End Sub

在Excel中用单词vba打开pdf

1 个答案: