首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

[]vb对Excel操作中出现的有关问题?

2012-01-24 
[求助]vb对Excel操作中出现的问题??大家好:我用VB对Excel进行了调用。写代码及调试时在/工程/引用中引用了E

[求助]vb对Excel操作中出现的问题??
大家好:

我用VB对Excel进行了调用。写代码及调试时在/工程/引用中引用了Exccel 10.0 Object Library,调试及运行一切顺利。相关代码如下:

Dim Excelobj as Excel.Application

Dim Excelbook as Excel.Workbook

Dim Excelsheet as Excel.Worksheet

Set Excelobj=CreeatObject("Excel.Application")

Set Excelbook=Excelobj.Workbooks.OpenExcel(path)

Set Excelsheet=Excelbook.WorkSheets(1)

Rownum=Excelobj.cells.SpecialCells(xlcelltypeLastCell).Row

Colnum=Excelobj.cells.SpecialCells(xlcelltypeLastCell).Column

调试、运行一切正常,在最终生成EXE文件前,我将对Excel的引用去掉,同时程序作如下更改:

Dim Excelobj as Object

Dim Excelbook as Object

Dim Excelsheet as Object

其它未变,转为EXE文件时,系统提示代码中红字部分未定义。

请问在不引用Excel的前提下该如何修改??

先谢啦。


[解决办法]
在去掉 Excel 的引用前将常量的值查出来,然后到代码中定义。

VB code
Const xlCellTypeLastCell = 11 

热点排行