报表疑问解答

《报表疑问解答》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、报表疑问解答报表疑问解答　　两个问题　　1、WINCC生成的报表是按照时间保存的，我想在画面上做个查询，输入时间（日期），能自动打开对应名称的EXCEL文件　　2、每半个小时将画面上所显示的几个输入输出域的显示值写入EXCEL对应的格内，也就是没半个小时归档一次变量，然后写入。　　求这两个问题的VB程序.　　　　问题补充：　　还有一个就是我在计算机中勾选了全局脚本，当激活项目后全局脚本中的程序会自动运行吗？如果不会，怎么让全局脚本在激活项目时自动运行编好的程序　　　　最佳答案　　　　　　　　　　　　　　　　　　　　1、WINCC生成的报表是按照时间保存的，我想在画面上做个查询，

2、输入时间（日期），能自动打开对应名称的EXCEL文件　　转帖：　　我工程中的一个例子，按输入的日期查询Excel表中的相应的行，然后从该行开始（共20行）读入到WinCC中的显示表中。　　　　”“inquirytheRowNo.accordingtotherequireddate　　DimobjExcelApp,oWorkBook　　DimoFindRowNo,vDate,oVar,i,j　　OnErrorResumeNext　　SetobjExcelApp=CreateObject(“Excel.Application”)　　objExcelApp.Visible=False

3、　　SetoWorkBook=objExcelApp.Workbooks.Open(“d:GuangXi_001OwnWorkDATA_Table_V1201.xls”)　　　　vDate=ScreenItems(“Acquisition_Date”).OutputValue　　oFindRowNo=oWorkBook.ActiveSheet.Columns(13).Find(“*”&vDate).Row　　”“accordingtoexceldateformat,prefix”*”needed　　IfCStr(oFindRowNo)=““Then　　MsgBox(“Notfi

4、nd?pleasetryanotherdateagain!!!”)　　Else　　”“MsgBox(“Continue?RowNo.=“&oFindRowNo)　　ScreenItems(“Excel_TableBeginRowNo”).OutputValue=oFindRowNo　　”“readdatafromExcelandwritetoWinCCScreenI/Ofields　　Fori=1To20　　Forj=1To14　　oVar=“Production_Data_Table_Row”&CStr(i)&”.Column_”&CStr(j)　　HMIRuntime.Sm

5、artTags(oVar).value=objExcelApp.Cells(oFindRowNo+i-1,j).Value　　Next　　Next　　ScreenItems(“Excel_TableCurrentRowNo”).OutputValue=oFindRowNo+19　　EndIf　　　　objExcelApp.Workbooks.Close　　objExcelApp.Quit　　SetobjExcelApp=Nothing　　SetoWorkBook=Nothing