admin管理员组文章数量:1537090
2024年6月20日发(作者：)
VB是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一但报表格式发生变化，就得相应
修改程序，给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表
功来实现报表功能。但由于VB与EXCEL由于分别属于不同的应用系统，如何把它们有机地结合在一起，是
一个值得我们研究的课题。
一、 VB读写EXCEL表：
VB本身提自动化功能可以读写EXCEL表，其方法如下：
1、在工程中引用Microsoft Excel类型库：
从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000），然后选择"
确定"。表示在工程中要引用EXCEL类型库。
2、在通用对象的声明过程中定义EXCEL对象：
Dim xlApp As ation
Dim xlBook As ok
Dim xlSheet As eet
3、在程序中操作EXCEL表常用命令：
Set xlApp = CreateObject("ation") '创建EXCEL对象
Set xlBook = ("文件名") '打开已经存在的EXCEL工件簿文件
e = True '设置EXCEL对象可见（或不可见）
Set xlSheet = eets("表名") '设置活动工作表
(row, col) =值 '给单元格（row,col）赋值
(i, 1).ndex = i'设计单元格颜色i=1--56
ut '打印工作表
(True) '关闭工作簿
'结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
oMacros (xlAutoOpen) '运行EXCEL启动宏
1
oMacros (xlAutoClose) '运行EXCEL关闭宏
自己用代码就可以获取颜色列表了
Sub yansecode()
For i = 1 To 56
(i, 1) = i
(i, 1).ndex = i
Next
End Sub
4、在运用以上VB命令操作EXCEL表时，除非设置EXCEL对象不可见，否则VB程序可继续执行其它操
作，也能够关闭EXCEL，同时也可对EXCEL进行操作。但在EXCEL操作过程中关闭EXCEL对象时，VB程序无
法知道，如果此时使用EXCEL对象，则VB程序会产生自动化错误。形成VB程序无法完全控制EXCEL的状况，
使得VB与EXCEL脱节。
二、 EXCEL的宏功能：
EXCEL提供一个Visual Basic编辑器，打开Visual Basic编辑器，其中有一工程属性窗口，点击右键
菜单的"插入模块"，则增加一个"模块1"，在此模块中可以运用Visual Basic语言编写函数和过程并称之为
宏。其中，EXCEL有两个自动宏：一个是启动宏（Sub Auto_Open()），另一个是关闭宏（Sub Auto_Close()）。
它们的特性是：当用EXCEL打含有启动宏的工簿时，就会自动运行启动宏，同理，当关闭含有关闭宏的工作
簿时就会自动运行关闭宏。但是通过VB的自动化功能来调用EXCEL工作表时，启动宏和关闭宏不会自动运
行，而需要在VB中通过命令oMacros (xlAutoOpen)和oMacros (xlAutoClose)
来运行启动宏和关闭宏。
三、 VB与EXCEL的相互勾通：
充分利用EXCEL的启动宏和关闭宏，可以实现VB与EXCEL的相互勾通，其方法如下：
在EXCEL的启动宏中加入一段程序，其功能是在磁盘中写入一个标志文件，同时在关闭宏中加入一段删
除此标志文件的程序。VB程序在执行时通过判断此标志文件存在与否来判断EXCEL是否打开，如果此标志文
件存在，表明EXCEL对象正在运行，应该禁止其它程序的运行。如果此标志文件不存在，表明EXCEL对象已
2
版权声明：本文标题：excel表格中vb应用实例1 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://m.elefans.com/xitong/1718828321a730435.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论