用<em>vb</em>读取<em>Excel</em>中某个<e

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

Next i

Private Sub Command1_Click()
Dim A As Integer
Dim scxls As New excel.Application
Dim scbook As excel.Workbook
Dim scsheet As excel.Worksheet
Set scxls = CreateObject("excel.application") '创建EXCEL对象
scxls.DisplayAlerts = False '不显示7a64e59b9ee7ad94336对话框,如果D:\2\1\3.xls文件已存在，让它不出现这个提示，就需加这段代码。
Set scbook = scxls.Workbooks.Open("D:\2\4.xls")
'Set scbook = scxls.Workbooks.Add '新建EXCEL工件簿文件
Set scsheet = scbook.Worksheets(1) '设置活动工作表
scxls.Visible = True '显示Excle

Text1.Text = scsheet.Cells(2, 2) '读取数据 并在text1里显示
Text2.Text = scsheet.Cells(2, 6) '读取数据 并在text1里显示
scsheet.SaveAs ("D:\2\1\3.xls") 'excel 存档 语法:表达式.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)
scxls.Quit 'excel 关闭

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

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

Private Sub Command1_Click()
Dim ExApp As New Excel.Application
Dim Exb As Excel.Workbook
Dim Exsh As Excel.Worksheet

Dim R1 As Excel.Range
ExApp.Workbooks.Open "D\my ducuments\book1.xls"
Set Exb = ExApp.Workbooks(1)
Set Exsh = Exb.Worksheets("Sheet1")
Text1.Text = Exsh.Range("D4")

ExApp.Workbooks.Close
ExApp.Quit
Set ExApp = Nothing
End Sub

运行百前要在菜单的“度工程知”-“引道用”-找到版Microsoft Excel 的lib库才可权以运行