用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: 用INTOUCH打开报表

在INTOUCH的相应脚本中加一条语句：

StartApp \"C:\\Program Files\\Microsoft Office\\Office11\\excel.exe c:\\report1.xls\"; 这里c:\\report1.xls是报表的路径和文件名 附：

一步步导入.CSV文件指导