请教,帮忙修改时间

Option Explicit
 Function action
 Dim objExcelAPP
 Dim reportfile
 Dim reportfile1
 Dim reporttime
 Dim index
 Dim j
 Dim i
 index=Hour(Now)
 index=CInt(index)
 reportfile=CStr(Date)
 reporttime=Hour(Now)
 reporttime=CStr(reporttime)
 reportfile=reportfile 
 reportfile1=reportfile
 reportfile="D:\report\" & reportfile & ".xls"
 Dim TEMP_1
 Set TEMP_1 = HMIRuntime.Tags("TEMP_1")
 Dim TEMP_2
 Set TEMP_2 = HMIRuntime.Tags("TEMP_2")
 Dim TEMP_3
 Set TEMP_3 = HMIRuntime.Tags("TEMP_3")
 Dim TEMP_4
 Set TEMP_4 = HMIRuntime.Tags("TEMP_4")
 Dim TEMP_5
 Set TEMP_5 = HMIRuntime.Tags("TEMP_5")
 Dim TEMP_6
 Set TEMP_6 = HMIRuntime.Tags("TEMP_6")
 Dim TEMP_7
 Set TEMP_7 = HMIRuntime.Tags("TEMP_7")
 Dim TEMP_8
 Set TEMP_8 = HMIRuntime.Tags("TEMP_8")
 Dim TEMP_9
 Set TEMP_9 = HMIRuntime.Tags("TEMP_9")
 Dim flow_1
 Set flow_1 = HMIRuntime.Tags("flow_1")
 Dim flow_2
 Set flow_2 = HMIRuntime.Tags("flow_2")
 Dim reportname
 Set reportname = HMIRuntime.Tags("reportname")

 
 TEMP_1.Read 
 TEMP_2.Read 
 TEMP_3.Read 
 TEMP_4.Read 
 TEMP_5.Read 
 TEMP_6.Read 
 TEMP_7.Read 
 TEMP_8.Read 
 TEMP_9.Read 
 flow_1.Read
 flow_2.Read

 Set objExcelAPP=CreateObject("Excel.Application")
 objExcelAPP.Visible=False

 objExcelAPP.Workbooks.Open "D:\report\book1.xls"
 With  objExcelAPP

 If index=0 Then
  For i=5 To 28
    For j= 2 To 12
    .cells(i,j).value=Null 
    Next
  Next
  .cells(2,2).value=Date
 End If
 j=0
 j=index+5
    .cells(j,2).value=TEMP_1.Value 
    .cells(j,3).value=TEMP_2.Value 
    .cells(j,4).value=TEMP_3.Value 
    .cells(j,5).value=TEMP_4.Value 
    .cells(j,6).value=TEMP_5.Value 
    .cells(j,7).value=TEMP_6.Value
    .cells(j,8).value=TEMP_7.Value 
    .cells(j,9).value=TEMP_8.Value 
    .cells(j,10).value=TEMP_9.Value 
    .cells(j,11).value=flow_1.Value 
    .cells(j,12).value=flow_2.Value 
   
 If index=23 Then
     ''.cells(30,3).value=FY1901ACC2.Value
     ''.cells(30,5).value=FY1901ACC1.Value
     ''.cells(30,8).value=FT1908ACC2.Value
     ''.cells(30,10).value=FT1908ACC1.Value
 .ActiveWorkbook.SaveAs reportfile
  reportname.Write  reportfile1
   
 Else
 .ActiveWorkbook.Save
 End If
 .ActiveWorkbook.Close
 .Quit

 End With

 Set objExcelAPP=Nothing
 End Function
 现希望做报表归档,实现定时记录。这是一段往EXCEL表格写变量值的VB程序,如果希望没8分钟记录一次 我该怎么修改?

最佳答案

建一个全局变量保存上次归档时间和系统当前时间比较即可

提问者对于答案的评价:
0
 

原创文章,作者:more0621,如若转载,请注明出处:https://www.zhaoplc.com/plc277420.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2019年6月11日
下一篇 2019年6月11日

相关推荐

  • 打开Step7项目时提示Wincc(Component Object Manager)?

    好像是与Wincc关联的软件包,不知道该怎么修复这个问题。在Step7中找不到OS站了 最佳答案 你的这个项目应该是把PLC和wincc的项目集成在一起了,但是step7中又没有安…

    SIMATIC WinCC 2021年7月5日
  • 博图wincc专业版数据记录

    博图wincc专业版,历史数据记录要记录字符串,有什么好的方案 最佳答案 WinCC Professional V16开始支持字符串类型变量的历史归档http:…

    SIMATIC WinCC 2020年11月1日
  • scout.winccv6.winccflexible能在win7系统下安装吗?

    电脑系统是WIN7,安装scoutV4.2.winccv6.2.winccflexible2008SP2都安装不上,这几个软件什么版本才支持WIN7. 问题补充:我的电脑系统是wi…

    SIMATIC WinCC 2021年7月5日
  • wincc 相同画面 不同设备 有无简单方式

    一个工程有100多个控制单元,每个单元里面的设备数量和控制方式以及布局都是一模一样的。那么是否在制作的时候就是要做100多个PDL画面。能否有简单的方式也考虑过用画面模板,但是好像…

    SIMATIC WinCC 2017年11月1日
  • 关于WINCC与三菱Q系列通讯采集

    目前wincc与三菱Q已通讯上。如果我想采集三菱Q里面的数字量,比如X11A2;这个点位需要做MOVE传送吗?还是直接在wincc里输入X11A2就可以读取了? 最佳答案 可以直接…

    SIMATIC WinCC 2021年7月5日
  • 关于 datamonitor问题

    使用EXCEL读取数据正常,但是用WEB进入不了服务器,总是提示说密码错误,已经按照说明输入的是wincc管理员密码和本机用户密码,还不行。请教。谢谢 问题补充:谢谢网友的回答。&…

    SIMATIC WinCC 2019年6月11日
  • wincc6.2SP2变量导入导出如何操作?

    变量的导出/导入有哪些选项可供选择?https://support.industry.siemens.com/cs/cn/zh/view/22016422导出会导出之后有三个exc…

    2021年7月5日
  • PLC内的变量触发WINCC内的用VB编写的小动画

    怎样使用PLC内部的变量来触发WINCC内用VB编写的小动画,即当PLC内一数字点为1时,动画动作,数字点为0时,动画停止? 最佳答案 不知道你的动画是什么样的,你可以用脚本调用v…

    SIMATIC WinCC 2021年7月5日
  • wincc的图形运行系统

    为什么我的wincc一激活那个系统,图形画面马上被缩小化 最佳答案 项目属性–图形运行系统–窗口属性里面是否勾选了最小化?如果勾选了取消勾选就好了如果需要全盘可以勾选上全屏的,…

    2021年7月5日
  • 关于wincc horn报警..

    我想利用wincc报警器(horn)实现报警..我已经安装此附件。。情况是这样的,我想让我的plc的一个bool变量输出为1时发出声音,然后点击某个按钮进行确认。只有一个bool变…

    SIMATIC WinCC 2019年6月11日