f818data = dderequest（rsichan， “f8:18”）

　　f817data = dderequest（rsichan， “f8:17”）

　　f820data = dderequest（rsichan， “f8:20”）

　　f821data = dderequest（rsichan， “f8:21”）

　　f822data = dderequest（rsichan， “f8:22”）

　　f823data = dderequest（rsichan， “f8:23”）

　　f824data = dderequest（rsichan， “f8:24”）

　　varresults = dderequest（rsichan， “f8:25”）

　　ddeterminate （rsichan）

　　cells（lngrow， 1）.value = f810data

　　cells（lngrow， 2）.value = f811data

　　cells（lngrow， 3）.value = f812data

　　cells（lngrow， 4）.value = f816data

　　cells（lngrow， 5）.value = f818data

　　cells（lngrow， 6）.value = f817data

　　cells（lngrow， 7）.value = f820data

　　cells（lngrow， 8）.value = f821data

　　cells（lngrow， 9）.value = f822data

　　cells（lngrow， 10）.value = f823data

　　cells（lngrow， 11）.value = f824data

　　cells（lngrow， 13）.value = now（）

　　end if

　　end sub

　　在vb中实现调用excel后台数据库

　　因为前期已经实现了vb与plc的通讯可以实时看到数据的状态了，随后又实现了excel与plc的通讯也可以实时看到数据的状态，但这两种方法都有其局限性：前者可看、可控但因无数据库无法实现数据的存储，后者可看、可查但因无可执行程序无法实现可控。只有二者结合在一起才能扬长避短充分发挥功效。于是在vb中实现调用excel后台数据库这种方式就应运而生了，这种方式即充分发挥了vb可控的一面又实现了excel对数据的强大处理能力可以说上位机真正实现了对plc可看、可查、可控的功能。vb与excel的连接方法如下：

　　（1）在工程中引用microsoft excel类型库：从“工程”菜单中选择“引用”栏；选择microsoft excel 9.0

　　object library（excel2000），然后选择“确定”。表示在工程中要引用excel类型库。

　　（2）在通用对象的声明过程中定义excel对象：

　　dim xlapp as excel.application

　　dim xlbook as excel.workbook

　　dim xlsheet as excel.worksheet

　　（3）在程序中操作excel表常用命令：

　　set xlapp = createobject（“excel.application”） `创建excel对象

　　set xlbook = xlapp.workbooks.open（“文件名”） `打开已经存在的excel工件簿文件

　　xlapp.visible = true `设置excel对象可见（或不可见）

　　set xlsheet = xlbook.worksheets（“表名”） `设置活动工作表

　　xlsheet.cells（row， col） =值 `给单元格（row，col）赋值 (责任编辑：admin)