pdf zu einer datenbank (excel)

[PHILIPP*]

moin,
ich habe jeden tag 50 einzelne pdf dateien die ich zurzeit manuell in eine excel tabelle abtrage,

sprich sind normale textdateien, die aber gleich aussehen.
ich möchte jetzt das einzelne textstellen herauskopiert werden und in eine excel zelle hinzugefügt werden.

ist das möglich?

grüße

[Corenelius]

Starte Excel, drücke Alt-F11, gehe auf Einfügen\Modul, kopiere da den
folgenden Sourcecode rein, passe den Suchpfad an, drücke Alt-F11, drücke
Alt-F8 und führe das Makro "SucheDateien" aus.

Code: Alles auswählen

Const SuchPfad = "Z:\"  'Pfad in dem die dateien zum zusammenführen liegen

Sub SucheDateien()
With Application.FileSearch
.NewSearch
.LookIn = SuchPfad
.SearchSubFolders = True
.Filename = "*.xls"  ' oder "*.txt" 
.FileType = msoFileTypeAllFiles
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
KopiereTabellen .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With
End Sub

Sub KopiereTabellen(Dateiname As String)
Dim OurBook As Workbook, CopyBook As Workbook
Dim S As Worksheet
Dim SName As String

Set OurBook = ActiveWorkbook
Set fs = CreateObject("Scripting.FileSystemObject")
Workbooks.Open Filename:=Dateiname
Set CopyBook = ActiveWorkbook
For Each S In Sheets
SName = S.Name
S.Copy After:=OurBook.Sheets(OurBook.Sheets.Count)
OurBook.Sheets(OurBook.Sheets.Count).Name = _
fs.GetBaseName(CopyBook.Name) & "-" & SName
Next
CopyBook.Close SaveChanges:=False
End Sub

probiere das mal