Excel

2024-07-03 23:10| 来源: 网络整理| 查看: 265

Excel 作为数据统计的神奇，能非常方便的筛选和生成各种数据串口作为嵌入式的常见接口，是个板子都会用到

将二者结合起来使用，

方便直观的生成数据在Excel中点击即可通过串口发送在Excel中点击即可从串口读回数据 -0- 目录 -1- 缘由

Excel 作为数据统计的神奇，能非常方便的筛选和生成各种数据串口作为嵌入式的常见接口，是个板子都会用到

将二者结合起来使用，

方便直观的生成数据在Excel中点击即可通过串口发送在Excel中点击即可从串口读回数据 -2- 实现路径

在实现上，我绕过了用vba底层实现串口读写，采用更熟悉的编程语言生成串口读写 exe，在通过 Excel vba 调用 cmd 运行底层 exe。

这样的实现，相当于可以调用任一语言平台打包的 exe，在 exe 中封装底层，为实现更丰富的功能留下可能。

-3- 实现细节-3.1- Excel文件的区别选择 Excel 后缀为 xlsm 支持宏的文件格式 alt + F11 打开 vba 编程面板 -3.2- 底层exe实现这里实现一个最简单串口发送数据我自己选择的实现平台是 C# net4.0 32bit net4.0 默认支持win7 （目前没有布置win7环境来测试）我对 c# 相对要熟悉一些这里加了些编程内容对串口配置以xml文件的形式保存，在每次点击的时候读入配置，这样的实现只在excel点击时候占用串口封装了查找当前目录的实现封装了串口配置的序列化和反序列化对串口open失败的可能做了处理，但没有打印失败信息，为从串口读值留下打印信息

代码实现

1234567891011121314151617181920212223242526272829class Program{ private static MySerialPort _serialPort; private static ServiceConfigModel _serviceConfigModel; static void Main(string[] sss) { byte[] result = CommonTool.HexStringToByteArray(sss[0]); if (result == null) { return; } string path = CommonTool.GetDirectory() + @"\ConsoleAppConfig.xml"; _serviceConfigModel = new ServiceConfigModel(); _serviceConfigModel = SerializeTool.ReadXML(path); _serialPort = new MySerialPort(); _serialPort.ConfigService(_serviceConfigModel.PortName, _serviceConfigModel.ConfigDates); try { _serialPort.Open(); _serialPort.Write(result, 0, result.Length); _serialPort.Close(); } catch { _serialPort = null; // 其实这个没必要，当总要放点啥在这才安心 } }}

代码就是一个很简单的控制台程序

-3.3- Excel的命令行调用

这个实现是对比了几种实现，搜了好一通才找到了，目前这种实现基本满意，唯一的不好的地方是 cmd 窗口会弹一下，目前把它当成有没有成功调用的提醒

在 excel vba 中添加一个模块，注意是添加一个模块键入以下内容

12345678910111213141516171819202122232425262728293031Public Sub SendStringNoRead(abc As String) Dim strProgramName As String strProgramName = Application.ActiveWorkbook.Path & "\ConsoleApp.exe " & abc ShellRun (strProgramName)End Sub'网上搜到的实现Public Function ShellRun(sCmd As String) As String 'Run a shell command, returning the output as a string Dim oShell As Object Set oShell = CreateObject("WScript.Shell") 'run command Dim oExec As Object Dim oOutput As Object Set oExec = oShell.Exec(sCmd) Set oOutput = oExec.StdOut 'handle the results as they are written to and read from the StdOut object Dim s As String Dim sLine As String While Not oOutput.AtEndOfStream sLine = oOutput.ReadLine If sLine "" Then s = s & sLine & vbCrLf Wend ShellRun = sEnd Function

SendStringNoRead这个函数的功能是

接收单击单元格的值-就是输入参数给出 exe 的路径并把命令行参数拼上去调用函数 ShellRun 实现exe执行 -3.4- Excel单击发送的实现在对应的 Sheet对象上双击选择 Worksheet 中的 SelectionChange

键入下面的代码

123456789Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 11 Then If Target.Count = 1 Then If Target.Value "" Then SendStringNoRead (Target.Value) End If End If End IfEnd Sub

要解释一下，这几个if

Target.Column = 11 选择的第11列 Target.Count = 1 筛出单个格子点击的情况 Target.Value “” 单个格子的内容不为空

tip:这里有个地方，命令行是以空格分割参数的，我不想再往字符串上加双引号，所以Excel生成的命令不能有空格(这个可以在 Excel 中观察到)

-4- 往后的方向加入可配置的读串口加入 modbus 协议等等，待更新 -5- 测试指南

建议先通过虚拟串口，用命令行中测试 exe 能否使用

假设有两个直连的串口 COM2 COM1

在命令行中

123//xml中配置 COM2>ConsoleApp.exe A55A0582036B0001>_

在另一个串口调试器中连接 COM1

1[10:28:27.789]收←◆A5 5A 05 82 03 6B 00 01

测试文件下载 – 文件是在实际的文件中简化的，所有不用奇怪 Excel 的空格另外有异常报告可以留言

test.zip

【本文地址】

公司简介

联系我们