请教各位前辈，我用wincc7.3制作了一个测试类的界面，每个产品都有一组测试数据，需要将当天的测试数据汇总到一张表格中，具体如下描述：
界面中有相应IO域，存放测试结果、产品编号、用户登录信息等，有一个按钮，要求测试完后点击此按钮，将个IO域中的信息存到一个以当天日期命名的Excel文件中的第一行中，各单元格存放各IO域中的数据，测下一个产品时，再次点击此按钮，数据存到这张表格的第二行，以此类推。请问有这样脚本功能吗？
我现在的脚本功能是生成一个以产品编号命名的Excel文件，这样的结果是每天要测多少个产品就要生成多少个Excel文件，做数据分析就比较麻烦，故请教各位前辈。
最佳答案
Dim ExcelApp
Dim ExcelBook
Dim ExcelSheet
Dim i ”用于检查哪一行未写入数据
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists("C:\tmpProj\1.xlsx") Then
”今天生成的文件存在
Set ExcelApp = CreateObject("Excel.Application")
Set ExcelBook = ExcelApp.Workbooks.Open("C:\tmpProj\1.xlsx")
Set ExcelSheet = ExcelBook.Sheets.Item("Sheet1")
//检查哪一行开始没有数据
Do While ExcelSheet.Cells(i,1).Value <> ""
i = i + 1
Loop
ExcelSheet.Cells(i, 1).Value = "test"
ExcelBook.Save
ExcelBook.Close
ExcelApp.Quit
Set ExcelBook = Nothing
Set ExcelApp = Nothing
Else
”今天生成的文件不存在
Set ExcelApp = CreateObject("Excel.Application")
Set ExcelBook = ExcelApp.Workbooks.Open("C:\tmpProj\Model.xlsx")
Set ExcelSheet = ExcelBook.Sheets.Item("Sheet1")
ExcelSheet.Cells(1, 1).Value = "test"
ExcelBook.Saveas "C:\tmpProj\1.xlsx"
ExcelBook.Close
ExcelApp.Quit
Set ExcelBook = Nothing
Set ExcelApp = Nothing
End If
提问者对于答案的评价：
常驻内存的EXCEL文件读写
http://www.ad.siemens.com.cn/club/bbs/post.aspx?a_id=1345308&b_id=5&s_id=17&num=24#anch
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc138983.html
微信扫一扫 
支付宝扫一扫 