Office: (Office 2007) Zeitverzögerung über VBA

crizu · 5. August 2015

So, ich schon wieder.

Mein nächstes Problem:
Ich habe folgenden VBA Code

Code:

Private Sub Befehl441_Click()

DoCmd.OutputTo acOutputReport, "01 Deckblatt", acFormatPDF, "C:\Dokumente\1.pdf"
DoCmd.OutputTo acOutputReport, "02 Lagebeschreibung", acFormatPDF, "C:\Dokumente\2.pdf"
DoCmd.OutputTo acOutputReport, "03 Kräfteübersicht", acFormatPDF, "C:\Dokumente\3.pdf"
DoCmd.OutputTo acOutputReport, "04 Einsatzabschnitte", acFormatPDF, "C:\Dokumente\4.pdf"
DoCmd.OutputTo acOutputReport, "05 Kommunikationsplan", acFormatPDF, "C:\Dokumente\5.pdf"
DoCmd.OutputTo acOutputReport, "06 Lagedarstellung", acFormatPDF, "C:\Dokumente\6.pdf"
DoCmd.OutputTo acOutputReport, "07 Meldungen / Anweisungen", acFormatPDF, "C:\Dokumente\7.pdf"
DoCmd.OutputTo acOutputReport, "08 Wetter", acFormatPDF, "C:\Dokumente\8.pdf"

Shell ("C:\Dokumente\pdftk.exe C:\Dokumente\1.pdf C:\Dokumente\2.pdf C:\Dokumente\3.pdf C:\Dokumente\4.pdf C:\Dokumente\5.pdf C:\Dokumente\6.pdf C:\Dokumente\7.pdf C:\Dokumente\8.pdf cat output C:\Dokumente\Einsatzbericht.pdf")

FollowHyperlink "C:\Dokumente\Einsatzbericht.pdf"

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Jetzt möchte ich aber eine Zeitverzögerung von ca. 5 sek. zwischen dem "Shell"-Befehl und dem "FollowHyperlink" einbauen.

geht das?

:)

Marsu65 · 7. August 2015

Ja, das geht z.B. mit der API-Funktion Sleep.

Im Modulkopf oder einem öffentlichen Modul:
Code:

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long )

Und in deinem Code:
Code:

...
Shell ("C:\Dokumente\pdftk.exe ...
Sleep 5000
FollowHyperlink "C:\Dokumente\Einsatzbericht.pdf"
...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

fraeser · 7. August 2015

Oder Du baust dazwischen eine Warteschleife ein.
Die läuft dann so lange, bis das pdf erstellt worden ist:

Code:

Public Sub warte(PDFFile As String)
On Error GoTo warte_err

Do
DoEvents

Loop Until Dir(PDFFile) ""

warte_exit:
Exit Sub

warte_err:
MsgBox "warte" & Chr(13) & Chr(10) & Err.Description
Resume warte_exit

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Zwischen Shell und FollowHyperlink dann:

Code:

warte "C:\Dokumente\Einsatzbericht.pdf"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Josef P. · 7. August 2015

Hallo!

Vermutlich suchst du gar nicht nach einem verzögerten Start sondern nach der Möglichkeit pdftk auszuführen und FollowHyperlink erst zu starten nachdem pdftk fertig ist.

Eine mögliche Umsetzung zeigte Jan bereits.
Als weitere Möglichkeit könntest du LaunchAppSynchronous von http://planetsourcecode.com/vb/scrip...=3716&lngWId=1 ausprobieren.

mfg
Josef

crizu · 7. August 2015

der Tipp von fraeser hat super geklappt
besten dank

Office: (Office 2007) Zeitverzögerung über VBA

Zeitverzögerung über VBA

Zeitverzögerung über VBA

Zeitverzögerung über VBA

Zeitverzögerung über VBA - Similar Threads - Zeitverzögerung VBA

VBA in einer Zeile zu lang

Listbox wird nicht breiter, Schriftgrösse ändert sich

Kontrollkästchen aktivieren ohne VBA - wenn KK1 angekreuzt dann KK2 auch

Per Hyperlink ausgeblendetes Blatt einblenden

Bilder über VBA Größe und DPI ändern für Webshop

VBA: Platzhalter ersetzen und evtl. leere Zeile einfügen

Wenn funktion mit Zeitverzögerung