有3个框，
在第一个文本框中输入CWF文档第一列中的数值后，在第二和第三个框中会分别显示CWF文档中第二列和第三列的内容。
大概代码是这样，就是红字部分代码想请大家帮个忙，谢谢。
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    Label2.Caption =查找C:\CWF.xls文档中Text1框中输入的数值所对应的第2列的内容是什么
    Label3.Caption =查找C:\CWF.xls文档中Text1框中输入的数值所对应的第3列的内容是什么
    Else
        MsgBox ("数据不存在，请重新输入！！")
    End If
End If
End Sub


例子:  text1 输入 145133704   
       label2 显示 NWP2
       label3 显示 SERIAL NUMBER LABEL
请大家有空帮个忙，写下代码，谢谢了！


[ 本帖最后由 OKI4 于 2013-4-12 14:25 编辑 ]

因为最后这些数据还要用EXCEL文档存档并发送给别人，所以最好是用EXCEL。。。。
请各位帮个忙，谢谢！

顶一下，在线等。。。。

哇，这位版主真是厉害，不仅帮忙解决问题，还给每句加了注释。。。
真的太感谢了，非常感谢。

版主老大，这句有错。。。。能帮忙改下吗。。

'读取数据列表，以便查表
Dim ExcelID As Excel.Application        '定义对象   
 弹出提示说，用户定义类型未定义

要怎么改。。。帮个忙，谢谢！

谁帮忙看看哪里错了。。。谢谢了。。

原来我没添加引用。。。试了可以了，非常感谢版主！！！！！！！！
非常感谢！！！！！！