当前位置:编程学习 > VB >>

如何打开指定路径的文件夹里excel文件并读取数据

各位高人,
问题比较弱智,还很着急,盼高人指点。
一个指定路径下的文件夹里有多个excel文件(文件个数不知,假如有15个)。这25个excel文件的格式完全相同,每个文件里面的A1:P16共256个数据需要读出来并且相应单元格分别求平均值,再将这256个平均值保持到名为abc.xls的A1:P16的相应位置?

另外一个问题:从A1:P16这256个数,需要根据值所处的范围设置不同灰度,数值越小颜色越深,数值越大,颜色越亮。这256个数都在95-105之间,且为小数,需要将95-105十等分,每一份的灰度不同,如何设置?

谢谢!急盼! --------------------编程问答-------------------- 感觉上是设计的问题,如能搞到数据库了,不麻烦。 --------------------编程问答-------------------- 已经给你提供过例子了?其他的我也不知道怎么帮你了。毕竟你提供的消息太少了。 --------------------编程问答-------------------- 我顶上去 --------------------编程问答-------------------- --------------------编程问答-------------------- 我现在没有数据库,只有一堆excel文件。
请问我如何得到文件夹中xls 文件的个数,因为要计算平均值
谢谢 --------------------编程问答-------------------- 没有原始表格做不了
如何得到文件夹中xls 文件的个数 很简单
留下你的QQ我给你个代码

引用 5 楼 hellokittyhappy 的回复:
我现在没有数据库,只有一堆excel文件。
请问我如何得到文件夹中xls 文件的个数,因为要计算平均值
谢谢
--------------------编程问答-------------------- 真抱歉,我没有qq,可以写在这里吗?你需要原始表格吗?
上面所说abc.xls是个空的文件。而我需要计算平均值的数据如下,在excel中从A1:P16:
0.9991 1.0000 0.9992 0.9982 0.9990 0.9991 1.0020 1.0008 1.0001 1.0009 1.0003 0.9996 1.0002 0.9987 0.9977 0.9997
0.9984 0.9975 0.9980 0.9960 0.9963 0.9984 1.0011 1.0008 1.0000 0.9997 0.9974 0.9985 0.9987 0.9975 0.9969 0.9994
0.9995 0.9979 0.9998 0.9985 0.9988 1.0032 1.0041 1.0027 1.0030 1.0006 1.0008 1.0018 0.9997 0.9993 0.9971 1.0005
1.0007 0.9990 0.9981 0.9973 0.9988 1.0042 1.0041 1.0025 1.0029 1.0006 0.9997 1.0008 1.0003 0.9963 0.9986 1.0012
1.0010 1.0000 0.9982 0.9998 1.0009 1.0043 1.0026 1.0008 1.0018 0.9995 0.9985 1.0017 1.0003 0.9998 1.0011 1.0020
1.0001 1.0006 0.9989 1.0008 1.0021 1.0045 1.0007 1.0005 0.9996 0.9981 0.9997 1.0003 0.9997 1.0007 1.0021 1.0008
0.9990 1.0000 0.9999 0.9992 1.0033 1.0003 1.0008 1.0011 0.9985 0.9995 0.9996 0.9997 0.9985 0.9996 1.0028 1.0001
0.9985 0.9992 0.9995 1.0004 1.0048 1.0008 1.0008 1.0003 0.9989 0.9989 1.0003 0.9980 0.9996 0.9994 1.0018 0.9989
1.0004 0.9998 0.9995 1.0033 1.0028 1.0009 0.9995 0.9978 0.9979 0.9990 1.0001 0.9985 0.9994 1.0025 1.0010 1.0011
0.9999 0.9974 1.0013 1.0037 1.0011 1.0004 0.9980 0.9963 0.9978 0.9996 0.9997 0.9995 0.9972 1.0034 0.9998 1.0002
0.9974 1.0002 1.0041 1.0023 1.0021 0.9995 0.9987 0.9978 0.9999 1.0015 1.0001 1.0004 1.0006 1.0012 0.9997 0.9997
0.9993 1.0041 1.0023 1.0029 1.0005 0.9989 0.9981 0.9981 1.0013 1.0001 1.0000 0.9994 1.0034 0.9999 1.0020 0.9986
1.0007 0.9990 1.0006 1.0015 0.9975 0.9994 0.9988 1.0011 1.0021 0.9989 0.9975 0.9999 0.9998 0.9990 0.9994 0.9991
1.0012 1.0013 1.0014 0.9968 0.9993 0.9983 1.0006 1.0030 1.0009 1.0000 1.0012 1.0044 0.9999 1.0028 0.9981 1.0008
0.9988 0.9987 0.9969 0.9974 0.9970 0.9991 1.0008 1.0001 1.0004 0.9991 1.0023 0.9987 0.9990 0.9976 0.9979 0.9993
1.0003 0.9990 0.9987 0.9967 0.9983 1.0026 1.0010 0.9997 0.9993 1.0025 0.9998 0.9998 1.0008 0.9970 0.9998 0.9999
--------------------编程问答-------------------- 256个数能出来256个平均值?你的描述我看了不下十遍,不知所云 --------------------编程问答-------------------- 刚吃完饭 到公园走走 回来后将你7F 的数据整给你 --------------------编程问答--------------------
引用 8 楼 dbcontrols 的回复:
256个数能出来256个平均值?你的描述我看了不下十遍,不知所云


