如何在VB中将EXCEL中的数据调出来?谢谢

来源：百度知道 编辑：UC知道 时间：2024/05/22 14:37:37
如何将EXCEL表中某一个单元格的数据调到VB中,最好有一个小例子,谢谢各位高人了.我最近做的都出现了一些小问题,希望能讲的细些.谢谢!
谢谢伊人尤在!但是提示第一条语句:用户定义类型未定义,我只把你这几条复制进去了,是不是还需作别的操作,具体DAO如何操作不懂,还有第三句好象有语病.多谢赐教!

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(App.Path + "filename.xls") '打开已经存在的EXCEL工件簿文件
Set xlSheet = xlBook.Worksheets("Sheet1") '设置活动工作表

x=xlSheet.Cells(x,y) '读取单元格内容

Set xlApp = Nothing '关闭EXCEL对象

用DAO访问excel数据库.
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(\"c:/myexcel.xls\", False, False, \"excel 8.0;HDR=YES\")
Set rs = db.OpenRecordset(db.TableDefs(0).Name)
具体哪个单元格,你可以通过rs来访问了.
HDR决定是否有标题行.