请问如何将指定的<em>excel</em>单元格中的数据读到<em>VB</

把这句话改成：
Textbox1.Text = xlBook.Worksheets("应用层次分析法（AHP）确定各指标权重").cells(67, 6).value2

在工程中引百用Microsoft Excel 14.0 Object Library对象度（我的是EXCEL2010，版问本号答14）

Set ex = CreateObject("excel.application")

Set exwBook = ex.Workbooks.Open(CommonDialog1.FileName)

Set exSheet1 = exwBook.Worksheets(1) '按表序回

text1.text = exSheet1.Range("C" & 2) '第三列 第二答行
似乎你的代码只能放在事件里，才能实现，比如点击按钮事件，鼠标移动事件，值改变事件，激活事件等。你想想你的这段代码是在什么情况下触发的，把它放在对应的事件里。

注意 ：必须加上延时才能看出效果

如果你这段代码是窗体一弹出，就运行，可以把它放在 UserForm_Activate事件里
private Sub UserForm_Activate()

Dim i As Integer

For i = 0 To 100
LabelFile1 = i
delay (10)// 延时
Next

End Sub

'***********延时*************************************
Sub delay(T As Single)
Dim T1 As Single
T1 = Timer
Do
DoEvents
Loop While Timer - T1 < T
End Sub
'延时
****************************************
不好e79fa5e98193e58685e5aeb9366意思，才看到。不知道你解决没有。我这边CPU是50%。
解决办法没找到，，5555555555555
55，不好意思哦。本来可以用SLEEP的，可是SLEEP要刷屏，而你那是在窗体内，上班又没时间研究，你请教下高人，小女子不好意思

Dim a As Integer

Dim xlApp As Excel.application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Private Sub Form_Load()
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象百
Set xlBook = xlApp.Workbooks.Open("C:\Documents and Settings\dezhao\Desktop\1.xls") '打开已经存在度的EXCEL工件簿内文件
textbox1.text=xlBook.Worksheets("sheet1").cells(1,1)
end sub

自己改容改就行了