专注于互联网--专注于架构

最新标签
网站地图
文章索引
Rss订阅

首页 »VB教程 » vb连接excel:如何实现VB和EXCEL的无缝连接 »正文

vb连接excel:如何实现VB和EXCEL的无缝连接

来源: 发布时间:星期五, 2008年12月26日 浏览:254次 评论:0
  VB是常用应用软件Software开发工具的由于VB报表功能有限而且但报表格式发生变化就得相应修改给应用软件Software维护工作带来极大不便因此有很多员现在已经充分利用EXECL强大报表功来实现报表功能但由于VB和EXCEL由于分别属于区别应用系统如何把它们有机地结合在个值得我们研究课题

  、 VB读写EXCEL表:

  VB本身提自动化功能可以读写EXCEL表其思路方法如下:

  1、在工程中引用Microsoft Excel类型库:

  从"工程"菜单中选择"引用"栏;选择Microsoft Excel 9.0 Object Library(EXCEL2000)然后选择"确定"表示在工程中要引用EXCEL类型库

  2、在通用对象声明过程中定义EXCEL对象:

  Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet

  3、在中操作EXCEL表常用命令:

  Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见(或不可见)
Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表
xlSheet.Cells(row, col) =值 '给单元格(row,col)赋值
xlSheet.PrOut '打印工作表
xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏
xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏

  4、在运用以上VB命令操作EXCEL表时除非设置EXCEL对象不可见否则VB可继续执行其它操作也能够关闭EXCEL同时也可对EXCEL进行操作但在EXCEL操作过程中关闭EXCEL对象时VB无法知道如果此时使用EXCEL对象则VB会产生自动化形成VB无法完全控制EXCEL状况使得VB和EXCEL脱节

   2、 EXCEL宏功能:

  EXCEL提供个Visual Basic编辑器打开Visual Basic编辑器其中有工程属性窗口点击右键菜单"插入模块"则增加个"模块1"在此模块中可以运用Visual Basic语言编写和过程并称的为宏其中EXCEL有两个自动宏:个是启动宏(Sub Auto_Open)个是关闭宏(Sub Auto_Close)它们特性是:当用EXCEL打含有启动宏工簿时就会自动运行启动宏同理当关闭含有关闭宏工作簿时就会自动运行关闭宏但是通过VB自动化功能来EXCEL工作表时启动宏和关闭宏不会自动运行而需要在VB中通过命令xlBook.RunAutoMacros (xlAutoOpen)和xlBook.RunAutoMacros (xlAutoClose) 来运行启动宏和关闭宏
0

相关文章

读者评论

发表评论

  • 昵称:
  • 内容: