VB6.0 调用EXCEL表

Question

VB6.0 调用EXCEL表，用到的函数为INDEX(A:A,MATCH(A2,A:A))
A2为TEXT3.TEXT中的文本
Dim a As Variant
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open("c:\数据库演示.xls") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = False '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets("Sheet1") '设置活动工作表

这里应该怎么调用

xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象

或者我写的代码不对,请大家帮忙,这些代码都是从网上找的,不知道对不起,请大家帮下忙

Answer 1

下面的例子，供你参考：
’用CommonDialog可以解决选定打开.xls文件问题 然后就是读取进去 哈哈 保存代码如下 '添加command控件一个 CommonDialog，MSFlexGrid控件一个 Private Sub Command1_Click() On Error Resume Next Dim fileadd As String CommonDialog1.ShowOpen CommonDialog1.Filter = "xls文件(*.xls)|*.xls" '选择你要的文件 fileadd = CommonDialog1.FileName MSHFlexGrid1.Redraw = False '关闭表格重画，加快运行速度 Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象 Set xlBook = xlApp.Workbooks.Open(fileadd) '打开已经存在的EXCEL工件簿文件 xlApp.Visible = True '设置EXCEL对象可见（或不可见） Set xlsheet = xlBook.Worksheets("Sheet1") '设置活动工作表 For R = 0 To MSHFlexGrid1.Rows - 1 '行循环 For C = 0 To MSHFlexGrid1.Cols - 1 '列循环 MSHFlexGrid1.Row = R MSHFlexGrid1.Col = C ‘这里写你 SQL语句Next C Next R MSHFlexGrid1.Redraw = True xlApp.DisplayAlerts = False 'Set xlsheet = Nothing 'Set xlBook = Nothing 'xlApp.Quit 'Set xlApp = Nothing End Sub
满意请采纳。

追问

不用打开表，必须执行那两句代码，并且得到返回值，也只要返回值

Answer 2

看下这个文章
http://jingyan.baidu.com/article/ae97a646b68aaabbfd461dbe.html