Hallo,
ich hatte dich so verstanden, dass du noch gar keine Datenbank hast. Und dachte, du möchtest Excel als Datenbank benutzen. Dann habe ich mir das so vorgestellt, dass die Pfade und Dateinamen der Pdf-Dateien irgendwie zeilenweise in ein Exceltabellenblatt geschrieben werden (zum Beispiel in Spalte B).
Um eine Pdf-Datei zu dieser Liste ("Datenbank") hinzuzufügen, klickt man auf einen Button und es öffnet sich ein Fenster (wie wenn man eine Datei öffnen möchte). Man kann in diesem Fenster die Pdf-Datei auswählen und es wird der Dateipfad und Dateiname in eine leere Zeile in Spalte B eingetragen.
Dazu habe ich mir einen weiteren Button vorgestellt, der eine der Dateien öffnet (welche das nun sein soll, weiß ich nicht, da ich ja nicht weiß, was du so vorhast).
Und dann noch einen dritten Button. Klickt man auf den, kann man auswählen, welche Datei aus der Liste gelöscht werden soll.
Die beiden letzten Buttons halte ich für nicht sinnvoll, da würde ich mit einem Hyperlink arbeiten und zum Löschen einfach die Zeile löschen.
Soweit zur Erklärung meines letzten Posts.
Jetzt habe ich verstanden, dass du bereits eine Datenbank hast, die die Dateinamen und Dateipfade beinhaltet.
Dann sehe ich da vor meinem geistigen Auge drei Makros, die in etwa so aussehen:
sub HolePfadAusDatenbank()
dim sPfad as string
'Pfad aus Datenbank holen (keine Ahnung, wie du deine Datenbank ansprichst)
sPfad = ....
'Pfad in Zelle ablegen
thisworkbook.worksheets("Tabelle1").Range("A1").value = sPfad
end sub
sub OeffnePdfDatei()
dim sPfad as string
'Pfad aus Zelle lesen und in einer Variablen ablegen
sPfad = thisworkbook.worksheets("Tabelle1").Range("A1").value
'Die Pdf-Datei öffnen (den Code hast du ja schon):
'...
end sub
sub PfadAusZelleEntfernen()
thisworkbook.worksheets("Tabelle1").Range("A1").clearcontents
end sub
Grüße, Ulrich
|