Wincc V7.3用户归档深入5-用vbs将用户归档的内容导出到excelWincc V7.3用户归档深入5-用vbs将用户归档的内容导出到excel我们在用户归档中得到数据之后，如果想导出到excel，思路是和把MSHFGrid数据导出类似的。网上有些文章是直接从后台数据表读取数据，本文介绍从数据归档控件导出数据。1.假设wincc项目已经创建了用户归档，画面上有一个用户归档控件，名字叫做UA，设置一个按钮，按钮点击事件添加以下vbs脚本SubOnClick(ByValItem) DimUA,col,row,rowsDimxlapp,objsheetDimi,j,k,...
Wincc V7.3用户归档深入5-用vbs将用户归档的内容导出到excel我们在用户归档中得到数据之后，如果想导出到excel，思路是和把MSHFGrid数据导出类似的。网上有些文章是直接从后台数据表读取数据，本文介绍从数据归档控件导出数据。1.假设wincc项目已经创建了用户归档，画面上有一个用户归档控件，名字叫做UA，设置一个按钮，按钮点击事件添加以下vbs脚本SubOnClick(ByValItem) DimUA,col,row,rowsDimxlapp,objsheetDimi,j,k,m,n,filenameSetUA=ScreenItems("UA")Setrows=UA.GetRowCollectionm=rows.Countn=UA.ColumnCountIfm>1Then'如果用户归档控件有记录Setxlapp=CreateObject("Excel.Application")xlapp.visible=Falsexlapp.workbooks.addSetobjsheet=xlapp.worksheets(1)Fork=1Tonua.ColumnIndex=kobjsheet.cells(3,k)=ua.ColumnCaption'字段名称Nextobjsheet.cells(1,1)="XX用户归档"Fori=1TomForj=1Tonobjsheet.cells(i3,j)=ua.GetRow(i).celltext(j)NextNext'以下代码处理日期时间数据格式以及表格边框线、标题合并单元格等排版objsheet.range("a1:d1").mergecells=True'objsheet.range("a1").ColumnWidth=20'列宽度objsheet.cells(2,1)="生成时间："objsheet.cells(2,2)=Year(Now)&"年"&Month(Now)&"月"&Day(Now)&"日"objsheet.cells(1,1).HorizontalAlignment=3objsheet.range("a3:d"&CStr(3m)).borders(1).linestyle=9objsheet.range("a3:d"&CStr(3m)).borders(1).weight=2objsheet.range("a3:d"&CStr(3m)).borders(2).linestyle=9objsheet.range("a3:d"&CStr(3m)).borders(2).weight=2objsheet.range("a3:d"&CStr(3m)).borders(3).linestyle=9objsheet.range("a3:d"&CStr(3m)).borders(3).weight=2objsheet.range("a3:d"&CStr(3m)).borders(4).linestyle=9objsheet.range("a3:d"&CStr(3m)).borders(4).weight=2'保存文件filename="c:\"&Year(Now)&"年"&Month(Now)&"月"&Day(Now)&"日-"&Hour(Now)&"点"&Minute(Now)&"分"&Second(Now)&"秒生成用户归档.xlsx"xlapp.Activeworkbook.saveas(filename)xlapp.workbooks.closexlapp.quitMsgbox"成功导出到C:\"ElseMsgbox"用户归档没有记录"EndIfEndSub
本文档为【Wincc V7.3用户归档深入5-用vbs将用户归档的内容导出到excel】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
浙公网安备 33021202002483