基于VBA的DDE多位号报警系统的实现.pdfVIP

研究与 从 FIX7．0的手册 中找到 DDE调用 的具体格式为 ：= 程序初始化赋值 dmddeIdataINode．TI314．F—CV，这里 Node代表 FIX系统中 设定好用来 区别各个工厂 的节点名称 。通过调用 ，Excel 取出变量r 延时 1周期 可 以取 出任意需要的条件数据做进一步 的VBA运算 。VBA 中软件设计流程 图如 图2所示 ，下面列 出了用来定时运算 墨 ，监控 否 保存当前值为先前值 数据的VBA程序语句 。 Sub auto— open () 把r赋为当前值 Sheet1．Range (B‘‘R6：CB100”) ．Clear Sheet1．Range (H‘‘6：BO100”)．Clear 当前值与先前值计算得出斜率K Sheet1．Range (“ch6：ch100”)．Clear 是 Callmntimer打开文档时 自动运行 查 ． EndSub Subruntimer() 图2 VBA中软件设计流程图 Application．OnTimeNow 十TimeValue (“00：00：10”) “ saveit” Sheet1．Cells (4，68)=TimeValue (Now ()) EndSub l T由Iaalrm1oOUI O 4 1 5 ＆} $ 1丹钟 3分钟 #结果擐警? S s62P 瑚{4 1 3 即 1 72 72 72 0 Subsaveit() 7 $G2PL4R566 加 10 明 2 210 130 朗 3 苜 ／， 一／$ m1=Sheet1．Cells (2，1) 图 3 工厂运行成功 Excel监控表 =、、 撼 Form = 1Toml 根据数据走 向判断是否报警 VBA程序很容易判 断斜率异常 ，能够提前在黄线标注时进 C (m) =0