Hallo,
eine COM-Schnittstelle unter Excel ansprechen und empfangen habe ich am laufen :
Worksheets("T-Fühler").MSComm21.CommPort = 14
Worksheets("T-Fühler").MSComm21.InputLen = 0
Worksheets("T-Fühler").MSComm21.RTSEnable = True
Worksheets("T-Fühler").MSComm21.InputMode = 0 'Text-Mode
Worksheets("T-Fühler").MSComm21.RThreshold = 1
Worksheets("T-Fühler").MSComm21.InBufferSize = 4096
Worksheets("T-Fühler").MSComm21.Settings = "9600,n,8,1"
Worksheets("T-Fühler").MSComm21.PortOpen = True
und
Private Sub MSComm21_OnComm()
Worksheets("T-Fühler").Range("b2") = Worksheets("T-Fühler").Range("b2") + Worksheets("T-Fühler").MSComm21.Input
End Sub
Aber ich weiss nicht und hab auch trotz stundenlangem Suchen nichts im Netz gefunden wie man eine zweite (oder mehr) COM-Schnittstelle öffnet und die Daten empfängt.
By the way, wenn wir gerade dabei sind - warum muss das ausgerechnet MSComm21 heissen und nicht z.B. MSComm1 ?
Danke schon mal
Hobi
eine COM-Schnittstelle unter Excel ansprechen und empfangen habe ich am laufen :
Worksheets("T-Fühler").MSComm21.CommPort = 14
Worksheets("T-Fühler").MSComm21.InputLen = 0
Worksheets("T-Fühler").MSComm21.RTSEnable = True
Worksheets("T-Fühler").MSComm21.InputMode = 0 'Text-Mode
Worksheets("T-Fühler").MSComm21.RThreshold = 1
Worksheets("T-Fühler").MSComm21.InBufferSize = 4096
Worksheets("T-Fühler").MSComm21.Settings = "9600,n,8,1"
Worksheets("T-Fühler").MSComm21.PortOpen = True
und
Private Sub MSComm21_OnComm()
Worksheets("T-Fühler").Range("b2") = Worksheets("T-Fühler").Range("b2") + Worksheets("T-Fühler").MSComm21.Input
End Sub
Aber ich weiss nicht und hab auch trotz stundenlangem Suchen nichts im Netz gefunden wie man eine zweite (oder mehr) COM-Schnittstelle öffnet und die Daten empfängt.
By the way, wenn wir gerade dabei sind - warum muss das ausgerechnet MSComm21 heissen und nicht z.B. MSComm1 ?
Danke schon mal
Hobi