#Modbus macro to send from modbus server install
#Modbus macro to send from modbus server code
#Modbus macro to send from modbus server windows

TxtSource = Val(Str((MbusByteArray(10) * 256) + MbusByteArray(11))) ReturnInfo = returnInfo & Asc(Mid(sBuffer, i, 2)) MbusByteArray(i) = Asc(Mid(sBuffer, i, 2)) Private Sub wsTCP_OnDataArrival(ByVal bytesTotal As Long) Private Sub CommandButton2_Click() ‘ Stop the communicationĬommandButton1.BackColor = “&H8000000F” ‘ Set the default colour MsgBox “Error ” & Err.Number & “: ” & Err.Description ‘0030 The number to put into the register

#Modbus macro to send from modbus server code

’16: The Function Code (read Analog Output Holding Registers) ‘0009: Message Length (6 bytes to follow) ‘0000: The Data Address of the first register ’03: The Function Code (read MHR Read Holding Registers) ‘0006: Message Length (6 bytes to follow) WsTCP.SendData MbusQuery ‘Send out the Modbus Information ‘ If we are connected then request the information. StartTime = Timer ‘ Use the timer to determine if a connection cannot be made ‘ If TCP is not connected, try to connect again. ‘6 sckConnecting connecting to remote host ‘5 sckHostResolved remote host name successfully resolved ‘4 sckResolvingHost resolving remote host name ‘3 sckConnectionPending connection pending ‘2 sckListening listening for incoming connections Set wsTCP = CreateObject(“OSWINSCK.Winsock”) ‘Check to see if the object has been created.

NPort = 502 ‘ See configuration in Do-More Designer Private Sub CommandButton1_Click() ‘ Retrieve Data ‘This example uses OstroSoft Winsock Component Now put the visual basic code in the Sheet1(Sheet1)

Visual Basic Code – Excel VBA for Modbus TCP We can now add the OstroSoft Winsock Component to our application. The Visual Basic Editor window will now be displayed. Select File | Options Select ‘Customize Ribbon’ Check the ‘Developer’ under Main Tabs. If the Developer tab is not present then we must turn on the developer tab. Select ‘Developer’ along with the top tabs. The OstroSoft Winsock Component is now installed. Leave the program group to the default so I know what the program is after installation. Click continue. I use the default directories where the program will be installed.

#Modbus macro to send from modbus server windows

Run the downloaded file from Windows Explorer or command-line NET, Visual Basic 4 or 5, Visual C++, ASP, VBA, VBScript, JavaScript, or any other language, supporting COM:Ģ.

#Modbus macro to send from modbus server install

You will need to download and install the OstroSoft Winsock Component on your computer.įor use with. Works with programming and scripting languages supporting COM. OSWINSCK.dll serves as a wrapper for the Winsock API and helps programmers to abstract from the complexity of API calls and focus on application functionality. Simply Modbus – Modbus TCP Winsock Component – Excel VBA Modbus TCP I will not go into the details of the communication protocol but here are some links to references: You can think of this as a letter being sent and Ethernet TCP/IP acts like an envelope for the Modbus Commands. Modbus TCP does not require a checksum calculation as lower layers already provide checksum protection. The Modbus TCP/IP or Modbus TCP is a protocol that is used for communications over TCP/IP networks. – Winsock API Calls for communication on network Sequence for Modbus TCP on Excel using VBA Previously we have used VB6 to communicate Modbus TCP. Reading ten registers in the PLC and displaying a bar graph in Excel.

We will use Visual Basic for Applications (VBA) to communicate to a PLC using Modbus TCP protocol.