VB中如何读取Excel中的数据

Question

如题所述

Answer 1

dim
a(3,
3)
as
intege
for
i
=
1
to
3
for
j
=
1
to
3
'这步是利用a到c之间的ascii码来处理，如果是i循环1,5的话，那就会是a,b,c,d,e,内循环j管a3~a5,
a(i,
j)
=
int(xlsheet.range(chr(asc("a")+i-1))
&
cstr(j+2))
next
j,
i

Answer 2

xlbook
=
xlapp.Workbooks.Open(“D:\123.clsx”）和你说明中的123.xlsx文件名不同，检查一下，确保文件确实存在。
InvalidCastException
是
无效类型转换异常，用n_shuzi
=
xlsheet.Cells(1,
1).value试试。