Das Archiv des Excel-Forums

Inhalte von einer PDF suchen und den Text kopieren

nach unten


Betrifft: Inhalte von einer PDF suchen und den Text kopieren
von: Steffen

Geschrieben am: 25.09.2019 08:54:52

Hallo zusammen,
ich möchte aus 100 PDFs etwas suchen und das Ergebnis in einer Excel Tabelle einfügen.
Momentan habe ich es so gelöst, allerdings nicht ganz optimal:

Sub PDFtoExcel()
Dim i As Integer, z As Long
Dim strCMDLine As String, strTXT As String
Dim FSO As Object, objSFold As Object, objWks As Object, WshShell As Object, tmp As Object
Dim colPFiles As New Collection, colTFiles As New Collection
Set WshShell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set objSFold = FSO.GetFolder(ThisWorkbook.Path)
Set objWks = ThisWorkbook.Sheets(1)                             ' Ausgabe
strCMDLine = ThisWorkbook.Path & "\Tools\pdftotext.exe -raw -layout -nopgbrk "
Const strPrefix As String * 31 = "Name"
Const intSWLen = 20
For Each tmp In objSFold.Files                                  ' alle Dateien einlesen
If Right(tmp.Path, 4) = ".pdf" Then colPFiles.Add tmp.Path  ' nur *.pdf
Next tmp
For i = 1 To colPFiles.Count
WshShell.Run (strCMDLine & Chr(34) & colPFiles.Item(i) & Chr(34)), 0, True
'        Kill colPFiles.Item(i)                                      ' pdf-Files löschen
Next
For Each tmp In objSFold.Files                                  ' wieder alles einlesen
If Right(tmp.Path, 4) = ".txt" Then colTFiles.Add tmp.Path  ' nur *.txt
Next tmp
z = objWks.Cells(Rows.Count, 1).End(xlUp).Row + 1               ' letzte belegte Zeile ( _
Spalte A)
For i = 1 To colTFiles.Count
strTXT = FSO.OpenTextFile(colTFiles.Item(i)).ReadAll
objWks.Cells(z, 3) = colPFiles.Item(i)                      ' Dateiname in Spalte B
objWks.Cells(z, 4) = 1
While InStr(1, strTXT, strPrefix, vbTextCompare) > 0
strTXT = Mid(strTXT, InStr(1, strTXT, strPrefix) + Len(strPrefix) - 1)
objWks.Cells(z, 2) = Left(strTXT, intSWLen)             ' Wert eintragen
z = z + 1
Wend
Kill colTFiles.Item(i)                                      ' txt-Files löschen
Next
End Sub

Gibt es eine Möglichkeit, dass ich die Zellen in der PDF als Objekt verwenden kann und nicht als txt Datei umwandeln muss und mit Zeichen arbeiten?
Freue mich auf Hilfe von euch, hoffe es hat schon jemand so etwas gelöst!
Viele Grüße

Betrifft: AW: MS Word
von: Fennek
Geschrieben am: 25.09.2019 09:30:02
Hallo,
PDF's können so verschieden sein, dass ohne Beispiel nur allgemeine Aussagen möglich sind:
M$ Word (ab 2013) kann viele PDF in eine mit VBA auswertbare Form umwandeln, dies sollte zuerst getestet werden.
mfg

Betrifft: AW: MS Word
von: Steffen

Geschrieben am: 25.09.2019 10:22:12
Hallo Fennek,
danke für deine Rückmeldung.
Hier eine bsp. Datei die ich bereits von einer PDF in eine txt Datei konvertiert habe.
https://www.herber.de/bbs/user/132186.txt
Für mich ist nur die Herausforderung, dass die Zeichenabstände auf jeder PDF etwas anders sein können und ich hier eine Automatisation haben muss.
Am besten wäre, wenn ich pro Antwort von den Freunden ein Object hätte und das dann in ein Zelle in der Excel Tabelle schreiben kann.
Können Sie mir da weiterhelfen?
Wie meinten Sie das mit dem M$Word? Haben Sie da ein Beispiel?
mfg

