[Excel]Makro gesucht

[Chrissy]

Hey ich suche ein Makro welches mir Infos aus einer PDF liest.
Genauer gesagt suche ich die Seitengröße .

Mit XPDF pdfinfo.exe hab ich das ganze schon mal via Batch gelöst, und wäre in Excel soweit das er mir ein Ergebnis in die Tabelle wirft aber leider nur für EINE vorher von Hand festgelegte PDF

Das ganze sollte basierend auf Hyperlink Verknüpfung funktionieren (Datei Speicherort der PDFs).


Irgendwer zufällig eine Idee?

[Negok]

Die Library IText (verfügbar für das .NET Framework) kann die Pagesize auslesen. Hier sind einige Beispiele: https://kb.itextpdf.com/home/it7kb/f...a-pdf-document

IText 5 Installations-Guid: https://kb.itextpdf.com/home/it5kb/i...net-developers

[Chrissy]

Leider geht etwas installieren nicht


Hier mal mein Code


Option Explicit

Private Function GetPDFText(ByVal strPath As String) As String
Dim objShell As Object, objExec As Object
Const cstrPDFInfo = "c:\1\pdfinfo.exe "

Set objShell = CreateObject("WScript.Shell")
Set objExec = objShell.Exec(cstrPDFInfo & strPath)
GetPDFText = objExec.StdOut.ReadAll
Set objExec = Nothing
Set objShell = Nothing
End Function

Sub TestIt()
Dim arInfos, arInfo, i As Long, j As Long

arInfos = Split(GetPDFText("c:\1\1.pdf"), vbNewLine)
j = 1
For i = 0 To UBound(arInfos)
arInfo = Split(arInfos(i), ":", 2)
If UBound(arInfo) = 1 Then
Cells(j, 1).Value = arInfo(0)
Cells(j, 2).Value = Trim(arInfo(1))
j = j + 1
End If
Next
End Sub

Er soll den Speicherort der PDF-Datei aber immer aus einer anderen Zelle nehmen und das Ergebnis immer in der ausgewählten Zelle auswerfen.

Jemand einen Tipp ?