[求助]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