ich habe ein glaube auf dem ersten Blick einfaches Problem, ich habe in einem festgelegten Verzeichnis .pdf Dateien liegen, nun möchte ich , so schön wie das im Win-Explorer funktioniert, alle Dateien markieren und doppelklick drauf, dann wir Adobe Acrobat-Reader geöffnet, und ich kann in den einzelnen PDF - Dateien blätter, ABER dann auch zwischen den Dateien springen, d.h. in allen, die ich markiert und mit doppelklick geöffnet habe.
Nun möchte ich das auch aus dem VB(A) Code heraus machen, mit shellExecute kann ich keine mehreren Dateien übergeben, über FSO habe ich keine richtige Idee …
Kann mir jemand viell. helfen, der das Problem schonmal hatte?
Die Dateien lasse ich in einer Schleife, die meine Datenbank abfragt und die einzelnen Dateien in das Verzeichnis speichert, in eine Variable schreiben:
Damit funktioniert es, es fehlt halt nur der Charme das ich festlegen muss, wo der Speicherort der AcroRd32.exe ist da wäre natürlich shellExecute besser gewesen.
ich habe ein glaube auf dem ersten Blick einfaches Problem,
ich habe in einem festgelegten Verzeichnis .pdf Dateien
liegen, nun möchte ich , so schön wie das im Win-Explorer
funktioniert, alle Dateien markieren und doppelklick drauf,
dann wir Adobe Acrobat-Reader geöffnet, und ich kann in den
einzelnen PDF - Dateien blätter, ABER dann auch zwischen den
Dateien springen, d.h. in allen, die ich markiert und mit
doppelklick geöffnet habe.
Hi Alex,
habe was fürr Word gebastelt, Dateien auswählen mit gedr. Strg + MausKlick, dann ok. GGfs, den Pfa dmit Chdrive undchdir umbiegen.
Option Explicit
Sub tt()
Dim Dateien, Öffne, n, WordApp
Dateien = Application.GetOpenFilename("Text Files (\*.doc), \*.doc", , "Auswahl", , True)
Set WordApp = GetObject(, "Word.Application")
If WordApp Is Nothing Then CreateObject ("Word.Application")
WordApp.Visible = True
For n = 1 To UBound(Dateien)
WordApp.Documents.Open (Dateien(n))
Next n
End Sub
Damit funktioniert es, es fehlt halt nur der Charme das ich
festlegen muss, wo der Speicherort der AcroRd32.exe ist
da wäre natürlich shellExecute besser gewesen.
Du kannst den Speicherort von der AcroRd32.exe aus der Registry lesen.
Ich such mal eben den Schlüssel.
Damit funktioniert es, es fehlt halt nur der Charme das ich
festlegen muss, wo der Speicherort der AcroRd32.exe ist
da wäre natürlich shellExecute besser gewesen.
Du kannst den Speicherort von der AcroRd32.exe aus der
Registry lesen.
Ich such mal eben den Schlüssel.
Damit funktioniert es, es fehlt halt nur der Charme das ich
festlegen muss, wo der Speicherort der AcroRd32.exe ist
da wäre natürlich shellExecute besser gewesen.
Verwende statt den VB(A) Shellbefehl einfach den VB(S) Run Befehl, dann brauchst du den Acrobatreader nicht mehr angeben. Der Runbefehl startet automatisch die verknüpfte Anwendung. Kann aber sein, daß es dann nicht mehr mit mehreren Dateien gleichzeitig klappt. Hier eine einfache kleine Lösung:
