none
Shell-Funktion RRS feed

 > 

  • Frage

  • Question
    Anmelden
    0
    Anmelden

    Hallo Helfer,

     

    Ich führe ein anderes Programm mit der Shell-Funktion aus.

     

    Die VBA-Hilfe:

    Anmerkung°°°Die Shell-Funktion führt standardmäßig andere Programme asynchron aus. Daher muß ein mit Shell ausgeführtes Programm noch nicht abgeschlossen sein, wenn die nächsten Anweisungen, die auf die Shell-Funktion folgen, ausgeführt werden.

     

    Wie kann ich im VBA-Makro feststellen, wann das andere Programm abgeschlossen ist??

     

    Danke und Gruß

    Peter

     

    HPS

    Montag, 12. August 2013 08:22
    |

Antworten

  • Question
    Anmelden
    0
    Anmelden

    Prima!!

    Klappt!!

    Markiere bitte 'meine' Antwort als Antwort, deine darfst Du wieder demarkieren.

    Servus
    Winfried

    Servus Winfried

    • Als Antwort markiert HPSchuppen Freitag, 16. August 2013 13:35
    Freitag, 16. August 2013 12:58
    |

Alle Antworten

  • Question
    Anmelden
    0
    Anmelden
    Hast Du ein exaktes Beispiel von dem, was Du meinst? Ein paar Zeilen Code zum Beispiel.

    Servus
    Winfried

    Servus Winfried

    Donnerstag, 15. August 2013 09:11
    |
  • Question
    Anmelden
    0
    Anmelden

    Hallo Winfried,

    ich erstelle mit WINZIP eine „Zip-Datei“

    (meld$ ist ein Verzeichnis)

    meld$ = Rückmeldung$ & ".zip"

                    ' ******************* Aufruf WinZip ************************************************

                        Call Shell("C:\Program Files (x86)\WinZip\WZZIP -p -r " & meld$ & " *", 1)

                       

    Funktioniert auch, weiß aber nicht, wann das „Shell-Programm“ beendet ist.

    Um Fehlermeldungen im Makro zu vermeiden, habe ich die u. a. Schleife eingebaut.

                        ' ---------- Pause

                        For y = 1 To 300000

                            DoEvents

                        Next y

    ' ******************** selbstextrahierendes Verzeichnis erstellen *******************************

        Call Shell("C:\Program Files (x86)\WinZip Self-Extractor\WZIPSE32 " & meld$ & " -y", 1)

       

        For y = 1 To 300000

            DoEvents

        Next y

    Gruß

    Peter

    HPS

    Freitag, 16. August 2013 08:04
    |
  • Question
    Anmelden
    0
    Anmelden
    Ich verstehe was Du meinst. Sieh dir bitte diese Funktion an: http://www.donkarl.com?FAQ6.14 Sie tut was Du erwartest.

    Servus
    Winfried

    Servus Winfried

    Freitag, 16. August 2013 08:15
    |
  • Question
    Anmelden
    0
    Anmelden

    Prima!!

    Klappt!!

    Danke u. Gruß

    Peter

    HPS

    • Als Antwort markiert HPSchuppen Freitag, 16. August 2013 12:05
    • Tag als Antwort aufgehoben HPSchuppen Freitag, 16. August 2013 13:35
    Freitag, 16. August 2013 11:30
    |
  • Question
    Anmelden
    0
    Anmelden

    Prima!!

    Klappt!!

    Markiere bitte 'meine' Antwort als Antwort, deine darfst Du wieder demarkieren.

    Servus
    Winfried

    Servus Winfried

    • Als Antwort markiert HPSchuppen Freitag, 16. August 2013 13:35
    Freitag, 16. August 2013 12:58
    |