Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
700to704
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

shell startet xxx.bat nicht

shell startet xxx.bat nicht
26.11.2005 15:09:04
masurat
Hallo zusammen
Hoffentlich kann jemand helfen.
Ich habe ein Excel Blatt, welches mir ein input file (temp) erzeugt und auf E: schreibt. Funktioniert bestens.
Mit diesem file (temp) möchte ich dann ein DOS Programm laufen lassen, daß mir wiederum ein output file rausschreibt (temp-out).
Das DOS Programm wird normalerweise in der DOS shell folgenderweise gestartet:
b9510v10 (kleinerPfeil)temp (größerPfeil)temp-out
(kleinerPfeil)= (größerPfeil)= > mußte ich so schreiben, da sonst diese Zeichen in diesem Text verschwunden waren!!
Mit dem VBA Befehl shell habe ich es nicht hinbekommen.
Shell ("E:\b9510v10.exe (kleinerPfeil)temp.txt (größerPfeil)temp-out.txt"), 3
startet zwar ein DOS Fenster, aber temp-out wird nicht erzeugt.
Dann bin ich dazu übergegangen mir ein batch-file (start.bat) zu schreiben mit genau der Kommando Zeile.
Klicke ich start.bat für sich doppelt an, wird temp-out erzeugt. Also funktioniert start.bat.
Nur wieder aus Excel raus kann ich es nicht starten.
Shell "E:\start.bat"
führt zwar wieder irgendein Fenster aus, welches auf und zu geht, ich kann leider nichts erkennen, aber temp-out wird nicht geschrieben.
Hier noch das makro:

Private Sub CommandButton1_Click()
Open "E:\temp" For Output As #1
Print #1, "text1"
Print #1, "text2"
Print #1, "text3"
Print #1, "33 5"
Print #1, "1"
Print #1, "1"
Print #1, "1"
mach = Cells(9, 3)
mach = Format(mach, "###0.00")
Print #1, mach
Print #1, "13"
Print #1, "0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 0.95 0.98 0.9999"
Print #1, "0"
Print #1, "0"
aspect = Cells(16, 3)
aspect = Format(aspect, "###0.00")
Print #1, aspect
taper = Cells(17, 3)
taper = Format(taper, "###0.00")
Print #1, taper
Print #1, "0"
Print #1, "0"
Close #1
Shell "E:\start.bat"
End Sub

Schönen Gruß
Wolle

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: shell startet xxx.bat nicht-GELÖST!!!
26.11.2005 15:39:06
masurat
Hi,
selbst gelöst. In der start.bat fehlte der Pfad!!! Dummer Fehler!
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige