一个text一个按钮一个标签，在文本里输入名字，点按钮，在标签显示关于他的相关信息，信息是在表格里的

求帮忙

VB打开Excel表？不太会

数据库不太明白，就想调用表的信息

有人给点思路嘛

顶一下

是Excel表格吗？以下代码，无需引用，只要电脑装了Excel，甚至WPS也可以
'假设Excel文档“信息.xlsx”放在D盘根目录，所需信息在Sheet1中，姓名在A列，需获取的信息在B列
Private Sub Command1_Click()
Dim App As Object
Dim Workbook As Object
Dim Worksheet As Object
Dim r As Long
Set App = CreateObject("Excel.Application")
Set Workbook = App.Workbooks.Open("D:\信息.xlsx")
Set Worksheet = Workbook.sheets("Sheet1")
On Error Resume Next
r = Worksheet.range("A:A").find(what:=Text1).row
Label1.Caption = Worksheet.range("B" & r).Value
Workbook.Close
App.quit
Set Worksheet = Nothing
Set Workbook = Nothing
Set App = Nothing
If Err Then
Err.Clear
MsgBox "未查询到相关信息！"
End If
End Sub

链接excel文件，逐行读取他的姓名列（例如A列），对比textbox里的内容。遇到相同（就是找到了），读取该行个单元格内容，拼接为一个字符串写到label里。如果直到excel表最后还没有找到，在label中显示不存在谁谁的信息。
难点：①链接excel；②读取指定单元格内容。
可以分一下步骤实现
①引用excel。在菜单→工程→引用，勾选引用Microsoft Excel #
# Object Library。其中#
#是excel的内部版本号。
②链接。先声明对象：
Dim 程序 As Excel.Application
Dim 工作簿 As Excel.Workbook
Dim 表页 As Excel.Worksheet
然后创建程序、在程序里打开工作簿，指定表页。
③读取n行m列的内容用cells（n，m）
④释放excel对象
Set 表页 = Nothing
工作簿.Close
Set 工作簿 = Nothing
程序.Quit
Set 程序 = Nothing

刚学的话，自己编数据库吧