Function ReadFile(sFileName,sSheetName)
Set Excel = CreateObject("Excel.Application")
oExcel.Workbooks.Open(sFileName)
Set Sheet = oExcel.Worksheets(sSheetName)
rowcount=osheet.UsedRange.rows.count
colunmcount=osheet.UsedRange.columns.count
dim arr
redim arr(rowcount-1,colunmcount-1)
for i=1 to rowcount
for j=1 to colunmcount
arr(i-1,j-1)=osheet.cells(i,j)
next
next
oExcel.Quit
Set Excel = Nothing
ReadFile = arr
End Function
3c8M:vtz}
W%F1n0
51Testing软件测试网zWgXZ'Zh+yq
arrRange = ReadFile("d:\test.xls","Sheet1")
for i=0 to ubound(arrRange,1) 'ubound(arrRange,1),1维的最大可用下标,表示行
for j=0 to ubound(arrRange,2) 'ubound(arrRange,2),1维的最大可用下标,表示列
print arrrange(i,j)
next
next
W,whr`#vg9N0
其实从excel读取数据,还可以用以下方法,比较简单些
…………
Set Sheet = oExcel.Worksheets(sSheetName).UsedRange
' 获取从A列到Z列,从第1行到第1000行的范围i中的所有值
Set Range = oSheet.Range("A1:Z1000")
'把Excel数据转换到数组
arrRange = oRange.Value
51Testing软件测试网*Uk8h&p;Wr-BI
arrRange(1,1)表示第一行第一列,
51Testing软件测试网-I_E)h
I%o
同理,可以将二维数组写入到excel
如:dim arr(1,1)
arr(0,0)="第一行第一列":arr(0,1)="第一行第二列"
arr(1,0)="第二行第一列":arr(1,1)="第二行第二列"
……
Set Sheet = oExcel.Worksheets(sSheetName).UsedRange
Set Range = oSheet.Range("A1:B2")
oRange.value=arr
oExcel.WorkBooks.Item(1).save