<em>vb</em>如何读取excel制定单元格数据？-vb excel编程实例,vb语言基本

For i = 1 To 500
If Text7.Text = "张三" Then
Text1.Text = xlsheet.Cells(i, 6)
End If
If Text7.Text = "李四" Then
Text1.Text = xlsheet.Cells(i, 6)
End If

Next i

这也太简单了吧？
你要用VBA，还是VB？
VBA：
直接zd在窗体中，按钮单击的事件下写一句话：
假设标签1为label1，
me.label1.text = thisworkbook.sheets(1).range("A3").value
完事。。。

VB：
先声明一个对象变量 dim BookA as new workbook
然后给它赋值： bookA = workbooks.open("这里回是你EXCEL的位置") 注意，如果是VB 6.0，那么在这句话前面要加set.
然后的话，就和VBA一样了。
直接在窗体中，按钮单击的事件下写一句答话：
假设标签1为label1，
me.label1.text = bookA.sheets(1).range("A3").value
完事。。。

第一个问题解决了，第二个问题就不是问题了吧？能把值读出来。相加不用再教了吧。
VB操作EXCEL 全面控制 Excel 首先创建 Excel 对象，使用ComObj: Dim ExcelID as Excel.Application Set ExcelID as new Excel.Application 1) 显示当前窗口： ExcelID.Visible := True; 2) 更改 Excel 标题栏： ExcelID.Caption := \'应用程序调用 Microsoft Excel\'; 3) 添加新工作簿： ExcelID.WorkBooks.Add; 4) 打开已存在的工作簿： ExcelID.WorkBooks.Open( \'C:\\Excel\\Demo.xls\' ); 5) 设置第2个工作表为活动工作表： ExcelID.WorkSheets[2].Activate; 或 ExcelID.WorkSheets[ \'Sheet2\' ].Activate; 6) 给单元格赋值： ExcelID.Cells[1,4].Value := \'第一行e79fa5e98193e78988e69d83366第四列\'; 7) 设置指定列的宽度（单位：字符个数），以第一列为例： ExcelID.ActiveSheet.Columns[1].ColumnsWidth := 5; 8) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例： 详细请看 http://zhidao.baidu.com/question/7757737.html

强制公益：为了自己家人孩纸请大家禁绝不确定安全性食品！！珍爱自己珍抄爱家人珍爱自然！袭！

如果完全不给限定范围，VB效率会非常非常慢，要搜索整个表格范围
建议用find函数，并给定范围，以提升效率。举例如下：知
With Sheets(1).[A:Z] ‘范围为Sheet1 A到Z列当然道更小更好
Set c = .Find("F001", LookIn:=xlValues) ‘找到包含目标的单元格
myrow = c.Row ‘给出单元格行数
mycol = c.Column ‘给出单元格列数
End With