VB如何调用EXCEL?各位好心人帮帮我这菜鸟吧!

来源：百度知道 编辑：UC知道 时间：2024/06/20 18:46:43
我做的是一个用VB来调用数据库的软件,这个数据库是用EXCEL做的,现在遇到的难题是这个表的第一列和第一行为条件,在窗体中输入两个数,一个是第一列的数,一个是第一行中的一个数,怎样用VB来找到它所对应的哪个数字并将这个数提取出来,我是一个VB菜鸟,救救我吧!这件事对我太重要了......
谢谢各位朋友的帮助,可能我没有讲清楚,实在不好意思!上面的要求我用ADO方法和SQL语句来调用它,假如我通过前面的计算得到两个数,然后用这两个数来提取出在数据库中它们所对应的那个数,我看书上大都用SELECT语句查询方法来调用它,可我用不好,还希望朋友们不怕麻烦,再帮帮我!!!万分感谢.

Dim oleExcel As Object
dim s As String
Private Sub Command3_Click() '存xls
Dim i, j As Integer

Set oleExcel = CreateObject("Excel.Application")

oleExcel.Visible = False 'false表示EXCEL窗体隐藏

oleExcel.WindowState = 1
' 打开文件

oleExcel.Workbooks.Open FileName:=App.Path & "\readonly.xls" 'readonly为数据库名称,将文件放在同一文件夹中

' 从xls文件中读内容
s = oleExcel.Worksheets("sheet1").Cells(i, j) 'i是行，j是列，sheet1是表名称，s储存数据

oleExcel.ActiveWorkbook.Close
oleExcel.Quit

End Sub

Dim XlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlSheet As Excel.Worksheet '定义工作表类
Set XlApp = CreateObject("Excel.Application") '创建EXCEL应用类
XlApp.Visible = True '设置EXCEL可见