怎么在VB中读取excel的数据

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

'以下是EXCEL中的放置
，excel文件是:E:\数据.xls
红桃
黑桃
梅花
方块
A
探囊取物
休养生息1
休养生息2
休养生息3
1
2
3
…………
K
'以下是程序，在窗体中建一下COMMAND1
Private
Sub
Command1_Click()
dim
汉字(12,3)
as
string
'定义一个二维数组，为字符型
dim
ii
as
integer
dim
jj
as
integer
Set
oleExcel
=
CreateObject("Excel.Application")
oleExcel.Visible
=
True
oleExcel.Workbooks.Open
FileName:="E:\数据.xls"
For
ii=
0
To
12
for
jj=0
to
3
汉字(ii,jj)
==
oleExcel.Worksheets("Sheet1").Range("A1").Cells(ii+2,
jj+2)
next
jj
next
ii
oleExcel.Save
oleExcel.displayalerts
=
False
oleExcel.Quit
End
Sub
'另:
需要引用microsoft
activex
data
objects
2.5
library
microsoft
DAO
3.51
object
library