excel对象方式读取xls内容 xls操作方法

Dim Application As Object
Dim WorkBook As Object
Dim Sheet As Object

Set Application = CreateObject("Excel.Application") '建立EXCEL对象
Set xlBook = VBExcel.Workbooks.Open(filename) '打开文件, filename是文件路径加名字
Set xlSheet = xlBook.Worksheets("sheet1") '激活表单1.

上面的Xlbook和XLSheet都是对像变量,可以自定义.

取得XLS里的数据的语句:XLSheet.cells(x,y) 这里的XY是坐标值,XLS里的每一个格都由坐标定位,因此你可以根据这个获得任何一个格里的数据,比如XLSheet.cells(1,1)就返回第一行第一格的数据.如果要连续读取数据,可以使用循环,只用改变XY的值就可以了,至于写到LISTBOX的代码我想不用我说了吧,那个就简单了.

 

 

 

 

 

在VB应用程序中调用Excel，实质是将Excel作为一个外部对象来引用，由Excel对象模型提供能从VB应用程序内部来程序化操纵的对象以及相关的属性、方法和事件。

3.1 在VB工程中添加对Excel类型库的引用

为了能从VB应用程序中访问Excel丰富的内部资源，使Excel应用程序运行得更快，需要在VB工程中添加对Excel类型库的引用。具体步骤如下：

1) 在VB应用程序中调用Excel，你的计算机系统中必须安装Excel。从VB5“工程”菜单中选择“引用”；

2) 在“引用”对话框中选择Excel类型库："Microsoft Excel9.0 Object Library"；

3) 单击左边小方框，使之出现“√”符号；

4) 按“确定”退出。

3.2 引用Application对象

Application对象是Excel对象模型的顶层，表示整个Excel应用程序。在VB应用程序中调用Excel，就是使用Application对象的属性、方法和事件。为此，首先要声明对象变量：

Dim VBExcel As Object

或直接声明为Excel对象：

Dim VBExcel As Excel.Application

在声明对象变量之后，可用CreateObject函数或GetObject函数给变量赋值新的或已存在的Application对象引用。

1)用CreateObject函数生成新的对象引用：

Set VBExcel&#