Java不会，VB就差不多，参考一下。
dim a()
x=Sheets("Sheet1").UsedRange.Rows.Count
redim a(0 to x)
for i=1 to x
a(i)=Sheets("Sheet1").Range("A" & i).value
next i
用POI把excel读进来然后赋值就好了啊，POI的用法可以自己去网上搜搜，这里就不啰嗦了。
不自己去解决问题，什么都要别人写好，自己稍微改改，美其名曰看懂了，这样能有提高吗？
poi
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024