VBA-128位值到128复选框



我需要一些帮助,如何将一些数据从Python脚本传输到我的VBA程序中。我的系统有128个开关,可以打开或关闭(1或0(。在我的python脚本中,我读取了各个开关的值,现在我想将这些数据发送回我的VBA程序,在那里我有128个代表这些开关的复选框。

我目前的进展是在python中对这128个数字进行移位,然后使用128位整数打印回VBA。现在我使用";打印";在python和VBA中,检查shell中的打印——然后我将数据读取为字符串。

现在,我的字符串将具有我的开关的ASCII值(etc 170141183460469231733416685972794376193(

如何将此ASCII字符串转换为有用的内容以单击这些复选框?我计划使用一个循环,运行128次,然后进行

控件("复选框"&Counter(.value=BINARYVALUE[Counter]

其中counter是循环计数器,BINARYVALUE是存储128位二进制值的

谢谢你的帮助!

只需构建并传递这些位的字符串可能会更简单,比如:

Switches = "11111111111111111111101111100000011111111000000000011111111100000011111111111111111111010101111111111111111110000001111111111111"

然后你可以循环这个:

Me.Controls("CheckBox" & Counter).Value = CBool(Mid(Switches, Counter, 1))

最新更新