9

VBA を使用して、Excel ワークブックと同じディレクトリにある適切なすべての PDF を開こうとしています。プロジェクトに Adob​​e Acrobat xx.x Type Library 参照を追加しました。しかし、.App オブジェクトを作成しようとすると、"Run-time error '429':" エラーが発生します。

私は何が欠けていますか？

コードは次のとおりです。

Sub ImportNames()
Dim BlrInfoFileList() As String, NbrOfFiles As Integer, FileNameStr As String
Dim X As Integer, pdfApp As AcroApp, pdfDoc As AcroAVDoc


'Find all of the Contact Information PDFs
FileNameStr = Dir(ThisWorkbook.Path & "\*Contact Information.pdf")
NbrOfFiles = 0
Do Until FileNameStr = ""
    NbrOfFiles = NbrOfFiles + 1
    ReDim Preserve BlrInfoFileList(NbrOfFiles)
    BlrInfoFileList(NbrOfFiles) = FileNameStr
    FileNameStr = Dir()
Loop

For X = 1 To NbrOfFiles
    FileNameStr = ThisWorkbook.Path & "\" & BlrInfoFileList(X)
    Set pdfApp = CreateObject("AcroExch.App")
    pdfApp.Hide

    Set pdfDoc = CreateObject("AcroExch.AVDoc")
    pdfDoc.Open FileNameStr, vbNormalFocus

    SendKeys ("^a")
    SendKeys ("^c")
    SendKeys "%{F4}"

    ThisWorkbook.Sheets("Raw Data").Range("A1").Select
    SendKeys ("^v")
    Set pdfApp = Nothing
    Set pdfDoc = Nothing

    'Process Raw Data and Clear the sheet for the next PDF Document
Next X
End Sub
4

5 に答える 5

37

PDFを開いていくつかのキーを送信するだけの問題である場合は、これを試してみませんか

Sub Sample()
    ActiveWorkbook.FollowHyperlink "C:\MyFile.pdf"
End Sub

pdfリーダーがインストールされていることを前提としています。

于 2013-10-04T15:54:51.213 に答える
2

を使用しShell "program file path file path you want to open"ます。

例：

Shell "c:\windows\system32\mspaint.exe c:users\admin\x.jpg"
于 2014-03-16T07:48:56.843 に答える