如何实现VB与EXCE L的无缝连接
VB是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一但报表格式发生变化，就得相应修改程序，给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经充分利用EXE CL的强大报表功来实现报表功能。但由于V B 与EXC EL分别属于不同的应用系统，如何把它们有机地结合在一起，是一个值得我们研究的课题。
一、V B读写EX CEL表：
VB本身提自动化功能可以读写EXCEL表，其方法如下：
1、在工程中引用Mic rosof t Exc el类型库：
从"工程"菜单中选择"引用"栏；选择Micro softExcel 9.0Objec t Lib rary
（EXCEL2000），然后选择"确定"。表示在工程中要引用E XCEL类型库。
2、在通用对象的声明过程中定义E XCEL对象：
Di m xlA pp As Exce l.App licat ion
D im xl BookAs Ex cel.W orkBo ok
Di m xlS heetAs Ex cel.W orksh eet
3、在程序中操作EXC EL表常用命令：
S et xl App = Crea teObj ect("Excel.Appl icati on")'；创建EXC EL对象
Set x lBook = xl App.W orkbo oks.O pen("文件名") 9；打开已经存在的EX CEL工件簿文件 x lApp.Visib le =True'；设置EXC EL对象可见（或不可见）
Se t xlS heet= xlB ook.W orksh eets("表名") 9；设置活动工作表
x lShee t.Cel ls(ro w,col) =值'；给单元格（row,c ol）赋值
xlSh eet.P rintO ut '；打印工作表
x lBook.Clos e (Tr ue) '关闭工作簿 xlApp.Quit 9；结束EX CEL对象
802.1xSetxlApp = No thing 9；释放xl App对象
xlBo ok.Ru nAuto Macro s (xl AutoO pen)'；运行EXC EL启动宏
xlBo ok.Ru nAuto Macro s (xl AutoC lose) 9；运行EX CEL关闭宏
4、在运用以上V B命令操作EXCEL表时，除非设置EXC EL对象不可见，否则
VB程序可继续执行其它操作，也能够关闭E XCEL，同时也可对EXCEL进行操
作。但在EXC EL操作过程中关闭E XCEL对象时，VB程序无法知道，如果此时使用EX CEL对象，则VB程序会产生自动化错误。形成VB程序无法完全控制
EXC EL的状况，使得VB与EXCE L脱节。
二、 EX CEL的宏功能：
E XCEL提供一个Vi sualBasic编辑器，打开Visu al Ba sic编辑器，其中有一工程属性窗口，点击右键菜单的"插入模块"，则增加一个"模块1"，在此模块中可以运用Vis ual B asic语言编写函数和过程并称之为宏。其中，EXC EL有两个自动宏：一个是启动宏（SubAuto_Open()），另一个是关闭宏（SubA
uto_Close()）。它们的特性是：当用EX CEL打开含有启动宏的工作簿时，就会自动运行启动宏，同理，当关闭含有关闭宏的工作簿时就会自动运行关闭宏。但是通过VB的自动化功能来调用EXC EL工作表时，启动宏和关闭宏不会自动运行，而需要在VB中通过命令
xlB ook.R unAut oMacr os (x lAuto Open)和xlBo ok.Ru nAuto Macro s (xl AutoC lose)来运行启动宏和关闭宏。
赛尔号达蒙特
三、 VB与E XCEL的相互勾通：
cdd充分利用EXCEL的启动宏和关闭宏，可以实现VB与EXCE L的相互勾通，其方法如下：
在EXCEL的启动宏中加入一段程序，其功能是在磁盘中写入一个标志文件，同时在关闭宏中加入一段删除此标志文件的程序。VB程序在执行时通过判断此标志文件存在与否来判断EXCEL是否打开，如果此标志文件存在，表明EXC EL对象正在运行，应该禁止其它程序的运行。如果此标志文件不存在，表明E XCEL对象已被用户关闭，此时如果要使用EXCEL对象运行，必须重新创建EXCE L对象。
四、举例：
1、在V B中，建立一个FOR M，在其上放置两个命令按钮，将Comma nd1
的C aptio n属性改为EXCEL，Comm and2的Capti on属性改为End。然后在其中输入如下程序：
Di m xlA pp As Exce l.App licat ion '定义EXCE L类
Di m xlB ook A s Exc el.Wo rkboo k '；定义工件簿类
D im xl sheet As E xcel.Works heet'；定义工作表类
Pri vateSub C omman d1_Cl ick() 9；打开EX CEL过程
If D ir("D:\tem p\exc el.bz") ="" Th en '；判断EXCEL是否打开
石家庄滹沱河Set x lApp= Cre ateOb ject("Exce l.App licat ion") 9；创建EX CEL应用类
xlA pp.Vi sible = Tr ue '；设置EXCEL可见
Se t xlB ook = xlAp p.Wor kbook s.Ope n("D:\temp\bb.x ls")'；打开EXC EL工作簿Setxlshe et =xlBoo k.Wor kshee ts(1) 9；打开EX CEL工作表
xls heet.Activ ate '激活工作表
xlshe et.Ce lls(1, 1)= "ab c" '；给单元格1行驶列赋值
x lBook.RunA utoMa cros(xlAu toOpe n) '；运行EXCEL中的启动宏
Else
MsgB ox ("EXCEL已打开")
End If
E nd Su b
Pri vateSub C omman d2_Cl ick()
惠尚学If D ir("D:\tem p\exc el.bz") <> "" T hen '由VB关闭E XCEL
xlBoo k.Run AutoM acros (xlA utoCl ose)'；执行EXC EL关闭宏
xlBo ok.Cl ose (True) 9；关闭EX CEL工作簿
xlA pp.Qu it '；关闭EXCEL
EndIf
Se t xlA pp =Nothi ng '；释放EXCEL对象
En d
End Sub
2、在Ｄ盘根目录上建立一个名为Temp的子目录，在Temp目录下建立一个名为"b b.xls"的EXC EL文件。 3、在"bb.xl s"中打开Visua l Bas ic编辑器，在工程窗口中点鼠标键选择插入模块，在模块中输入入下程序存盘：
Sub auto_open()
Op en "d:\tem p\exc el.bz" For Outp ut As #1 '写标志文件
Close #1
E nd Su b
Sub auto_clos e()
K ill "d:\te mp\ex cel.b z" '；删除标志文件如何推动社会主义文化大发展大繁荣
End S ub
4、运行VB程序，点击E XCEL按钮可以打开EXCEL系统，打开EXCEL系统
后，V B程序和E XCEL分别属两个不同的应用系统，均可同时进行操作，由于系统加了判断，因此在VB程序中重复点击EXC EL按钮时会提示EX CEL已打开。如果在EXCEL中关闭EX CEL后再点EXCE L按钮，则会重新打开EXCEL。而无
论E XCEL打开与否，通过VB程序均可关闭E XCEL。这样就实现了VB与E XCEL的无缝连接。
(本文来自h ttp://bbs.railt/ 中国铁道论坛。原文：
htt p://b bs.ra ilcn/v iewth read.php?t id=114663&extra=&pag e=1)
豫公网安备41160202000603
站长QQ:729038198
关于我们
投诉建议