admin 管理员组

文章数量: 1086019


2024年4月30日发(作者：如何判断一个序列是堆)

1

给wincc中通过vbs写excel的方式做报表的初学者一点脚本

我对该帖子不做任何限制，都可以自由拷贝使用。方便初学者学习！

//log子程序，40个数据记录，总共记录一周时间，写入excel，放到wincc

全局脚本中一分钟运行一次

//如果是要整点报表也简单，判断一下当前的系统时间，t的初始值根据当前

时间定义。

//本程序主要是演示数据记录的过程。

//在c:建立一个excel文件，该文件可以是你的报表模版

Option Explicit

Function action

Dim objExcelApp,objExcelbook,objExcelSheet

Dim tagshijian,sheetname,username,zhushi

Dim tagday

Dim a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a1

8,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a3

5,a36,a37,a38,a39,a40

1

Dim i,j,t,count

Dim msg

Dim patch,fn

Dim d,m,y,oh,mm,ss

d=" "

m="-"

y="-"

oh=":"

mm=":"

ss=""

msg="记录报表成功"

fn=CStr(Year(Now))&CStr(Month(Now))&CStr(Day(Now))

patch="c:"&fn&".xls"

Set a1=("a1")

Set a2=("a2")

Set a3=("a3")

Set a4=("a4")

Set a5=("a5")

2


本文标签： 记录 报表 初学者 数据 判断

版权声明：本文标题：最新wincc生成excel 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/p/1714451241a680690.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。