A. 数据交换功能

为了进一步方便管理者对煤与瓦斯突出信息的管理与控制，满足日常工作中统计报表等管理工作需要，在实现数据交换功能时，系统应用 VBA 技术，使系统数据可以跨越多种应用软件，并且可以控制应用软件对象，使特定数据转换到特定的应用软件上去，如系统中的数据直接可以导出到 Word，Excel，使工作人员可以应用这些软件强大的编辑、数据分析功能，对现场数据进一步分析，挖掘其内涵。系统调用 Excel 程序如下:

Dim objexcel as Excel. application / / 定义一个变量

Private sub openexcel_click( ) / / 打开 Excel

Set objexcel = New excel_application

Objexcel. workbooks. add

Objexcel. visible = true

Objexcel. displayalerts = true

End sub