Control KMtronic relays via EXCEL


KMtronic USB One Relay Microsoft Excel Control


Download example file from:

     Only for 32bit OS!

For 64 bit OS download this example:



Copy 'NETComm.ocx' and 'MSCOMM32.OCX' to C:\Windows\System 


Open Command Prompt:  Start ->type cmd in search field -> press Enter


Type "regsvr32 C:\Windows\System\NETComm.ocx" and ENTER

Type "regsvr32 C:\Windows\System\MSCOMM32.OCX" and ENTER



Control KMtronic relays via EXCEL



Open "KMtronic-Excel-USB-Relay-Example.xls" and "Enable Macros"


Control KMtronic relays via EXCEL


Set COM port and type "1" A1 cell


Control KMtronic relays via EXCEL




Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If IsNumeric(Target) Then
On Error Resume Next
On Error GoTo 0
End If
End If
End Sub

Private Sub UserForm_Activate()
MSComm1.CommPort = Sheets("Sheet1").Range("F1").Value
MSComm1.PortOpen = True
MSComm1.Output = Chr$(255) + Chr$(1) + Chr$(Sheets("Sheet1").Range("A1").Value)
MSComm1.PortOpen = False
Unload UserForm1
End Sub










Read 25280 times