| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2422 人关注过本帖, 1 人收藏
标题:数组大小无法确定,如可定义这个数组?
只看楼主 加入收藏
hu_jp2004
Rank: 1
等 级:新手上路
帖 子:21
专家分:3
注 册:2012-6-30
结帖率:100%
收藏(1)
已结贴  问题点数:20 回复次数:6 
数组大小无法确定,如可定义这个数组?
实例如下:
oexcel=CREATEOBJECT("Excel.Application")
oexcel.workbooks.OPEN(strpath)
arrtableinfo=oexcel.activesheet.usedrange.VALUE  &&&将EXCEL里的数据保存到数组arrtableinfo里

arrtableinfo事先如何定义?(我无法知道EXCEL中有多少行与列数据),如果不定义,运行时不会错(运行prg),但编译时,会出现找不到arrtableinfo。
请各位老师指点!
搜索更多相关主题的帖子: 多少 老师 EXCEL 如何 
2012-12-17 10:25
wp231957
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:神界
等 级:贵宾
威 望:423
帖 子:13688
专家分:53332
注 册:2012-10-18
收藏
得分:0 
为啥要保存到数组里

以前 我在处理这个问题时,都是直接写到.DBF里的

DO IT YOURSELF !
2012-12-17 10:42
hu_jp2004
Rank: 1
等 级:新手上路
帖 子:21
专家分:3
注 册:2012-6-30
收藏
得分:0 
回复 2楼 wp231957
我主要解决EXCEL导入到DBF中的问题,程序运行正常,但编译时说,该变量未定义?如何定义呢,我定义成:arrtableinfo as Variant不行(我不知数组的大小)。另外,该EXCEL为用户提供的,我要解决读入,然后处理。
2012-12-17 10:55
月沐庭轩
Rank: 9Rank: 9Rank: 9
来 自:京城
等 级:贵宾
威 望:17
帖 子:393
专家分:1106
注 册:2011-7-24
收藏
得分:15 
https://bbs.bccn.net/viewthread.php?tid=389077&extra=&page=1
这里看一下,是否对你有些启发。

坚持学习vfp,QQ:306805680
2012-12-17 11:05
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:5 
首先定义全局变量

坚守VFP最后的阵地
2012-12-17 11:11
hu_jp2004
Rank: 1
等 级:新手上路
帖 子:21
专家分:3
注 册:2012-6-30
收藏
得分:0 
谢谢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
2012-12-17 12:40
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
VFP的数组可以动态伸缩的

授人以渔,不授人以鱼。
2012-12-17 16:19
快速回复:数组大小无法确定,如可定义这个数组?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.023887 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved