注册 登录
编程论坛 VFP论坛

数组大小无法确定,如可定义这个数组?

hu_jp2004 发布于 2012-12-17 10:25, 2422 次点击
实例如下:
oexcel=CREATEOBJECT("Excel.Application")
oexcel.workbooks.OPEN(strpath)
arrtableinfo=oexcel.activesheet.usedrange.VALUE  &&&将EXCEL里的数据保存到数组arrtableinfo里

arrtableinfo事先如何定义?(我无法知道EXCEL中有多少行与列数据),如果不定义,运行时不会错(运行prg),但编译时,会出现找不到arrtableinfo。
请各位老师指点!
7 回复
#2
wp2319572012-12-17 10:42
为啥要保存到数组里

以前 我在处理这个问题时,都是直接写到.DBF里的
#3
hu_jp20042012-12-17 10:55
回复 2楼 wp231957
我主要解决EXCEL导入到DBF中的问题,程序运行正常,但编译时说,该变量未定义?如何定义呢,我定义成:arrtableinfo as Variant不行(我不知数组的大小)。另外,该EXCEL为用户提供的,我要解决读入,然后处理。
#4
月沐庭轩2012-12-17 11:05
https://bbs.bccn.net/viewthread.php?tid=389077&extra=&page=1
这里看一下,是否对你有些启发。
#5
sdta2012-12-17 11:11
首先定义全局变量
#6
hu_jp20042012-12-17 12:40
谢谢4楼的提醒,我增加了行、列,得以解决数组的定义,感谢4、5楼版主的指导,辛苦了。
oexcel=CREATEOBJECT("Excel.Application")
oexcel.workbooks.OPEN(strpath)

icolumns=oexcel.activesheet.usedrange.columns.count   &&列
irows=oexcel.activesheet.usedrange.rows.count         &&行
DIMENSION arrtableinfo(irows,icolumns)

arrtableinfo=oexcel.activesheet.usedrange.VALUE&&&将EXCEL里的数据保存到数组arrtableinfo里
oexcel.QUIT
tablerow=ALEN(arrtableinfo,2)
RELEASE oexcel
#7
TonyDeng2012-12-17 16:19
VFP的数组可以动态伸缩的
#8
hsfisher2025-12-04 10:42
种个草
1