用EXCEL组件简化VB编程的一种方法

　　 Case 0

　　 On Error GoTo Last

　　 diaoyong = Shell("D:Program FilesMicrosoft OfficeOfficeEXCEL.EXE c:glgl.xls", 1)

　　 Case 1

　　 On Error GoTo Last1 作为空表处理

　　　　 diaoyong = Shell("D:Program FilesMicrosoft
　　　　　　　　　　　 OfficeOfficeEXCEL.EXE c:glgly.xls", 1)

　　 Case 3

　　　　 EXIT

　　 End Select

　　 Exit Sub

　　 Last:

　　　 diaoyong = Shell("EXCEL.EXE c:glgl.xls", 1)

　　　 Exit Sub

　　 Last1:

　　　　 diaoyong = Shell("EXCEL.EXE c:glgly.xls", 1)

　　 End Sub
　　 具体的表格数据处理可以由EXCEL自动完成，因此就简化VB编程的步骤，并且节约调试程序和定位调用的时间。这样就可以把Visual Basic和 EXCEL有机的结合在一起，使编程更加实用。

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!