Dim objexcelApp
Set objexcelApp=CreateObject("excel.application")
objexcelApp.visible=True
objexcelapp.workbooks.open"d:\excelexample.xls"
Dim iCurrentRow,i
i=0
iCurrentRow = 1
objexcelapp.cells(iCurrentRow+i, 1).value=ScreenItems("IOField1").OutputValue
i=i+1
objexcelapp.activeworkbooks.save
objexcelapp.workbooks.close
objexcelapp.quit
Set objexcelapp=Nothing
我想把数据做下循环啊?第1个单元格写完数据保存,再次打开写入第2个单元,上面的程序为什么不行,只在同一单元格中显示数据```
最佳答案
你的i作用域仅限于本脚本，其值始终是0.
老问题了，每次写数据前获取第1列的空白行即可。
iBlankLine = oWorkBook.ActiveSheet.Columns(1).Find("").Row '查找第一列的空行
相关问题参考<使用excel记录数据>：
http://www.ad.siemens.com.cn/service/answer/solution.asp?Q_id=23967&cid=1032
提问者对于答案的评价：
恩,了解``````
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc276239.html
微信扫一扫 
支付宝扫一扫 