access to com port from Excel VBA?

Is it possible to read/write to COM port from VBA modul from Excel?
TWA.
Oleg Korsak
omk@iname.com
LVL 2
omkAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
kamallConnect With a Mentor Commented:
This is a sample code:
Put one COM control, 2 text boxes, and one commend button on your form, and enter this code in the command1_Click event:
(This code sends command to the modem and gets the reply. Run the project and enter the modem command in Text1 box and click the command button)

Private Sub Command1_Click()
Comm1.PortOpen = True
Text2.Text = "WAIT..."

    ' Flush the input buffer.
    Comm1.InBufferCount = 0
    Comm1.OutBufferCount = 0
    'Send command
    Comm1.Output = Text1.Text + Chr(13)
   
    ' Wait for 5 seconds for answer to come back from the modem.
    x = Timer
    Do
       dummy = DoEvents()
       ' If there is data in the buffer, then read it.
       If Comm1.InBufferCount Then
          FromModem$ = FromModem$ + Comm1.Input
       End If
    Loop Until Timer = x + 5
Text2.Text = FromModem$

Comm1.PortOpen = False
End Sub


0
 
kamallCommented:
If you have the MSCOMM control in the toolbox, you can access the COM port.
I can give you the VB code.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.