两个输入域 一个输入时间 一个输入数值 怎么写脚本把这两个变量存入excel 且自动换行
问题补充：
输完一组 再输下一组的话 怎么实现自动换行
最佳答案
利用vbs脚本，可以制作一个按钮，按钮属性里的动作中鼠标左键下写vbs代码。
例程如下：
Dim objExcelApp
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = 1
objExcelApp.Workbooks.Open "D:\1.xls" ''''填入你的表格的完全路径
dim io1
dim io2
Set io1 = screenitems("输入时间的io域的名字")
Set io1 = screenitems("输入数据的io域的名字")
objExcelApp.Cells(1,1).Value = io1.inputvalue ''单元格（1,1）中写io1的值
objExcelApp.Cells(2,1).Value = io2.inputvalue
''关闭excel表
objExcelApp.Workbooks(1).Close
objExcelApp.Quit
提问者对于答案的评价：
3q
最佳答案作者回复:
如果要换行，可以借助IO域的光标控制（在属性中找），把这个属性开启可以实现输入完一个IO域后光标自动跳入下个io域中，但是注意io的名字，先建的调到后建的io域中。
这个方法比较容易、简单
也可以在io输入后，利用脚本置下个io域为活动。
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc263446.html
微信扫一扫 
支付宝扫一扫