从串行端口读取到Excel VBA

编程问答 2022-08-16

问题描述

使用我指定的代码，我从com 2端口的精度标度中获取数据。

Open "COM2" For Binary Access Read Write As #1
  'cmnd$ = cmnd$ + Chr(13)      'add [CR] to command string
  'Put #1,cmnd$
  '--------------------------------------------------------
  answer = ""                  'clear response string
  char = Input(1,#1)          'get first character
  While (char <> Chr(13))      'loop until [CR]
    If (char > Chr(31)) Then
      answer = answer + char   'add,if printable char
    Else
      ' Do what ever you like
    End If
    char = Input(1,#1)        'get the next character
  Wend
  Close #1
range("A1") = answer

数据如下

WTST   +500.19  g
WTST   +500.19  g
Zª‚‚rŠÊ:5)ÿWTST   +500.19  g
MQ­ÕÁÁ¹Åİ5)ÿWTST   +500.17  g
“LÒVHøWTUS   +500.16  g
WTST   +500.19  g

我只是想从中获取体重数据，但有时会出现随机字母。如何避免这些随机字母？

代码未循环。该值在您按下按钮时出现。将该值写入页面的A1列中。

“ WTST + 500.19 g”如果附带，请替换“ WTST +”，而“ g”ı将替换字符并提取数据，但它具有上述随机字符。

秤没有坏，刚刚被购买

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

excelexcelserial-portvba