用EXCEL打印报表修改

用 EXCEL 打印报表 1 原理 首先根据报表要求 用 INTOUCH 的附件 HISTDATA 软件形成一个有规定数据的 CSV 文件 逗号分隔文件 可用 EXCEL 打开 这个 CSV 文件是英文的 不符合一般报 表的要求 只能提供数据 所以需要另设计一个空的 EXCEL 报表 再将 CSV 文件的数据 复制到报表中 形成完整的报表 通过 INTOUCH 可以自动产生 CSV 再通过 EXCEL 的宏打印报表 可以完成招呼打 印和定时自动打印 如果有多个报表 需要形成多个 CSV 文件和设计多个 EXCEL 报表 2 生成 CSV 文件 Step1 自动生成需要的标记名 在 INTOUCH 开发环境中 将向导库中 趋势 历史趋势向导 HistData 放入窗口 这 将自动形成若干标记名 Tag 有关标记名以 HDW 开头加上它们的 DDE 的 ITEM 命名 这些标记名说明如下 HDWDATADIR 消息型 历史数据文件的目录的路径名 例如 HDWDataDir HTGetLogDirectory HDWDBDIR 消息型 InTouch 标记名字典的目录的路径名 例如 HDWDBDir InfoInTouchAppDir HDWSTARTDATE 消息型 与 DateString相同格式的数据采样开始日期 HDWSTARTTIME 消息型 使用24 小时时钟的HH MM SS 格式的数据采样开始时间 HDWDURATION 消息型 数据时间长度 报表时间总长度 可以用星期 天时 分 秒 等来表示下面是有效的 字符 w 星期 d 天 h 小时 m 分 s 秒 允许 使用小数值例如扩 5s 表示 500 毫秒若只需一个样 本请将 DURATION 设为 0 零 HDWINTERVAL 消息型 采样间隔的时间长度 可以用星期日小时分和秒来表示 例如1W 表示一星期 允许 使用小数值例如用 25d 来表示6小时 有效字符与HDDURATION 相同 注意DURATION 和 INTERVAL 允许的最大时间长 度均为 6 周 这适用于所有请求类型日秒等 例如如果 使用日则最大值为 42 7 天 x 6 周 42 HDWTAGS 消息型 历史数据的标记名列表 报表中需要的标记名 以TagA TagB TagZ 格式输入 此外采样日期和或时 间可以通过使用内部系统标记名 Date 和 Time 来 请求 例如 Date TagA TagB 或 Time TagA TagB 或 Date Time TagA TagB HDWTAGS1 TAGS2 消息型 HDWTAGS 字符串在 WindowViewer 中的长度 可以为131 个字符在Excel 中的长度可以为255 个 字符字符串 可以通过迭加标记名项目Tags1 Tags2 等来延长以适应更长字符串的要求 如果标记名需 附加额外的标记名文本请在字符串末输入一个加号 例如 TAGS Date ProdLevel ProdTemp TAGS1 ReactLevel Temp GasLevel TAGS2 MotorStatus 注意不允许使用重复标记名 每个标记字符串的 最大长度为 512字节 HDWFILENAME 消息型 规定生成的 CSV文件的路径和名称 例如 C INTOUCH HDFILE CSV HDWWRITEFILE 整型 当设置为1 时HistData 会将请求数据写入由 FILENAME 项目名指定的文件 当文件更新 完成后WRITEFILE 会自动重置为0零 STATUS 离散型 显示最后一次操作的状态1 表示成功 0 零表 示出错 ERROR 消息型 包含上次错误说明的字符串 如 STATUS 为1 则显 示无 如STATUS 为 0 零则显示错误消息字 符串 前9个TAG规定数据的内容 HDWWRITEFILE 1是写 CSV文件的命令 最后两个用 于检查错误 例如 下面脚本生成一个日期由StartDate1规定 包括两个标记名PI 101 TI 101 日班 报表 复制 修改一下就可以形成所需的报表 HDWStartDate StartDate1 HDWStartTime 00 00 00 HDWDBDir InfoInTouchAppDir HDWDataDir HTGetLogDirectory HDWFilename C REPORT csv HDWTags Date Time PI 101 TI 101 HDWInterval 1D HDWDuration 8H HDWWRITEFILE 1 上面 Tag 中 有些项需要在生成 CSV 文件之前赋值 其它项一般在设计时已确定 Step2 招呼打印 如果是招呼打印 则可以在 INTOUCH 中开一个窗口输入 HDWStartDate1 HDWStartTime HDWInterval HDWDuration 的参数 并做一个按钮 在动作脚本中给固 定的参数赋值和最后令 HDWWRITEFILE 1 形成的 CSV 文件的例子 Step3 定时自动打印 如果是定时自动打印 则可以建立两个标记名 例如 StartData1 StartTim1 将上次打印 的时间和日期存入中 做为本次 CSV 文件的开始日期和时间 根据规定的打印时间写一个 时间触发的条件脚本 例如 Step4 运行 INTOUCH 检查生成的 CSV 文件 注 注 固定的赋值可以写在 INTOUCH 初始化的脚本中或作为 TAG 的初始值 3 建立 EXCEL 报表 设计一个报表格式 例如 Step2 做一个宏 菜单 工具 宏 录制新宏 起一个宏名 如 mr1 确认 设计一个报表格式 如输入日期 时间等 然后选中空白最左上角单元格 选择菜单中数据 导入外部数据 导入数据 找到对应的 Report 打开后进入选择分隔符号项 点下一步分隔符号选择逗号项 列数据格式常规 点确定后 数据插入到表格中 点停止记录宏 工具 宏中的安全性设为最低 回到报表 打印和保存 报表需要打印时 或另存 报表不需要打印时 停止记录宏 写 VBA 脚本 自动执行宏 菜单 工具 宏 VB 编辑器 双击 ThisWorkBook 在代码区选 WorkBook 在 Private Sub Open 函数中 加入 Run 宏名 Application Quit 关闭 VB 编辑器 返回 Workbook 确定报表的路径和文件名 如 c report1 xls 保 存报表 这样 我们的报表就完成了 一打开这个报表 就会执行宏 然后退出 在调试时 可以迅速按 Atrl Break 键停止宏执行 注 在另存的情况下 在宏中找到另存的路径和文件名 用 date tim 等变量加到文件 名中 出现每次生成报表时插入数据变为两组数据时 工具 宏 宏 编辑 进入 VBA 编 辑界面 RefreshStyle xlInsertDeleteCells 项改为 DeleteCells Step3 用 I