Question

VB6在excel2003中查找的问题。

我用VB6编了一个程序，在Text1.text中输入一组数字“1234567890”，然后点一个按钮后，程序要在“D:\TMP\数.xls”的表“数”这个工作薄中的A列里面查找Text1.text，如果查找到了完全匹配的，比如在“A20”则text2.text就等于B20单元格的内容，如果没有找到，Text2.text=""
请高手们帮帮忙，谢谢啦！
我是新手现在没分，还请高手们见谅，帮帮忙。

Answer 1

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("D:\TMP\数.xls")
For S = 1 To xlBook.Sheets.Count
If xlBook.Sheets(S).Name="数" Then
With xlBook.Sheets(S)
Row=1
Do While .Cells(Row,1)<>""
If .Cells(Row,1)=Text1 then
Text2=.Cells(Row,2)
Exit Do
End If
Row=Row+1
Loop
End With
End if
next S
xlBook.Close
xlApp.Quit