求分享个思路

cyl2735127272

流水线生产，需要打印标签粘贴至每个件上。在生产线上部署一个感应器用于给电脑传递信号，每当一个件通过这个感应器，就会给电脑发送一个信号，那么VBA如何去接收这个信号，然后调取打印呢？

cyl2735127272

跪求大佬分享一下思路

于箱长

参考一下扫描枪获取的数据在EXCEL中的应用

tanglf188

给电脑的信号无非是文件记录啊，用VBA读取该文件判断一下就行了。

cyl2735127272

于箱长 发表于 2023-3-23 09:45
参考一下扫描枪获取的数据在EXCEL中的应用

谢谢大神的回复，扫描枪传递的值能够被电脑直接记录到EXCEL内，但是开关信号（假设传递信号为1和0,检测到1就开始打印，0不做反应）好像不可以；另外就是扫码枪有一个人为去触发（扫码）的行为，但是感应器就需要程序一直运行检测信号值，这种实时获取数据的方式我在网络上搜索了也没有结果

cyl2735127272

tanglf188 发表于 2023-3-23 09:46
给电脑的信号无非是文件记录啊，用VBA读取该文件判断一下就行了。

谢谢回复；如果是文件记录，那么它会一直传递信号，一直往文件里写入，我VBA如何实现实时去读取文件记录呢？（假设流水线每10S都会有一个件通过感应器，那么感应器每隔10S就会给电脑传递一次信号，VBA也要随时检查这份文件是否产生新的信号吗？）

wanghan519

手机装个ip webcam pro，开启动作检测，设置检测到动作就拍照，或结合tasker或termux给电脑发http请求，电脑上随便用啥语言开个web服务，然后触发Excel的方式就多了，0成本，多年前就有用来拍摄昙花的

于箱长

cyl2735127272 发表于 2023-3-23 09:55
谢谢大神的回复，扫描枪传递的值能够被电脑直接记录到EXCEL内，但是开关信号（假设传递信号为1 ...

那要是结合单元格变动触发事件呢？满足值为1的时候调取数据进行打印，不为1的时候略过呢

mmwwdd

可以使用VBA中的事件处理程序来接收感应器传递的信号，然后调用打印机进行打印。
首先，需要在VBA中创建一个事件处理程序，代码如下：

plaintext
Copy code
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    '检测感应器传递的信号
    If Target.Address = "$A$1" Then
        '调用打印机进行打印
        ActiveSheet.PrintOut
    End If
End Sub

在上面的代码中，Workbook_SheetChange是一个事件处理程序，它会在工作表中的单元格发生变化时触发。在事件处理程序中，首先检测感应器传递的信号，如果感应器传递的信号对应的单元格为A1，则调用打印机进行打印操作。
需要注意的是，上述代码只是一个示例，具体的实现方式需要根据实际情况进行调整。例如，可以将感应器传递的信号保存在某个单元格中，然后在VBA中读取该单元格的值，根据不同的值来决定是否进行打印操作。


分享

Regenerate response
机器回答

darklesson

你说的串口通信吗？淘宝上花个几十块买个无源1进1出的I/O卡，现成VB6的SDK，拿到手稍微改动即可使用。