[已解决]求保存Excel数据到二维数组，请大大们看看，小弟初次接触

hetinghtht

现有一个excel表格,我想读取这个表格中的所有信息到一个二维数组中，
我想得到效果是，维数决定行数，字段用下标来表示，求大大们给个方法，我一直搜索没找到，还有希望不要读取excel信息时弹出excel的窗口，谢谢，附近中是表格范例

kevinch

#include <array.au3>

$Workbook=objget(@ScriptDir&"\学生成绩表.xls")
with $workbook.worksheets("Sheet1")
        $a_Arr=.range("a1").currentregion.value
        .parent.close(false)
EndWith
_ArrayDisplay($a_Arr)

hetinghtht

回复 2# kevinch
请问$a_Arr如何写入到数组中?
我只看到数组列出来了,可是我不知道怎么去保存他们到我的二维数组中去.请教了

kevinch

$a_Arr得到的就是一个二维数组，直接用就行了

tryhi

回复  kevinch
请问$a_Arr如何写入到数组中?
我只看到数组列出来了,可是我不知道怎么去保存他们到我的二 ...
hetinghtht 发表于 2011-5-24 18:18

如何写到数组，看这个回复好像你还不知道什么是数组

hetinghtht

回复 5# tryhi
确实不会怎么用,初学者啊,还请高手请教下
如果说我要输出表格里面的每个学生总成绩和每个学生平均成绩,那么怎么去应用这个数组呢?

还有的话请教个变量定义的问题,一般有数字的变量怎么来定义名称好呢?
比如说:列出数学、物理、化学总分>180分的学生,列出三科成绩
我的定义好长啊$strMathPhyChemLessthanOneHundredEightyOfThreeSubject
如何去缩写而且又能让别人看懂意思呢?

hetinghtht

回复 4# kevinch
谢谢啊,再请教个问题.我对数组确实概念比较模糊,特别是二维数组.
如果说我要输出表格里面的每个学生总成绩和每个学生平均成绩,那么怎么去应用这个数组呢?

5i5wei

学习了   2楼的 不错

kevinch

回复  kevinch
谢谢啊,再请教个问题.我对数组确实概念比较模糊,特别是二维数组.
如果说我要输出表格里面 ...
hetinghtht 发表于 2011-5-25 09:41

excel直接就可以解决啦，如果你一定要用au3的话，可以继续调用excel的公式计算，或者直接用循环从数组中计算得出结果，晚上有空给个实例你看下。

hetinghtht

回复 9# kevinch
嗯  谢谢

kevinch

#include <array.au3>

$Workbook=objget(@ScriptDir&"\学生成绩表.xls")
with $Workbook.worksheets("Sheet1")
        $a_Arr=.range("a1").currentregion.value
        .parent.close(false)
EndWith
ReDim $a_Arr[UBound($a_Arr)+2][UBound($a_Arr,2)]
$a_Arr[UBound($a_Arr)-2][0]="平均分"
$a_Arr[UBound($a_Arr)-1][0]="总分"
;_ArrayDisplay($a_Arr)
for $i_Col=1 to UBound($a_Arr,2)-1
        $i_N=0
        $i_Count=0
        For $i_Row=2 to ubound($a_Arr)-3
                $i_N+=1
                $i_Count+=$a_Arr[$i_Row][$i_Col]
        Next
        $a_Arr[ubound($a_Arr)-2][$i_Col]=StringFormat("%.1f",$i_Count/$i_N)
        $a_Arr[ubound($a_Arr)-1][$i_Col]=$i_Count
Next
_ArrayDisplay($a_Arr)

读取到数组后处理的

kevinch

#include <array.au3>

$o_Excel=ObjCreate("excel.application")
$o_Excel.visible=False
$Workbook=$o_Excel.workbooks.open(@ScriptDir&"\学生成绩表.xls")
with $Workbook.worksheets("Sheet1").cells(1,$Workbook.worksheets("Sheet1").columns.count).end(1)
        .offset(0,1)="平均分"
        .offset(1,1).resize(.parent.cells(.parent.rows.count,1).end(3).row-1,1).formular1c1="=Text(SUM(RC3:RC"&.column&")/COUNT(RC3:RC"&.column&"),""0.0"")"
        .offset(0,2)="总分"
        .offset(1,2).resize(.parent.cells(.parent.rows.count,1).end(3).row-1,1).formular1c1="=SUM(RC3:RC"&.column&")"
    $a_Arr=.parent.range("a1").currentregion.value
EndWith
$Workbook.close(False)
$o_Excel.quit
_ArrayDisplay($a_Arr)

利用Excel处理完成后再读入数组的

xiezhang6263

学习了，很不错的方法

hetinghtht

回复 12# kevinch
谢谢兄弟

kevinch

记得将帖子加上 【已解决】