抱歉,可能我的表达不清楚。
由于文件夹中有多个xls文件(假设有20个),每个文件都有256个数(A1:P16),需要将20个文件中每个文件的A1:P16分别相加并计算平均值。平均值仍然是256个数,并且需要保存到一个新的文件的A1:P16.
--------------------编程问答-------------------- 我贴的数据只是一个xls文件里A1:P16的数据 --------------------编程问答-------------------- 小意思,我能做出来
一会儿就开始做

引用 10 楼 hellokittyhappy 的回复:
引用 8 楼 dbcontrols 的回复:
256个数能出来256个平均值?你的描述我看了不下十遍,不知所云


抱歉,可能我的表达不清楚。
由于文件夹中有多个xls文件(假设有20个),每个文件都有256个数(A1:P16),需要将20个文件中每个文件的A1:P16分别相加并计算平均值。平均值仍然是256个数,并且需要保存到一个新的文件的A1:P16.
--------------------编程问答-------------------- 代码写完了,需要数据调试,特别是变量偏移
看信息 --------------------编程问答-------------------- 只有楼上那些数据 将它直接黏贴进 .xls也没办法 搞死人了

一.已将你 7F 那堆数据整合为 Book1.xls (256个数据)

二.已将Book1.xls的256个数据 带入 SubT1(0)--- SubT1(255) 256个数组变量, 这只是一个表格

三.下面我没做 因为你的意思很含糊

猜想就是 如果你有20个文件

以A1而言 则将会有 SubT1(0) SubT2(0) SubT3(0) SubT4(0).... SubT20(0)
然后将这20个数据加总除以20 求得 20个文件所有 A1 的总和除以20 得到平均值

Avg(0)---Avg(255) 共 256个平均值的变量

没难度 但耗时 
--------------------编程问答-------------------- 我已经做完了

引用 14 楼 cbm666 的回复:
只有楼上那些数据 将它直接黏贴进 .xls也没办法 搞死人了

一.已将你 7F 那堆数据整合为 Book1.xls (256个数据)

二.已将Book1.xls的256个数据 带入 SubT1(0)--- SubT1(255) 256个数组变量, 这只是一个表格

三.下面我没做 因为你的意思很含糊

猜想就是 如果你有20个文件

以A1而言 则将会有 SubT1(0) ……
--------------------编程问答-------------------- 这个很简单 体力活而已 --------------------编程问答-------------------- 会者不难,难者不会啊
楼上都是高手啊 --------------------编程问答-------------------- 我给你发消息了

引用 17 楼 hellokittyhappy 的回复:
会者不难,难者不会啊
楼上都是高手啊
--------------------编程问答--------------------
引用 18 楼 dbcontrols 的回复:
我给你发消息了


引用 17 楼 hellokittyhappy 的回复:
会者不难,难者不会啊
楼上都是高手啊


已经给你发文件了,谢谢! --------------------编程问答-------------------- 暂时没有收到
引用 19 楼 hellokittyhappy 的回复:
引用 18 楼 dbcontrols 的回复:
我给你发消息了


引用 17 楼 hellokittyhappy 的回复:
会者不难,难者不会啊
楼上都是高手啊


已经给你发文件了,谢谢!
--------------------编程问答-------------------- 非常抱歉,文件中应该从C23:R38
我说的A1:P16是举个例子 --------------------编程问答-------------------- 所以说啊,没有数据,变量偏置值就不好确定

引用 21 楼 hellokittyhappy 的回复:
非常抱歉,文件中应该从C23:R38
我说的A1:P16是举个例子
--------------------编程问答-------------------- 不好意思啊。
--------------------编程问答-------------------- 再发一次,几张就行

引用 23 楼 hellokittyhappy 的回复:
不好意思啊。
--------------------编程问答-------------------- 已发。3个文件。 --------------------编程问答-------------------- --------------------编程问答-------------------- 谢谢,诸位。
这个是好东西啊。
大家加油。 --------------------编程问答--------------------
引用 24 楼 dbcontrols 的回复:
再发一次,几张就行


引用 23 楼 hellokittyhappy 的回复:
不好意思啊。


