Im slowly wórking through a sité, a number óf MicroSoft Knowledge Basé articles, and codé samples providéd by Expert Exchangé members, to gét started writing actuaI subroutines. Now that I am familiar with the controller protocol, Im moving on to VBA code. The controller résonds with an acknowIedge symbol, a négative acknowledge symbol, ór numeric data. The body óf PC transmissions máy have 1- or 2-letter commands, sometimes followed by numeric parameters.

Excel Vba Serial Port Mscommlib Free Trial DownloadĬommands from the PC begin with a start of text character and end with a carriage return.Įxcel, VB macró, MSCOMM and stándard user excel vbá excel-vba.

For example if you want to write to cell A1 of whatever the active sheet is: ActiveSheet.Range('A1').Value = ToHexString(buf) If you want that output to a cell, you need to get a Range object from a specific Worksheet. Now you can do Debug.Print ToHexString(buf) and that should yield the expected output. 'return the joined hex-bytes array, using a space to separate the individual hex-bytes 'store the hex representation of the byte at index i into our hex-bytes array ReDim bytes(LBound(buffer) To UBound(buffer)) 'an array that's sized exactly the same as the buffer array. 'by sizing from LBound(buffer) to UBound(buffer), we get 'first allocate/size a dynamic array to hold our results 'note: buffer array is wrapped in a Variant, could be passed ByVal Something like this: Private Function ToHexString(ByRef buffer As Variant) As String What you need is to iterate the bytes in the array, use the Hex function to get the hexadecimal representation of each byte, and concatenate them into a legible string. You're getting a byte array, which as far as VBA is concerned, is indistinguishable from a string - that's the only reason Debug.Print buf isn't throwing a type mismatch error - because any other array simply has no way to represent itself as a string, so you can't debug-print an array. 'Use this to send data to the remote deviceĮxpected results: AA 00 00 22 00 03 00 00 03 2B 01 E1 35 'Use this to connect and set the port properties from the codeĭebug.Print StrokeReader1.ErrorDescription

Private Sub StrokeReader1_CommEvent(ByVal Evt As StrokeReaderLib.Event, ByVal data As Variant)īuf = (StrokeReader1.Read(Text)) 'Use BINARY to receive a byte array I cannot get it to show anything in an excel cell either. I have tried some VBA extensions, but they were all paid for, have tried some terminal tools as well. I have tried various sets of tools, but none show me any results in Excel. The resultant input needs to be put in a cell in Excel, and converted to hex.

I am pushing a set of bytes from an external device to a COM port.

Excel vba serial port mscommlib