数据交换功能
发布网友
发布时间：2022-04-25 01:15
共1个回答
热心网友
时间：2023-10-19 03:47
为了进一步方便管理者对煤与瓦斯突出信息的管理与控制，满足日常工作中统计报表等管理工作需要，在实现数据交换功能时，系统应用 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