Betrifft: AW: Beispiel PDF
von: Fennek
Geschrieben am: 25.09.2019 12:52:49
Hallo,
auch aus solchen txt-Dateien sollte man per VBA das Gesuchte auslesen können, aber direkt aus der PDF ist eigentlich sinnvoller.
Hoffentlich hast Du VBA-Grundkenntnisse.
mfg

Excel-Beispiele zum Thema "Inhalte von einer PDF suchen und den Text kopieren"

Einlesen von Zellinhalten in Variablen download Zellinhalte zeilenweise sortieren download
Textprogramm starten und Inhalte von Zelle A1 eingeben download Wiederherstellung des alten Zellinhaltes bei unerlaubten Werten download
Bereiche in Abhängigkeit eines Zellinhaltes drucken download Die tatsächliche Anzeige eines Zellinhaltes per VBA abrufen download
Zellinhalte in Verbindung mit Variablen in Textdatei schreiben download Zellinhalte aus Einzelblättern in Deckblatt übertragen download
Excel-Zellinhalte in Worddokument einlesen um per Email versenden download Zellinhalte über VBA verbinden download
Zellinhalte vor dem Verbinden der Zellen zusammenfassen download In mehrere Spalten doppelte Inhalte entfernen download
Blattinhalte dreier Blätter in neues Blatt kopieren download UserForm-TextBox-Inhalte mit Grafik-Hyperlinks einfügen download
Zellinhalte in MultiPage-TextBoxes einlesen download Benennung und Aktivierung von CheckBoxes gem. Zellinhalten download
Tabellenblattinhalte in getrennten Textdateien speichern download Schaltflächen gem. Tabelleninhalten anlegen und benennen. download
In Namensliste TextBox-Inhalte suchen download Aufteilen mehrzeiliger Zellinhalte in UserForm-ListBox download
Formate und Zellinhalte ausblenden download Textinhalte zusammenfügen download
Zellinhalt suchen und Zelle auswählen download Suchbegriff über mehrere Tabellenblätter suchen. download
Suchen und weitersuchen download Zahl +/- 1 suchen download
Ein Zeichen in einer Formel suchen download Datum suchen und Wert eintragen download
Wert in Tabelle suchen und in UserForm ausgeben download Letzte Zelle mit Inhalt suchen download
Textdatei nach Begriff durchsuchen und Fundzeile importieren download Wert in Array suchen, ohne jedes Datenfeld abzufragen download
Wert in Tabellenblatt suchen und alle Fundwerte in zweite Tabelle download Begriffe in ausgeblendeter Spalte suchen und Fundzeile markieren download
Wert aus UserForm-TextBox in Tabelle suchen und in ListBox listen download Suchbegriff aus einer UserForm-Textbox in Tabelle suchen und melden download
Suchwert in zweiter Tabelle suchen und Fundzeile eintragen download Suchen von Nachnamen in Zeichenfolgen download
Dateien in einem Verzeichnis und Unterverzeichnissen suchen download Datum suchen und Adresse der Fundzelle ausgeben download
Begriffe in zweiter Tabelle suchen und Werte anfügen download Text aus UserForm-TextBox in Tabelle suchen download
Zweidimensionale Matrix mit der SVERWEIS-Funktion durchsuchen download Suchbegriff in vorhergehenden Tabellen suchen download
Werte aus UserForm-ComboBox suchen und Fundstelle kopieren download Neueste Textdatei eines Verzeichnisses suchen und umbenennen download
Artikelnummern suchen und jeweils letzte Fundstelle listen download Wörter eines Satzes in Indizliste suchen download
Wert aus UserForm-TextBox suchen und Fundstelle kopieren download Zellwert nach Doppelklick in Tabelle suchen download
Suchen in 2. Tabelle und Ersetzen der Quelldaten download Wert in Tabelle 2 suchen und Fundstellen übertragen download
Suchbegriff in Tabelle suchen und Fundzeilen auswählen download Suchbegriffe aus Tabelle im Excel-WebArchiv suchen download
Wert aus ComboBox in TextBox, dann in Tabelle suchen download Artikelnummer über InputBox suchen und eintragen download
Anwendung auf Fesplatte suchen download Tabelle nach ComboBox-Auswahl durchsuchen download
Werte suchen, eintragen und löschen download Zeile 1 nach Wert der aktiven Zelle durchsuchen download
Suchbegriff in Tabelle suchen und Fundzeilenindex zurückgeben download Wert in zweiter Tabelle suchen und als Kommentar ausgeben download
Wert in externer Mappe suchen und mit Format übernehmen. download Artikelnummern nach Kriterien suchen und Datensätze kopieren download
Wert in ComboBox einlesen, suchen, editieren, ausgeben download Grafikdateien suchen download
Suchen der Nachbarzelle der Zelle mit dem Maximalwert download Text in Textdateien suchen und Fundzeilen in Tabelle ausgeben download
Begriff suchen und Fundzeilen in anderes Blatt kopieren download Zahl suchen und an den Fundstellen Zeile einfügen download
Name und Vorname suchen, Werte und Fundstellen importieren download Begriff in der ersten Spalte einer ListBox suchen download
Blätter in andere Arbeitsmappen kopieren download Module von Mappe zu Mappe kopieren download
Arbeitsblatt 40 mal kopieren download Schriftgröße beim Kopieren verdoppeln download
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen download Tabellencode nach Kopieren des Blattes löschen download
Arbeitsmappe blitzschnell kopieren download VBE-Namen der Blattmodule beim Kopieren festlegen download
Blattinhalt von einer zur anderen Arbeitsmappe kopieren download Formel bis zur letzten Zeile der Nebenspalte kopieren download
Datei kopieren, wenn noch nicht vorhanden download Zeilenweise von Blatt zu Blatt kopieren download
Erste Druckseite in eine neue Arbeitsmappe kopieren download Durch DoppelKlick Spalte in zweites Arbeitsblatt kopieren download
Teilergebnisse einer Serie von Tabellen in anderes Blatt kopieren download Bei Eintrag in Spalte A aktuelle Zeile kopieren download
Filtern und Kopieren download Zeile mit aktiver Zelle in anderes Blatt kopieren download
Zeilen in Abhängigkeit des Wertes in Spalte A kopieren download Einen von einer Schlüsselziffer abhängigen Bereich kopieren download
Vorgegebene Anzahl von Einträgen in 2. Blatt kopieren download Über InputBox festzulegenden Bereich kopieren download
Passwortgeschützte Mappe öffnen, Daten kopieren, schliessen download Tabellenblatt kopieren und dreistellig fortlaufend numerieren download
Jede zweite Zelle kopieren download Gruppe von Optionsfeldern kopieren und Makro zuweisen download
Nicht zusammenhängenden Bereich in nächste Zeile kopieren download Nur sichtbare Zellen in anderes Arbeitsblatt kopieren download
Zeile in Abhängigkeit zur Eingabe in Blätter kopieren download Werte prüfen und kopieren download
Bei Eintrag von X Zeile in andere Tabelle kopieren download Daten kopieren wenn kein Datum oder Datum > Heute download
Kopieren und Umbenennen eines Blattes download Nur Zeilen mit bestimmtem Inhalt kopieren download
Bild in zweites Blatt an gleiche Position kopieren download Alle Zeilen ohne Wert in vorgegebener Spalte kopieren download
Bei Eintrag Zeile in 2. Blatt kopieren und Tabellen sortieren download Bildergruppe in anderes Blatt kopieren download
Bei Eingabe Formel in der Nebenspalte nach unten kopieren download Auswahl in andere Arbeitsmappe kopieren, speichern, schließen download
Aktive Zeile kopieren und löschen download Datensätze, die öfter als 3 mal vorkommen, kopieren download
Den jeweils darüberliegenden Wert in Leerzellen kopieren download Alle Zeilen mit einem Suchbegriff in nächstes Blatt kopieren download
Dateien listen und Blätter in neue Arbeitsmappe kopieren download