Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("C:\Users\wuyong\Desktop\试验数据\八年级英语成绩.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
Dim RowBegin As Integer = Rg.Cells(1).Row
Dim RowEnd As Integer = Rg.Cells(Rg.Count).Row
'App.Quit
Dim k1 As Integer = Rg.Rows.count
Dim k2 As Integer = Rg.Columns.count
Dim arr(k1-1,k2-1) As String
arr=rg(Ws.Cells(1,1), Ws.Cells(k1,k2))
MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒")
这段代码有错，请帮助修改，能将excel数据表中数据读取到二维数组中。
加好友 
发短信
Post By：2018/11/19 18:41:00 [只看该作者]
