用VBS实现WINCC的用户归档输出到EXCEL表格的方法和例

用 VBS实现 WINCC的用户归档输出到 EXCEL表格的方 法和例 2009 12 30 16 47 45 用 VBS实现 WINCC的用户归档输出到 EXCEL表格的方法和例子程序 求用 VBS实现 WINCC的用户归档输出到固定格式的 EXCEL表格的方法和例子程 序 我主要问题在 SQL数据库的查询语句不会 看见论坛里有关用 VBS实现 EXCEL的数据查询和导出 我现在想要完成如下功 能 每分钟将数据归档 用户可以输入任意的时刻时间查询从任意时刻开始的 之后每隔 1小时的数据 有点像日报里的 24个小时 我现在对于 VBS查询数 据库的语句不懂 望大大赐教 谢谢 SQL查询语句 Dim strc as string strc provider WinCCOLEDBProvider 1 catalog CC RebdI 09 06 22 10 3 8 35R data source ComputerName WinCC 这个连接字符串可以在 SQl2000中看到 Dim cc1 Set cc1 CreateObject adodb connection cc1 ConnectionString strc cc1 CursorLocation 3 cc1 open Dim rst As Object Set rst CreateObject adodb recordset dim ssql as string ssql Tag R Archive 3 DB1DBD0 2009 7 29 00 00 00 0000 2009 7 29 23 59 59 999 timestep 3600 258 Archive 3 I DB1DBD0归档和变量 2009 7 29 00 00 00 0000 2009 7 29 23 59 59 999时间段 timestep 3600 258每阁多少秒拿一个数据 3600 1 小时 258 表示每个时间段取最后一个数据 rst Open ssql cc1 这样查出来的数据就是一天的每小时的数据 对 rst记录集处理就可以得到你要的数据 Function action Dim objExcelApp Dim i TimeM TimeNow TimeS Set TimeM HMIRuntime Tags TimeM i 1 TimeM Read TimeNow CStr Year Now pragma code pragma code Shell32 dll 调用动态链接库 VOID ShellExecuteA HWND LPCTSTR LPCTSTR LPCTSTR LPCTSTR INT pragma code char FileName 30 char DateTime 30 SYSTEMTIME sysTime object pExcel NULL 建立 pExcel 指针 用来对 EXCEL 进行操作 HWND handle NULL handle FindWindow NULL WinCC 运行系统 GetLocalTime sprintf FileName d Day Report 02d 02d 02d xls sysTime wYear sysTime wMonth sysTi me wDay pExcel object create Excel Application pExcel Visible 0 控制生成的 excel 文件是否可见 当 1 时 生成 excel 文件时可见 pExcel Workbooks Open d Day Report XLS pExcel ActiveWorkbook SaveAs FileName 存盘 pExcel ActiveWorkbook PrintPreview 可以预览 pExcel ActiveWorkbook PrintOut 直接打印 pExcel Workbooks Close 关闭文件 pExcel Quit 退出 Excel object delete pExcel return 0 3 再写一个全局脚本 整点触发 把你需要记录的变量写到 Day Report 年月 日 xls 相应的单 元格里面并存盘 这样就完成了报表的数据存储和打印 也就是说 我们可以 在电脑里面存放一份报 表 并打印一份报表 同样也实现了数据的存储 相关脚本代码如下 当时是以分钟来做测试的 仅供参考 注意此段代码缺 少对其它 excel进程的 判断 在此脚本执行前 不要有其它 excel应用 切记哦 呵呵 include apdefap h int gscAction void int i pragma code kernel32 dll 调用动态链接库 VOID GetLocalTime LPSYSTEMTIME lpSystemTime pragma code pragma code Shell32 dll 调用动态链接库 VOID ShellExecuteA HWND LPCTSTR LPCTSTR LPCTSTR LPCTSTR INT pragma code char FileName 30 SYSTEMTIME sysTime object pExcel NULL 建立 pExcel 指针 用来对 EXCEL 进行操作 HWND handle NULL handle FindWindow NULL WinCC 运行系统 GetLocalTime SetTagWord Minute sysTime wMinute i GetTagWord Minute 3 if i 26 GetTagWord Minute else if iVisible 0 控制生成的 excel 文件是否可见 当 1 时 生成 excel 文件时可见 pExcel Workbooks Open FileName pExcel Worksheets sheet1 Range X1 Value GetTagChar ServerName Return Typ e char 读取当前计算机名 pExcel Worksheets sheet1 Range X2 Value GetTagChar CurrentUser Return Ty pe char 读取当前操作员 pExcel Worksheets sheet1 Cells 6 i Value GetTagChar TAG1 pExcel Worksheets sheet1 Cells 7 i Value GetTagFloat TAG2 pExcel Worksheets sheet1 Cells 8 i Value GetTagFloat TAG3 pExcel Worksheets sheet1 Cells 9 i Value GetTagFloat TAG4 pExcel Worksheets sheet1 Cells 10 i Value GetTagFloat TAG5 pExcel Worksheets sheet1 Cells 11 i Value GetTagFloat TAG6 pExcel ActiveWorkbook Save As FileName 存盘 pExcel ActiveWorkbook PrintPreview 可以预览 if i 27 pExcel ActiveWorkbook PrintOut 直接打印 pExcel Workbooks Close 关闭文件 pExcel Quit 退出 Excel object delete pExcel return 0 转自亿万论坛