Von |
Karl |
eMail |
|
Am |
12. November 2007 um 18:19:43 |
Frage |
Hallo Ein Problem in meiner Anwendung aufgetaucht, die ich nicht lösen kann. Ich starte ein Programm, muss warten bis es einen Befehl fertig abgearbeitet hat und will es dann schließen, um mit meinem VBA Script weiter zu machen. Mit dem Shell Befehl starte ich die SW FreePDF. Dabei gebe ich einige Argumente hinzu und das Programm erstellt eine Datei.pdf. Diese wird geöffnet aber nicht wieder geschlossen! Auch meine Cursorposition ist nun bei der Datei.pdf. Wie kann ich das Programm bzw. die Datei schließen und zu Excel zurückkehren? Hat jemand eie Idee, wie man das löst?
Hier mal mein Code:Sub ShellStartTest() Dim DosBefehlPDF As String DosBefehlPDF = Cells(1, 1) 'Das steht In Zelle A1 'C:\Programme\FreePDF_XP\freepdf.exe /m "C:\tmp\GesamtPDF.pdf" "C:\tmp\PDF1.pdf" "C:\tmp\PDF2.pdf" Dim wshshell As Object Set wshshell = CreateObject("WScript.Shell") wshshell.Run DosBefehlPDF End Sub |
|