Private Sub Command1_Click()
Dim Xlbook As Workbook
Dim Xlapp As Application
Dim Xlsheet As Worksheet
Set Xlapp = CreateObject("Excel.Application") '隐藏方式打开excel
Set Xlbook = Xlapp.Workbooks.Open("D:\123.xls") '打开工作簿
Set Xlsheet = Xlbook.Worksheets(1) '让xlsheet代表第一个表
Print Xlsheet.Range("A1") '取数据什么的跟VBA一样的。
Xlbook.Close False '关闭工作簿 不保存
Set Xlapp = Nothing '释放
Set Xlbook = Nothing
End Sub
追问我要的是提取区域内的多个数据,不是单个的。。。
追答这要看你提到哪去了,通用的就是一个个单元格取
dim i as long ,j as long
for i=1 to 10 '行范围
for j=1 to 5 '列范围
print cells(i,j).value
next
next
追问list控件不是可以提取很多数据吗?将1个工作表的内容都显示在List控件里怎么编的?