vb 读取 Excel 2003的*.wk1数据，当前系统中还装有Excel2007，应该怎样读取数据

1、VB是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一但报表格式发生变化，就得相应修改程序，给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。
2、 VB读写EXCEL表：VB本身提自动化功能可以读写EXCEL表，其方法如下：
第一步：在工程中引用Microsoft Excel类型库：从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000），然后选择"确定"。表示在工程中要引用EXCEL类型库。
第二步：在通用对象的声明过程中定义EXCEL对象：Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkBookDim xlSheet As Excel.Worksheet.
第三步：在运用以上VB命令操作EXCEL表时，除非设置EXCEL对象不可见，否则VB程序可继续执行其它操作，也能够关闭EXCEL，同时也可对EXCEL进行操作。但在EXCEL操作过程中关闭EXCEL对象时，VB程序无法知道，如果此时使用EXCEL对象，则VB程序会产生自动化错误。形成VB程序无法完全控制EXCEL的状况，使得VB与EXCEL脱节。

sub test() Set xlsApp=GetObject(,"excel.application") if xlsApp Is Nothing then exit sub msgbox xlsApp.ActiveCell.Value end sub 用Set xlsApp=GetObject(,"excel.application")可以获得当前打开的excel程序 可以用xlsApp.workbooks(i)表示第i个打开的工作簿（也就是.xls文件） 再往下是xlsApp.workbooks(i).sheets(j)表示上述工作簿的第j个工作表 再往下是xlsApp.workbooks(i).sheets(j).cells(rowIndex, ColIndex)表示上述工作表rowIndex行,ColIndex列的单元格，或者用类似xlsApp.workbooks(i).sheets(j).range("A1:B10")取得上述工作表中的A1:B10区域 如果在装office的时候选上“VBA帮助文件”，可以进excel后按alt + F11进入“Microsoft Visual basic”编辑器，然后按F1查看帮助中关于Excel对象模型以及相关对象、属性、方法、事件的介绍