DDEInitiate Probleme mit Excel

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: Exel unter Office XP
nach unten

Betrifft: DDEInitiate Probleme mit Excel
von: Herbert
Geschrieben am: 18.07.2002 - 10:49:19

Ich habe das Problem das aus Excel heraus (ich habe es mit Exel 97, 2000 und Exel XP probiert) ein DDE Initiate in Verbindung mit DDEPoke und DDETerminate kein Ergebnis bringt obwohl es ohne Fehler abläuft.
Die gleiche unveränderte VBA-Syntax funktioniert problemlos in Access oder Word.

Das aufzurufende Programm ist ein Telefonprogramm über TAPI.

unten die entsprechende Funktion incl Aufruf aus dem Direktfenter.

Hat jemand eine Idee wo das Problem liegen könnte oder schon mal ein vergleichbares Problem gehabt?

Vielen Dank und Gruß

Herbert

'----------
Function DDE_Phone(Telefonnummer As String)
'
' Aufruf von ComfoPhone über DDE; Parameter ist die Telephonnummer

Dim Kanalnr As Long 'global zu diesem Modul
Const lTitle = "Öffnen des DDE-Kanals"

DDE_Dialog:
' Der Dialog mit ComfoPhone wird eingeleitet. Angesprochen
' wird die Anwendung "CTALKP.EXE" und darin das Objekt
' "CTALKP_ANRU". Die zu schickende Zeichenfolge wird
' festgelegt und später an die Stelle "MakeCall" gepoked.
' Chr$(34) ist ". Der ExecString lautet dann etwa [ExtB="12345"] .

On Error GoTo BadConnection

Kanalnr = DDEInitiate(App:="CTALKP", Topic:="CTALKP_ANRU")
MsgBox prompt:="Ein Kanal zu CTALKP ist nun geöffnet.", _
Buttons:=vbInformation, Title:=lTitle
ExecString$ = "[ExtB=" + Chr$(34) + Telefonnummer + Chr$(34) + "]"
DDEPoke Kanalnr, "MakeCall", ExecString$
DDETerminate Kanalnr
Exit Function

BadConnection:
MsgBox prompt:="Kanal konnte nicht geöffnet werden!", _
Buttons:=vbExclamation, Title:=lTitle

End Function
'------
Aufruf im Direktfenster:
dde_phone("2903")

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Fehlermeldung"