当前位置：主页 > PLC控制

wincc7.3用Excel如何将每天的测试数据都归在一张表格

请教各位前辈，我用wincc7.3制作了一个测试类的界面，每个产品都有一组测试数据，需要将当天的测试数据汇总到一张表格中，具体如下描述：
界面中有相应io域，存放测试结果、产品编号、用户登录信息等，有一个按钮，要求测试完后点击此按钮，将个IO域中的信息存到一个以当天日期命名的ExCEl文件中的第一行中，各单元格存放各IO域中的数据，测下一个产品时，再次点击此按钮，数据存到这张表格的第二行，以此类推。请问有这样脚本功能吗？
我现在的脚本功能是生成一个以产品编号命名的Excel文件，这样的结果是每天要测多少个产品就要生成多少个Excel文件，做数据分析就比较麻烦，故请教各位前辈。

最佳答案

DimExcelApp
DimExcelBook
DimExcelSheet

Dimi”用于检查哪一行未写入数据

Dimfso
Setfso=CreateObject("Scripting.FileSySTemObject")

Iffso.FileExists("C:\tmpProj\1.xlsx")Then
”今天生成的文件存在
SetExcelApp=CreateObject("Excel.Application")
SetExcelBook=ExcelApp.Workbooks.Open("C:\tmpProj\1.xlsx")
SetExcelSheet=ExcelBook.Sheets.Item("Sheet1")

//检查哪一行开始没有数据
DoWhileExcelSheet.Cells(i,1).Value<>""
i=i+1
Loop

ExcelSheet.Cells(i,1).Value="test"

ExcelBook.Save
ExcelBook.Close
ExcelApp.Quit

SetExcelBook=Nothing
SetExcelApp=Nothing
Else
”今天生成的文件不存在
SetExcelApp=CreateObject("Excel.Application")
SetExcelBook=ExcelApp.Workbooks.Open("C:\tmpProj\Model.xlsx")
SetExcelSheet=ExcelBook.Sheets.Item("Sheet1")

ExcelSheet.Cells(1,1).Value="test"

ExcelBook.SaveAS"C:\tmpProj\1.xlsx"
ExcelBook.Close
ExcelApp.Quit

SetExcelBook=Nothing
SetExcelApp=Nothing
EndIf