怎样用vb 读取excel 的数据

发布网友发布时间：2022-04-26 14:40

共1个回答

热心网友时间：2022-06-29 07:54

'以下是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