$var = $oExcel.sheet(1).cells(1.1)//读取第一个单元格数据
$oExcel.sheet(1).cells(2.1) = $var //把读取的值填进excel
$rowcount = ActiveSheet.UsedRange.Rows.Count //excel的行数
$Columnscount =ActiveSheet.UsedRange.Columns.Count //excel列数
----------------------------------------
核心就是这些,先读取excel的行数,然后循环读取每个单元格的值,就可以取得一列的值,然后按你的需要再赋值就行了
----------------------------------------
例如:
$ix = ActiveSheet.UsedRange.Rows.Count //把总行数读取进$ix
//这里定义一个可变的数组$row[],太久没用,忘了怎么写了...
For $i = 1 To $ix Step +1
$row[$i] = $oExcel.sheet(1).cells($i.1)//逐行读取第一列数据进数组中
//循环结束后就把第一列的数据读入数组$row了