不知道调试的怎么样了呢?
急盼! --------------------编程问答-------------------- 我靠,现在VB版里居然开始这样全代码协助了啊?
泰山哥,我觉得你这样的做法欠妥,对于不懂的问题,提供解决方案和思路,部分代码问题指出毛病,这样提问题者才有提高,如这样全代码的帮助,是授人鱼,非授人渔,治标不治本呀。 --------------------编程问答--------------------
引用 29 楼 zuoxingyu 的回复:
我靠,现在VB版里居然开始这样全代码协助了啊?
泰山哥,我觉得你这样的做法欠妥,对于不懂的问题,提供解决方案和思路,部分代码问题指出毛病,这样提问题者才有提高,如这样全代码的帮助,是授人鱼,非授人渔,治标不治本呀。

请您说话文明点。这里没有人也没有哪种行为需要你用到这个语气词!
 
--------------------编程问答--------------------
引用 30 楼 hellokittyhappy 的回复:
引用 29 楼 zuoxingyu 的回复:
我靠,现在VB版里居然开始这样全代码协助了啊?
泰山哥,我觉得你这样的做法欠妥,对于不懂的问题,提供解决方案和思路,部分代码问题指出毛病,这样提问题者才有提高,如这样全代码的帮助,是授人鱼,非授人渔,治标不治本呀。

请您说话文明点。这里没有人也没有哪种行为需要你用到这个语气词!


用几个没用的分就让人帮助干活,挺合适,赚大了 --------------------编程问答-------------------- ~~~~~~~, --------------------编程问答-------------------- 4楼的哥哥很现实啊。。。 --------------------编程问答-------------------- 我不明白你们这些高人之间是否有些什么所谓默契,看见一个人帮助一个什么都不懂的新人心里难受。
老实说泰山并没有答应会给我代码,我确实心里没底,只是我心存幻想。
--------------------编程问答-------------------- 你连QQ都没有
信箱也不会发信件
我发你VB代码你能调试了?
我没拿到你的数据,无法调试

引用 34 楼 hellokittyhappy 的回复:
我不明白你们这些高人之间是否有些什么所谓默契,看见一个人帮助一个什么都不懂的新人心里难受。
老实说泰山并没有答应会给我代码,我确实心里没底,只是我心存幻想。
--------------------编程问答-------------------- 这个也太难了吧~~~~ --------------------编程问答-------------------- 做数据处理的很可能是专家,有课题需要
下不为例

引用 29 楼 zuoxingyu 的回复:
我靠,现在VB版里居然开始这样全代码协助了啊?
泰山哥,我觉得你这样的做法欠妥,对于不懂的问题,提供解决方案和思路,部分代码问题指出毛病,这样提问题者才有提高,如这样全代码的帮助,是授人鱼,非授人渔,治标不治本呀。
--------------------编程问答-------------------- 我发了啊,你有没收到吗?
除非邮箱地址有误!
--------------------编程问答-------------------- 看信息

引用 38 楼 hellokittyhappy 的回复:
我发了啊,你有没收到吗?
除非邮箱地址有误!
--------------------编程问答-------------------- 看信息,收邮件 --------------------编程问答-------------------- 还没收到邮件。

引用 40 楼 hellokittyhappy 的回复:
看信息,收邮件
--------------------编程问答-------------------- 找到了,在“垃圾邮件”里发现的 --------------------编程问答-------------------- 天哪,我冤死了,都成了不会发邮件的了,哈哈 --------------------编程问答-------------------- 你那里有VB吧?

引用 43 楼 hellokittyhappy 的回复:
天哪,我冤死了,都成了不会发邮件的了,哈哈
--------------------编程问答-------------------- 我本来想装个vb,结果好像装了个.net,有些区别吧 --------------------编程问答--------------------
引用 45 楼 hellokittyhappy 的回复:
我本来想装个vb,结果好像装了个.net,有些区别吧


--------------------编程问答-------------------- 我可以装一个VB的 --------------------编程问答-------------------- 这个问题其实不困难,关键是理清思路。

1 Excel 数据可以通过 VB 所支持的 Excel 对象读写。
2 通过 Excel 对象能够设置单元格的字体或背景颜色。

可以这样做:

1 打开一个用来放结果的 Excel 工作表。A1-P16 全部填入 0。 在其他单元格,例如 R1 记录当前读取文件数,现在是 0。

2 打开一个源文件,逐格读取数据。在目标单元格中,写入新值:
  新值 = (旧值 X R1 + 源文件单元格值)/ (R1 + 1)

  然后,设置该目标文件当前单元格背景色 RGB 都等于 Int(当前值 + 150)。

3 处理完一个源文件之后,将目标文件 R1 加 1。
--------------------编程问答-------------------- 谢谢!
思路很清楚! --------------------编程问答-------------------- 自己动手,丰衣足食 --------------------编程问答-------------------- --------------------编程问答-------------------- 学习学习来了 --------------------编程问答-------------------- 才发现,来晚了。问题都被你们解决了。 --------------------编程问答-------------------- 使用合并计算功能就能解决 --------------------编程问答-------------------- 第2个问题使用Excel2010中的条件格式-色阶就可以实现了
--------------------编程问答-------------------- 感觉楼主应该不是搞计算机的
补充:VB ,  基础类
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,