我有一个Excel表格，表格中有我需要的数据，我怎么将表格中

大神帮帮忙，可加QQ

大神帮帮忙，可加QQ

可有偿

只有两步。
1、读取excel文件。找到自己要的数据
2、赋值给textbox

给你一个操作EXCEL的例子
Dim WExcel As Excel.Application
Dim WBook As Excel.Workbook
Dim WSheet As Excel.Worksheet
Set WExcel = GetObject("", "Excel.AppLication")
Set WBook = WExcel.Workbooks.Add
WExcel.DisplayAlerts = False'不显示Excel窗体
Set WSheet = WExcel.ActiveSheet
'列表宽度设置
WExcel.Columns("A").ColumnWidth = 4
WExcel.Columns("B").ColumnWidth = 9
WExcel.Columns("C:E").ColumnWidth = 1
'列表高度设置
WExcel.Rows("1").RowHeight = 30
WExcel.Rows("2").RowHeight = 3
'写入字
WExcel.Cells(1, 1) = "汽车美容店无线刷卡管理系统"
WExcel.Cells(4, 1) = "序号"
WExcel.Cells(4, 2) = "姓名"
WExcel.Cells(4, 3) = "车号"
WExcel.Cells(4, 4) = "卡号"
'如果你要表格的第4行第3列的内容显示在text1
Text1.text = WExcel.Cells(4, 3) '显示内容是：车号
'关闭EXCEL工作簿
WBook.Close (True)
WExcel.Quit '关闭EXCEL
Set WExcel = Nothing'清空内存