Externes Programm starten
13.12.2005 12:07:02
Stefan
ich soll aus Excel ein Clipperprogramm starten und dort aus 2 Feldern, die
per Auswahlliste Abfahrtsbahnhöfe und Ankunftsbahnhöfe angeben. Das Clipperprogramm berechnet die Entfernung zwischen den Bahnhöfen und stellt eine Datei in ein Temp-verzeichnis, aus der ich in Excel mir natürlich über eine Externe Abfrage die Angaben zurückgeben lassen kann. Irgendwie funktioniert das bei mir nicht, weil ich mit den Variablen offenbar (s. Beispiel was falsch mache) Vielleicht könnt Ihr mir ja helfen, Danke,
Stefan
Sub abBF()
Dim abBF As Variable
Set abBF = ThisWorkbook.Sheets("Kalkulation").[c5]
End Sub
Sub nBf()
Dim nBf As Variable
Set nBf = ThisWorkbook.Sheets("Kalkulation").[c6]
End Sub
Sub Prgstart()
Set Prgstart = "C:\OeBB-Infra netzz\IBE2005\IBE2005.EXE " + abBF() + " " + nBf()
End Sub
Sub ext_Prog_oeffnen()
Status = Shell("C:\OeBB-Infra netzz\IBE2005\IBE2005.EXE", Var(abBF), Var(nBf), 1)
End Sub