Question

VB6.0读取EXCEL工作表中区域内的数据

Answer 1

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控件里怎么编的？

Answer 2

http://zhidao.baidu.com/question/252807102.html
这个可以参考一下，这里面有读写数据的举例。