Externes Programm

Hallo Excelfreunde,
folgendes Problem: ich muss aus Excel heraus einen String an ein Barcodeprogramm senden und dann wieder den Barcode zurück nach Excel - das funktioniert auch soweit. Allerdings mit dem Pferdefuß, dass ich für jede dieser "Schleifen" das Barcodeprogramm starte, den String verarbeite und dann das Barcodeprogramm wieder schließe.
Es wär für die Performance weitaus besser wenn das Barcodeprogramm immer offen sein könnte und nur das aktive Programm wechseln könnte - den Hinweg habe ich geschafft, aber nachdem der String bearbeitet wurde komme ich aus mir nicht erklärbarem Grunde nicht zurück zu Excel - das Barcodeprogramm bleibt aktiv und erst ein manueller Maucclick auf Excel erweckt Excel aus seinen "Dornröschenschlaf". Nach allem was ich den Recherche gelesen habe und STFW komme ich nicht weiter - könnt jemand mir auf die Sprünge helfen?
Vielen Dank für Eure Mühe schon jetzt.
Gruß
Johannes

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Johannes
Ich nutze gelegendlich ein Barcodeprogramm von Will-Software.
Dort war folgendes Makro Beigefügt. Eigendlich gut verständlich..


Sub BarcodeDruck()
StartZahl = Application.InputBox( _
Prompt:="Geben Sie die Startzahl ein.", _
Title:="Barcodedruck 2/5 Interleaved", Type:=1)
If StartZahl = "Falsch" Then
Exit Sub
End If
EndZahl = Application.InputBox( _
Prompt:="Geben Sie die Endzahl ein.", _
Title:="Barcodedruck 2/5 Interleaved", Type:=1)
If EndZahl = "Falsch" Then
Exit Sub
End If
'Das Barcode-Programm muß vor Ausführung des Makros gestartet werden.
Channel = Application.DDEInitiate("Barcode", "Hauptdialog")
Application.DDEExecute Channel, "MINI"
Application.DDEExecute Channel, "2/5 Interleaved"
For i = StartZahl To EndZahl
[b2] = i
Application.DDEPoke Channel, "Nutzziffer", [b2]
Application.DDEExecute Channel, "BERECHNEN"
[b1].Font.Name = Application.DDERequest(Channel, "Schriftart")
[b1].Font.Size = Application.DDERequest(Channel, "Schriftgr")
[b1] = Application.DDERequest(Channel, "Gesamtfolge")
'        Anwendung.TabellenblattListe(1).Ausdrucken Kopien:=1
Next
Application.DDETerminate Channel
End Sub

Vielleicht hilft es dir
Gruß Uwe

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Externes Programm

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread